Re: Sort by Mod Date

[Matt Doughty]

here is my little bit for making a really short solution.

--Matt

#!perl
my $dir = shift() || ".";
opendir(DIR, $dir);
print for(map { $_ . "\n" } sort { (stat($b))[9] <=> (stat($a))[9] } grep { 
!/^.{1,2}$/ } readdir DIR );