क्या एक पर्ल स्क्रिप्ट स्वयं संशोधित कर सकती है?

Question

मैं अपनी स्क्रिप्ट को एक टिप्पणी के रूप में आंतरिक रूप से संशोधन की अंतिम तिथि का ट्रैक रखना चाहता हूं। क्या यह संभव है? ऐसा लगता है कि इसे तारीख को पकड़ने और फिर अपनी स्क्रिप्ट फ़ाइल को एक संलग्न करने के लिए खोलने की आवश्यकता होगी, डेटा लिखें और फ़ाइल को सहेजें।

धन्यवाद कभी, महान उत्तरदाताओं एक और सभी। कोड स्निपेट GreenMatt द्वारा छोड़ा मैं एक साथ इस फेंक दिया के आधार पर ...

#!/usr/bin/perl -w 

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime time; 
$year += 1900; 
$mon +=1; 

open SELF, ">> letterhome.pl" or die "Unable to open self"; 
#print SELF "# ran/modified at " . join(' ', localtime(time)) . "\n"; 
print SELF "# ran/modified at $hour:$min:$sec on $mon/$mday/$year.\n"; 
close(SELF); 

# ran/modified at 31 48 23 24 7 110 2 235 1 
# unformated result of using localtime(time) 

#Results using formated time/date 
# ran/modified at 0:1:43 on 8/25/2010. 
# ran/modified at 0:2:40 on 8/25/2010. 
# ran/modified at 0:4:35 on 8/25/2010. 

Answer 1

यह संभव है, लेकिन यह है कि यह एक अच्छा विचार नहीं है। एक बात के लिए, यह तब तक अपडेट नहीं होगा जब तक आप इसे नहीं चलाते।

यदि आप एक अच्छा संपादक का उपयोग कर रहे हैं, तो फ़ाइल को सहेजते समय स्वचालित रूप से टाइमस्टैम्प डालने का कोई तरीका हो सकता है। उदाहरण के लिए, मैंने write-contents-hooks का उपयोग कर HTML फ़ाइलों में ऐसा करने के लिए Emacs सेट अप किया है। (यह पर्ल कोड के साथ काम करने के लिए कुछ संशोधन की आवश्यकता होगी, लेकिन cjm-misc.el में cjm-html-timestamp आप एक प्रारंभिक बिंदु देना होगा।)

Answer 2

ऐसा लगता है कि आप पहले से ही पता है कि यह कैसे करना है। यदि यह एक यूनिक्स/लिनक्स बॉक्स पर एक पर्ल स्क्रिप्ट है तो अनुमतियाँ एक मुद्दा नहीं होना चाहिए, अगर यह एक खिड़कियों बॉक्स पर है यह आपको अंदर आने नहीं हो सकता है फ़ाइल के रूप में उपयोग में है

- जॉन

Answer 3

निम्नलिखित ने फ्रीबीएसडी सिस्टम पर काम किया। यह अंत में संलग्न होता है, जो आपको स्वीकार्य लगता है, लेकिन फ़ाइल के भीतर परिवर्तनों को दस्तावेज करने के "सामान्य" तरीके के अनुरूप नहीं है - कम से कम मेरे लिए, जैसा कि मैंने लगभग हमेशा शुरुआत में किया है। आप शायद दिनांक/समय प्रदर्शित होने के तरीके को बदलना चाहेंगे।

#!/usr/bin/perl -w 
open SELF, ">> selfModify.pl" or die "Unable to open self"; 
print SELF "# ran/modified at " . join(' ', localtime()) . "\n"; 
close(SELF); 

चाहे यह बुद्धिमान है या नहीं, मैं आपके लिए निर्णय लेने के लिए छोड़ दूंगा।

Answer 4

आप अपने संस्करण नियंत्रण प्रणाली को स्वचालित रूप से ऐसा करने के लिए प्राप्त कर सकते हैं।

लेकिन यदि आप संस्करण नियंत्रण का उपयोग कर रहे हैं तो यह चरण वास्तव में पहले स्थान पर नहीं है।

Answer 5

उत्तर के रूप में मेरी टिप्पणी जोड़ने का अनुरोध करके।

लगता है जैसे आप पहले ही जानते हैं कि यह कैसे करें। यदि यह यूनिक्स/लिनक्स बॉक्स पर एक पर्ल स्क्रिप्ट है तो अनुमतियां एक समस्या नहीं होनी चाहिए, अगर यह विंडोज बॉक्स पर है तो यह आपको फ़ाइल के उपयोग के रूप में नहीं होने दे सकता है।

Answer 6

#! /usr/bin/env perl 
use warnings; 
use strict; 
use autodie; 

{ 
    open my $self, '>>', $0; 
    my $time = localtime; 
    print {$self} "# ran on $time\n"; 
} 

__END__ 
# ran on Wed Aug 25 16:41:05 2010