my @sorted_files = sort map  { $_->[0]              }
                        sort { $a->[1] <=> $b->[1]  }
                        map  { [ $_, [stat]->[10] ] } @files;
[download]

_________
broquaint

How would you modify that to sort by creation time and then by modification time?

Well, [stat]->[10] gives the "creation" time, and the modification time is in 9; so you could do this:

my @sorted_files =
    map  { $_->[0] }
    sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] }
    map  { [ $_, [stat]->[10], [stat]->[9] ] }
    @files;
[download]

But for some reason, I'm tempted to do this:

my @sorted_files =
    map  { $_->[0] }
    sort { $a->[11] <=> $b->[11] or $a->[10] <=> $b->[10] }
    map  { [ $_, stat ] }
    @files;
[download]

We're building the house of the future together.

This should do the trick:

perl -e 'print join("\n",sort {(stat($a))[9] cmp (stat($b))[9] or $a c
+mp $b } <*>)';
[download]

<*> gives all files in the current directory.

I hope this helps. Try this
---------------------------
Dr. Mark Ceulemans
Senior Consultant
IT Masters, Belgium

-- Dan