sort by date

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

Replies are listed 'Best First'.
Re: sort by date by Abigail-II (Bishop) on Nov 30, 2003 at 17:23 UTC
Perhaps something like (untested): `opendir my $dir => $directoryOfImage or die; my @allPictures = map {substr $_ => 10} sort map {sprint "%010d%s" => (stat) [9], $_} grep {$_ ne "." && $_ ne ".."} readdir $dir; closedir $dir;` [download] So don't recommend me modules please. Why not? Abigail	[reply] [d/l]
Re: sort by date by Limbic~Region (Chancellor) on Nov 30, 2003 at 17:27 UTC
mito, You could use the Schwartzian Transform. `@allPictures = map { $_->[0] } sort { $a->[1] <=> $b->[1] } map { [ $_ , (stat($_))[9] ] } @allPictures;` [download] Cheers - L~R	[reply] [d/l]
•Re: sort by date by merlyn (Sage) on Nov 30, 2003 at 17:57 UTC
by creation date Well, no matter how hard you try, you can't get creation date on Unix. Unix doesn't maintain a "creation date", which the founders of Unix argued doesn't actually make sense (and I agree, sometimes). -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply]
Re: •Re: sort by date by dpmott (Scribe) on Dec 01, 2003 at 05:22 UTC
Yes... that's true on UNIX but not on Win32... From perldoc perlport: `stat ctime not supported on UFS (Mac OS X). ctime is creation time instead of inode change time (Win32).` [download] So, if the author is only trying to write code on a Win32 platform, with no cares or worries wrt portable code, then (s)he can get the creation time. But don't do that. You almost certainly want to know which file has newer or older content than the others, i.e. which has been modified most (or least) recently. :)	[reply] [d/l]
Re: sort by date by forrest (Beadle) on Nov 30, 2003 at 17:27 UTC
If you `use File::stat; # don't worry, it's part of standard perl` [download] then you can `@allPictures = sort {stat($a)->mtime <=> stat($b)->mtime} @allPictures;` [download] That should do it.	[reply] [d/l] [select]
Re: Re: sort by date by Roger (Parson) on Nov 30, 2003 at 23:11 UTC
I would rather do an orcish manueuver instead. ;-) `use File::stat; ... my %m; @allPictures = sort { ($m{$a} \|\|= stat($a)->mtime) <=> ($m{$b} \|\|= stat($b)->mtime) } @allPictures;` [download] or simpler version - `my %m; @allPictures = sort { ($m{$a} \|\|= -M $a) <=> ($m{$b} \|\|= -M $b) } @allPictures;` [download]	[reply] [d/l] [select]
Re: sort by date by jeffa (Bishop) on Nov 30, 2003 at 17:21 UTC
"I am working on tripod.So don't recommend me modules please." Then may we recommend instructions on how to install modules when you don't have root access? jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply]
Re: sort by date by skx (Parson) on Nov 30, 2003 at 18:21 UTC
That's fine, but not much use if you don't have shell access. (Granted you could install a pure perl module by creating the directories by hand, but satisfying dependencies would get painful after a while...) Steve --- steve.org.uk	[reply]
Re: sort by date by b10m (Vicar) on Nov 30, 2003 at 16:41 UTC
Check out stat -- B10m	[reply]
Re: sort by date by Cody Pendant (Prior) on Nov 30, 2003 at 19:56 UTC
`@allPictures=<IMD>;` [download] What was the point of this line? `($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss') =~y~b-v~a-z~s; print` [download]	[reply] [d/l] [select]
Re: Re: sort by date by ysth (Canon) on Nov 30, 2003 at 20:38 UTC
People often try that. And then ask for perl to change to make it work. The usual answers are: you can use tie if you want <> to automatically become readdir since perl can have both a file and dir open with handle IMD, this becomes ambiguous	[reply]