Sorting a hash of DCR's by date.

I have managed to get many DCR's processed in my Template, but am struggling to sort them by any of my fields.

I'm not that worried about date calculations at the moment
( I know i'll probably have to change my text date into a number, or use Date::Manip), just the syntax to be able to sort a multi hash successfully.

Here is my hash.

$dcrhash{$count}{'File'}=$dcr;
$dcrhash{$count}{'ImgLarge'}=iwpt_dcr_value('$root.ImageLarge');
$dcrhash{$count}{'ImgCapt'}=iwpt_dcr_value('$root.ImageLargeCaption');
$dcrhash{$count}{'Title'}=iwpt_dcr_value('$root.Title');
$dcrhash{$count}{'Date'}=iwpt_dcr_value('$root.Date');
$dcrhash{$count}{'PageLink'}=iwpt_dcr_value('$root.File To Generate');
$dcrhash{$count}{'IntroStory'}=iwpt_dcr_value('$root.IntroductoryCopy');
$dcrhash{$count}{'Modified'} =`iwattrib $dir/$dcr moddate`;

Many thanks.

Piers

Edited by Piers on 12/09/03 01:39 PM (server time).

Find more posts tagged with

Comments

Johnny

seeing that you are using what looks like to be a counter, it will be quite easy to change your current structure of hash of hashes, to an array of hashes.

You can then sort your array, as they are stored in a determined order. You cannot store a hash in a determined order. sorting works on arrays

@dcrs = sort { $dcrs[$a]->{'Date'} cmp $dcrs[$b]->{'Date'} } @dcrs;

pretty sure thats the syntax

read up on the sort function (perldoc perlfunc) for some examples.

John Cuiuli

Piers

LOL - too funny, I stumbled on this as soon as I had posted. Realised that I needed to switch the hashes into an array.

Neat soution below, looks at date field inside DCR, if two match goes to file modified date.

Thanks man.

*Needs some refining, the date compare piece is not quite right!

use Date::Manip;
Date_Init("TZ=PST");

$dir = "y:/default/main/wb_milo/WORKAREA/beta/templatedata/milo/news_page/data";
#change to staging
$td_dir = "/templatedata/milo/news_page/data";
opendir(DIR, $dir);
@dcrlist = sort readdir(DIR);
closedir(DIR);
for ($count=0; $count<=$#dcrlist; $count++){
$dcr=$dcrlist[$count];
next if $dcr eq "." || $dcr eq ".." ;

$root = iwpt_load_dcr("$td_dir/$dcr",'docroot',"t");

$dcrhash{$count}{'File'}=$dcr;
$dcrhash{$count}{'ImgLarge'}=iwpt_dcr_value('$root.ImageLarge');
$dcrhash{$count}{'ImgCapt'}=iwpt_dcr_value('$root.ImageLargeCaption');
$dcrhash{$count}{'Title'}=iwpt_dcr_value('$root.Title');
$dcrhash{$count}{'Date'}=iwpt_dcr_value('$root.Date');
$dcrhash{$count}{'PageLink'}=iwpt_dcr_value('$root.File To Generate');
$dcrhash{$count}{'IntroStory'}=iwpt_dcr_value('$root.IntroductoryCopy');
$dcrhash{$count}{'Modified'} =`iwattrib $dir/$dcr moddate`;

push @dcrarray, $dcrhash{$count};

}
#change into epoch seconds
use Time: Smiley Tongue

arseDate;

sub dateorder {
parsedate($b->{'Date'}) <=> parsedate($a->{'Date'})
or parsedate($b->{'Modified'}) <=> parsedate($a->{'Modified'})
}

@ranked = sort dateorder @dcrarray;

Edited by Piers on 12/09/03 04:56 PM (server time).