Sort array by last modified

How can I sort an array of files by the last modified (or ideally, created) date.

So, I need to modify

<iw_perl><![CDATA[

$dir= "y:/default/main/boc/....whatever";
opendir(DIR, $dir);
@f = readdir(DIR);
closedir(DIR);

]]></iw_perl>

Now I have an array of files @f. How do I sort that by either date created or last modified?

Thanks in advance
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Find more posts tagged with

Comments

mogoo

I have some code where I push both the file name & created date into a hash, then sort based on the crdate...

$date = `/opt/iw-home/bin/iwattrib $filevpath crdate`;
($x,$month,$day,$time,$yr) = split/\s+/,$date;
$crdate = "$year$month$day";
push @f, { html => $file, date => $crdate };
@sortedfiles = sort { $b->{date} cmp $a->{date} } @f;

Caveat: I have found the "creation date" attribute to be a moving target... it acts more like a modified date. There is a thread somewhere on this forum about this; others have had the same problem.
maureen

MattP

I was afraid you were going to say that. Probably just on the edge of my perl knowledge. I will work with it and let you know how I make out.

Thanks Maureen!
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Adam Stoller

Here's a cute little ditty that will sort a list of files based on modified time that's more efficient that calling iwattrib on each file.

while(1){
    print "Path => ";
    chomp(my $d = );
    last if ($d eq "quit");
    print_sorted_modified("$d");
}
exit(0);
sub print_sorted_modified{
    my $dir = shift;
    #--------------------------------------------------
    # Store information for files in a hash:
    # key   => relative modification time from "now".
    # value => array of filenames that share the same
    #          relative modification time.
    #--------------------------------------------------
    my %hash; 
    #--------------------------------------------------
    # Open directory and get the relative modification
    # time for the dir entry and use it as a key into
    # the hash.
    # Push the filename into an array represented by
    # the key.
    #--------------------------------------------------
    if(opendir(DIR, "$dir")){
        map {
            my $t = -M "$dir/$_"; push(@{$hash{$t}}, "$dir/$_");
        } readdir(DIR);
    }
    #--------------------------------------------------
    # sort numerically by modtime (more recent will
    # come first) and print out the file and its
    # relative modtime in a moderately formatted way.
    #--------------------------------------------------
    foreach my $modtime (sort {$a <=> $b} (keys(%hash))){
        foreach my $file (@{$hash{$modtime}}){
            printf("(%20s) %s\n", $modtime, $file);
        }
    }
}

If you change the -M to -C it will work on inode-creation time (however, as has been pointed out - in TeamSite, last modified time is generally more accurate that creation time).

I'll admit that the code is a tad bit obfuscated, but hopefully the comments will help a bit.

--fish
(Interwoven Senior Technical Consultant)

MattP

Fish-
I can follow just about all of it. I appoligise for the basic questions..

Do I need to define $d and $dir? Right now I get syntax error after print => line3

$dir as the directory I want to run through, correct?
What should $d be declared as?

Thanks.

Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Migrateduser

if you're not going to use the result of the "map", use a "for" instead:

map { dosomething( $_ ); something( $_ ) } @hello

for ( @hello ) { dosomething( $_ ); something( $_ )}

and if you have only one statement, I personally love

dosomething( $_ ) for @hello;

Adam Stoller

Sigh - I forgot to fix that part of my text to get around being [mis]interpreted.

chomp(my $d = <STDIN>);

And just in case - that's: = less-than-STDIN-greater-than

--fish
(Interwoven Senior Technical Consultant)

MattP

AH, OK, I looked at the email version and it was correct. So, in an ipl, it works great. I am trying to integrate it into a tpl, and it fails. Here is how I modified it...

Rather than call a sub after std in for $d, I define $dir. I think the issue is around the way $t is populated. I am almost there!

Thanks in advance.
Matt

$dir = "Y:\\default\\main\\boc\\pgs\\global\\internal\\pgs_global_intranet\\WORKAREA\\default\\pgs\\home\\global\\current\\";
my %hash;
if(opendir(DIR, $dir)){
readdir(DIR);
map {
my $t = -M "$dir/$_";
push(@{$hash{$t}}, "$dir/$_");
}
}

foreach my $modtime (sort {$a <=> $b} (keys(%hash)))
{
foreach my $file (@{$hash{$modtime}})
{
iwpt_output("this is my $file \n");
}

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Adam Stoller

You have:if(opendir(DIR, $dir)){
readdir(DIR);
map {
my $t = -M "$dir/$_";
push(@{$hash{$t}}, "$dir/$_");
}
}

You're not mapping anything - you need to supply input to map{} like:

if(opendir(DIR, $dir)){ 
    map { 
        my $t = -M "$dir/$_"; 
        push(@{$hash{$t}}, "$dir/$_"); 
    } readdir(DIR);

}

Try that.

--fish
(Interwoven Senior Technical Consultant)

MattP

Fish-
Got it. Thanks, I appreciate your help!

Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA