Newbee21369 has asked for the wisdom of the Perl Monks concerning the following question:
I'm trying to get the timestamp of a file in a directory.
When I run the code shown below I get the following result.
How can I get the this format as my Result?Last change: Time::tm=ARRAY(0x200b6064)
Last change: 2004111622
#!/usr/bin/perl use Time::localtime; $tm = localtime; opendir(DIR,"/usr/path"); my @dir=grep { !/^\.+$/ } readdir(DIR); closedir(DIR); $file_count = 0; foreach $file (@dir) { $mtime = (stat ($file))[9]; print "Last change:\t" . scalar localtime($mtime) . "\n"; }
2004-11-26 Janitored by Arunbear - added code tags, as per Monastery guidelines
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Get file timestamp for a file in a directory
by steves (Curate) on Nov 26, 2004 at 19:28 UTC | |
Re: Get file timestamp for a file in a directory
by ikegami (Patriarch) on Nov 26, 2004 at 19:07 UTC | |
by ikegami (Patriarch) on Nov 26, 2004 at 21:01 UTC | |
Re: Get file timestamp for a file in a directory
by steves (Curate) on Nov 26, 2004 at 19:03 UTC | |
Re: Get file timestamp for a file in a directory
by Newbee21369 (Novice) on Nov 27, 2004 at 16:45 UTC |
Back to
Seekers of Perl Wisdom