Re: Get file timestamp for a file in a directory

Change
print "Last change:\t" . scalar localtime($mtime) . "\n";
to
print "Last change:\t" . ctime(localtime($mtime)) . "\n";
as mention in the Time::localtime docs.

Comment on Re: Get file timestamp for a file in a directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Get file timestamp for a file in a directory by ikegami (Patriarch) on Nov 26, 2004 at 21:01 UTC
Now that your post is readable, I'd like to correct myself. `POSIX::strftime` will suit your formating needs, and you need to add the path to the file you're `stat`ing for it to work properly. Here's working code: `#!/usr/bin/perl use strict; use warnings; use POSIX (); my $dir = "/usr/path"; opendir(DIR, $dir); my @dir = grep { !/^\.+$/ } readdir(DIR); closedir(DIR); foreach (@dir) { my $file = "$dir/$_"; my $mtime = (stat($file))[9]; print "Last change:\t" . POSIX::strftime("%Y%m%d", localtime($mtime)) . "\n"; }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Get file timestamp for a file in a directory
by ikegami (Patriarch) on Nov 26, 2004 at 21:01 UTC

Now that your post is readable, I'd like to correct myself. POSIX::strftime will suit your formating needs, and you need to add the path to the file you're stating for it to work properly. Here's working code:

#!/usr/bin/perl 

use strict;
use warnings;

use POSIX ();

my $dir = "/usr/path";

opendir(DIR, $dir);
my @dir = grep { !/^\.+$/ } readdir(DIR);
closedir(DIR);

foreach (@dir)
{
   my $file = "$dir/$_";
   my $mtime = (stat($file))[9];            
   print "Last change:\t"
      . POSIX::strftime("%Y%m%d", localtime($mtime))
      . "\n";
}
[download]

[reply]
[d/l]
[select]