Sorting

[ExecMan]

Hi,

I'm looking to read a directory to get a list of files in Descending
sorted order by timestamp. I've gotten this so far, but it is in
ascending. Can anyone help with the descending part?

my $dir = '/home/logfiles';

opendir my $DH, $dir or die "Cannot opendir '$dir' $!";

my @sorted_files =
map $_->[1],
sort { $a->[0] <=> $b->[0] }
map -f "$dir/$_" ? [ ( stat _ )[9], $_ ] : (),
readdir $DH;

for ($i=0; $i<20; $i++) {
print "FILE: $sorted_files[$i]\n";
}


Thank a bunch!

 

[ntua]

sort { $b->[0] <=> $a->[0] }

 

[Tim McDaniel]

I'm looking to read a directory to get a list of files in Descending
sorted order by timestamp.

In Linux or other UNIX-like systems, you can use the command "ls -t".

 

[Jürgen Exner]

I'm looking to read a directory to get a list of files in Descending
sorted order by timestamp. I've gotten this so far, but it is in
ascending. Can anyone help with the descending part?

If nothing else this hack will work:
perldoc -f reverse



jue