Re: sorting entires by date

[exussum0]

in reply to sorting entires by date

#!/usr/bin/perl
use strict;
use warnings;

my %file = () ;

while(<>)
{
        chop;
        my( $file, $width, $height, $time )  = split(/:/);
        $file{$time} = [ $file, $width, $height ];
}

foreach ( sort keys %file )
{
        my $data = $file{$_};
        print join(":", ( @$data, $_ ) ) . "\n";
}

Note, it doesn't work with files that have colons in them. I'm a big fan of letting the command line do stuff... so you'd run it ala..

script.pl < inFile > outFile

[Coruscate]

$file{$time} = [ $file, $width, $height ];

Note that this method would break if there comes to be two rows of data in the file with the same timestamp. You'd only keep the last entry with said timestamp as the rest would be written over.

[exussum0]

Yup, i'm assuming unique time stamps. :) I could use file names for keys and put the sort by the time stamp.