You can get mtime as the tenth element of the list returned by stat. Here's a quick way to do it,

my @files_by_mtime =
    map  {$_->[0]}
    sort {$a->[1] <=> $b->[1]}
    map  {[$_,(stat)[9]]}
    glob "$dir/*";
[download]

or even easier (and faster) with Sort::Key:

use Sort::Key qw(nkeysort);
my @files_by_mtime = nkeysort { (stat)[9] } glob "$dir/*";
[download]

You can use readdir to get the filenames in a directory, the -f test to filter out non-file entities, and then sort based on the -M test.

You are probably looking at something like this:

#!/usr/bin/perl
                                                                      
+          
use strict;
use warnings;
                                                                      
+          
                                                                      
+          
my $dir = '.';
                                                                      
+          
opendir DIR, $dir or die "Can't open '$dir' - $!\n";
                                                                      
+          
my @files = map { "$dir/$_"}
            grep !/^\..?$/, readdir DIR;
                                                                      
+          
my @sort_files = sort { $a->[1] <=> $b->[1] }
                 map { [ $_ , (stat($_))[9] ] }
                 @files;
                                                                      
+          
                                                                      
+          
foreach my $file ( @sort_files )
{
   print $file->[0],"\t",scalar localtime($file->[1]),"\n";
}
[download]

/J\

perl -e 'print "$_\n" for ( sort { -M $a <=> -M $b } glob "/path/\*" )
+;'
[download]

You could use the Orcish Maneuver to make your code go faster...



# Original code
for ( sort { -M $a <=> -M $b } glob ... )

# Orcish Maneuver
my %t; for ( sort { ($t{$a} ||= -M $a)
                     <=>
                    ($t{$b} ||= -M $b) } glob ... )
[download]

I've looked into this now - I was expecting sort to be smart enough to do that manouvre itself. For those who don't understand what it's doing, it is forcing the sort routine to perform the -M operation only once per file, but at the overhead of a hash lookup per sort iteration (there are geometrically upon n sort iterations per n files). sort + block could be optimised for minimal calculation of each side of the <=> operator (or cmp as appropriate) -- after all it ought to know it's going to be doing that irrespective of what's in the block, so it's a safe optimisation for sort to be doing already. But the orcish manouevre appears to be necessary because no such optimisation has been implemented. Perhaps Sort::Key has the manoeuvre already, however.

One world, one people

-Scott

I'm new to Perl. In addition, I really struggled when I moved my scripts from Linux <=> Solaris.

We can write a simple code or algorithm, So Instead of using UNIX native commands (I mean OS specific commands or some modules, which supports specific OS).

Anyways, Thanks to everybody (: D

Swaroop

I personally do not like to use the UNIX native commands in script.

The roll it your own solution involves using opendir, readdir, stat, sort and printf. You also need getpwnam and getgrnam if you want to similate the -l option of ls, and perhaps grep to filter out dot-files, although that can be done with other means as well. I hope that's enough answer for you, and you can work out the details - I won't bother with them, if

    system "ls -lrt";
[download]

UNIX Monk

Well, since Perl doesn't always run on Unix, and that having this dislike is a sign that this activity is likely more than just based on a purely aesthetic concern for the programmer (I guess that they want something that is capable of working interoperably on both win32 and Unixish perl, perhaps others);

I'd suspect that this is a better method to choose to maximize robustness, but if it's just going to run on something with accessible unix shells... I'd only do this to save forking costs, in that case...

Pramatism vs. Elegance!

Squibbie Pooh Ski Doo.

Ahem, PRAGMATISM! doh.

Squibbie Pooh Ski Doo.