perlquestion
Newbee21369
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.
<code>
Last change: Time::tm=ARRAY(0x200b6064)
</code>
How can I get the this format as my Result?
<code>
Last change: 2004111622
</code>
<code>
#!/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";
}
</code>
<p><small>2004-11-26 Janitored by [Arunbear] - added code tags, as per Monastery [id://17558|guidelines]</small></p>