Sortere filer efter last modified

nogen som har en kode eksempel som sorterer rigtig, men de nyeste filer først.

det skal siges at jeg kender til for eksempel:
parse_dir(`ls -lt $dir`)
men jeg vil gerne have noget kode som kan køre både på Windows og Linux...

hmm..min kode sorterer måske på navn..fordi mine filer er baseret på unix timestamp..men jeg vil gerne have den sorteret på dato

Den her virker måske:

use strict;
use File::Spec;
use File::stat;
opendir(DIR,"..");
my @savedFiles;
while(my $entry=readdir(DIR)) {
    my $filename=File::Spec->catfile("..",$entry);
    next unless (-f $filename);
    push(@savedFiles,[$entry,stat($filename)->mtime]);
}
close(DIR);
                                                                               
# sort files by modification time (newest first)
@savedFiles=sort { $b->[1] <=> $a->[1] } @savedFiles;
my($f);
for $f (@savedFiles) {
  print "$f->[0]\n";
}

Det var tet på. Den virker ikke 100%, men med din hjælp er jeg kommet videre, så post et svar, så acceptere jeg den :)

ikke 100% ??

den returnede ingenting.
jeg lavede først en
chdir( $dir );
og ændret '..' til '.' i din kode så virket den

Nåh, ja, ok, det er lige på det punkt ikke så pænt, men
det har da virket i en sammenhæng en gang ;)

Og, nej tak, jeg samler ikke på point. Svar selv, accepter eget svar.

kom nu. post svar :P

Jeg samler ikke på point

ok