On May 13, 2004, at 11:12 PM, Matt Doughty wrote:
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 );
All these solutions are still too verbose and self-documenting. Can someone write something a little shorter, maybe a one-liner?
Joe.
