Help for this page
my %stats; for (<*>) { my $mtime = (stat)[9]; ## for atime, use (stat)[8] ... } my $oldest = (sort { $a <=> $b } keys %stats)[0]; print "oldest: ", (join ',', @{$stats{$oldest}}), "\n";
my ($timestamp, $files) = ~0; for (<*>) { my $mtime = (stat)[9]; ## for atime, use (stat)[8] ... } } print "oldest: ", (join ',', @{$files}), "\n";
www.com | www.net | www.org
No recent polls found