Sorting files based on the last modified time

[pramodkh]

Hi All,

I have a remote directory wherein some files will be generated. I am writting a PERL script in windows to get the latest file created in that directory.How do i achieve this?

This is what i have tried so far...

use FindBin;
use strict;
 
my $ScriptPath = $FindBin::Bin;  
print "\n Script Path =  $ScriptPath ";
my @files = "";
### remote directory
my $dirPath = "D:\\Test\\TestMaintenance";
opendir(DIRHANDLE, "$dirPath") or return("\n Can not open $dirPath \n $!");
while ( defined (my $filename = readdir(DIRHANDLE)) ){
    if($filename =~ m/TestMaintenance/){
        print "\n$filename";
        push(@files, $filename);
    }
}
close DIRHANDLE;
 
 

looks like opendir gives random file list. Its not in a sorted order. How do i sort files in a directory based on the file modification time?

Thanks in advance.

Regards
Pramod

[numberwhun]

Hi All,

I have a remote directory wherein some files will be generated. I am writting a PERL script in windows to get the latest file created in that directory.How do i achieve this?

This is what i have tried so far...

use FindBin;
use strict;
 
my $ScriptPath = $FindBin::Bin;  
print "\n Script Path =  $ScriptPath ";
my @files = "";
### remote directory
my $dirPath = "D:\\Test\\TestMaintenance";
opendir(DIRHANDLE, "$dirPath") or return("\n Can not open $dirPath \n $!");
while ( defined (my $filename = readdir(DIRHANDLE)) ){
    if($filename =~ m/TestMaintenance/){
        print "\n$filename";
        push(@files, $filename);
    }
}
close DIRHANDLE;
 
 

looks like opendir gives random file list. Its not in a sorted order. How do i sort files in a directory based on the file modification time?

Thanks in advance.

Regards
Pramod

Well, you can use Perl's 'sort()' function like this:

sort{ -M $b <=> -M $a }
 

That will sort in reverse order by time. You could assign that to an array and your highest element is the newest and the first element is the oldest.

Regards,

Jeff

[KevinADC]

also replied to on devshed.

[pramodkh]

Thanks Jeffin and Kevin.
I am working on this...
Facing some problems in accessing remote server, from where i have to read the files. i will look into this and get back to you.

You both always provide optimum solutions within short time:-)

Thanks again.

Pramod