Getting a list of files in a directory sorted by date

slloyd has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Getting a list of files in a directory sorted by date by Ovid (Cardinal) on Apr 07, 2006 at 16:44 UTC
I'm not sure how expensive pulling the date for a file is, but assuming it's reasonably exensive and you have a lot of files, then a Schwartzian Transform is a natural way to go. `opendir DIR, $logdir or die "Cannot open $logdir: $!"; my @cfiles = map { $_->[1] } sort { $a->[0] <=> $b->[0] } map { [ -M $_, $_ ] } grep { /\w/ } readdir DIR;` [download] Update: Fixed the typo that slloyd and philcrow pointed out (`/w/` should have been `/\w/`). Cheers, Ovid New address of my CGI Course.	[reply] [d/l]
Re^2: Getting a list of files in a directory sorted by date by philcrow (Priest) on Apr 07, 2006 at 17:54 UTC
The grep expression here looks funny. It seems to say the file must contain a w. Perhaps you meant: `grep { /\w/ }` [download] Phil	[reply] [d/l]
Re^2: Getting a list of files in a directory sorted by date by slloyd (Hermit) on Apr 07, 2006 at 17:04 UTC
Your code example does not return any files. ------------------------------- Perl - Regularly Expression yourlself http://www.basgetti.com	[reply]
Re^3: Getting a list of files in a directory sorted by date by Ovid (Cardinal) on Apr 07, 2006 at 17:28 UTC
Works fine on my box. Did you run it? Cheers, Ovid New address of my CGI Course.	[reply]
Re^4: Getting a list of files in a directory sorted by date by slloyd (Hermit) on Apr 07, 2006 at 18:02 UTC
Re: Getting a list of files in a directory sorted by date by explorer (Chaplain) on Apr 07, 2006 at 16:33 UTC
`opendir(DIR,$logdir); foreach( readdir(DIR) ) { next unless /\w/; $date{ -M $_ } = $_; # Store modification's time } closedir DIR; foreach ( sort { $a <=> $b } keys %date ) { print $date{$_} # Show ordered files }` [download]	[reply] [d/l]
Re^2: Getting a list of files in a directory sorted by date by Ovid (Cardinal) on Apr 07, 2006 at 16:46 UTC
What happens when you have two files with the same mtime? Cheers, Ovid New address of my CGI Course.	[reply]
Re: Getting a list of files in a directory sorted by date by davidrw (Prior) on Apr 07, 2006 at 16:47 UTC
see Open files by date created for the same question and lots of very good replies & information	[reply]
Re: Getting a list of files in a directory sorted by date by salva (Canon) on Apr 07, 2006 at 21:01 UTC
`use Sort::Key qw(nkeysort); opendir my $dh, "..." or die; my @sorted = nkeysort { -M } grep /\w/, readdir $dh;` [download]	[reply] [d/l]
Re: Getting a list of files in a directory sorted by date by kwaping (Priest) on Apr 07, 2006 at 19:37 UTC
This isn't the most elegant or Perlish solution, but you could just `ls -rt`. --- It's all fine and dandy until someone has to look at the code.	[reply] [d/l]