in reply to Finding Oldest File in a Directory
Don't forget good ol' glob.
#!/usr/bin/perl -w use strict; my ($age, $file) = (0, ''); for (<*BOT*>) { if (-M > $age) { $age = -M; $file = $_ } } print "$file\n";
In Section
Seekers of Perl Wisdom
in reply to Finding Oldest File in a Directory
Don't forget good ol' glob.
#!/usr/bin/perl -w use strict; my ($age, $file) = (0, ''); for (<*BOT*>) { if (-M > $age) { $age = -M; $file = $_ } } print "$file\n";