मैं पर्ल में वर्तमान समय में फ़ाइल निर्माण समय की तुलना कैसे कर सकता हूं?

Question

मैं वर्तमान समय की तुलना करना चाहता हूं और पर्ल में फ़ाइल निर्माण समय की तुलना करना चाहता हूं लेकिन दोनों अलग प्रारूप में हैं। स्थानीयसमय इस प्रारूप में:

22116291110813630 

और फ़ाइल निर्माण समय

Today, December 29, 2008, 2:38:37 PM 

है मैं की तुलना कैसे जो एक अधिक से अधिक और उनके अंतर है?

Answer 1

localtime सूची संदर्भ में मूल्यों की एक सूची देता है। the localtime documentation या perlcheat देखें। आपके उदाहरण में, ऐसा लगता है कि उन सभी को एक साथ मिलाया गया है। स्केलर संदर्भ में, यह Mon Dec 29 03:16:33 2008 जैसे स्वरूपित स्ट्रिंग देता है। अधिकांश प्लेटफ़ॉर्म पर, फ़ाइल इरोड चेंज टाइम कुछ युग के बाद से stat से कई सेकंड के रूप में वापस कर दिया जाएगा। आपको सीधे time() (localtime()) के परिणामस्वरूप इसकी तुलना करने में सक्षम होना चाहिए।

Answer 2

आप मूल्यों की तुलना करना चाहते हैं, तो आप नंबर पर आप अदिश संदर्भ में localtime से मिला है और inode परिवर्तन समय है कि आप stat से प्राप्त कर सकते हैं का उपयोग करना चाहें:

   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, 
        $atime,$mtime,$ctime,$blksize,$blocks) 
         = stat($filename); 

जहां:

 
       0 dev  device number of filesystem 
       1 ino  inode number 
       2 mode  file mode (type and permissions) 
       3 nlink number of (hard) links to the file 
       4 uid  numeric user ID of file's owner 
       5 gid  numeric group ID of file's owner 
       6 rdev  the device identifier (special files only) 
       7 size  total size of file, in bytes 
       8 atime last access time in seconds since the epoch 
       9 mtime last modify time in seconds since the epoch 
       10 ctime inode change time in seconds since the epoch (*) 
       11 blksize preferred block size for file system I/O 
       12 blocks actual number of blocks allocated 

तो आप चाहते हैं क्षेत्र 9:

 

$mtime = (stat $filename)[9]; 
$current_time = time; 

$diff = $current_time - $mtime; 
 

Answer 3

यह stat() और समय()/localtime() का उपयोग करने से भी आसान है।

my $diff = -M $filename; 

-एम ऑपरेटर फ़ाइल की "आयु" (प्रोग्राम की शुरुआत के दिनों से) में लौटाता है। यह -X functions या perldoc -f -X के तहत प्रलेखित है।

Answer 4

ये दो कार्य जिमट के जवाब के लिए धन्यवाद हैं। फाइलेज एक पूर्णांक के रूप में सेकेंड की संख्या प्रिंट करता है, जो कि एक खोल में उपयोग के लिए सही होता है, जब से इसे बनाया गया था। फ़ाइलेज उपर्युक्त प्रश्न का उत्तर है, जबकि डेटाेज फ़ाइल की सामग्री के लिए समान प्रिंट करता है क्योंकि यह वह उत्तर है जिसे मैं ढूंढ रहा था, मुझे यकीन है कि ये दोनों उपयोगी होंगे।

function fileage { 
    perl -e 'printf "%i\n", 60 * 60 * 24 * -C "'"${1:?Must provide a file name}"'"' 
} 

function dataage { 
    perl -e 'printf "%i\n", 60 * 60 * 24 * -M "'"${1:?Must provide a file name}"'"' 
} 

ब्याज की हो सकता है कि