in reply to sort by date

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.

Replies are listed 'Best First'.
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]

In Section Seekers of Perl Wisdom