Re^2: Sorting an Array

Haven't tried it out, but I think this would sort them.

@statements = sort by_date @statements;

sub by_date {
    my $dateA = $a->{statement_date};
    my $dateB = $b->{statement_date};
    $dateA =~ s!(\d\d)/(\d\d)/(\d\d\d\d)!$3$1$2!;
    $dateB =~ s!(\d\d)/(\d\d)/(\d\d\d\d)!$3$1$2!;
    $dateA cmp $dateB;
}
[download]

Comment on Re^2: Sorting an Array Download Code

Replies are listed 'Best First'.
Re^3: Sorting an Array by AppleFritter (Vicar) on Jul 31, 2014 at 17:04 UTC
You could also use a date parsing module such as Date::Parse and do a Schwartzian Transform: `use Date::Parse; # ... my @statements = map { $_->[1] } sort { $a->[0] <=> $b->[0] } map { [ str2time($_->{'statement_date'}), $_ ] } @statements;` [download] Other date-parsing modules that might be of interest include Date::Manip, HTTP::Date, and Time::ParseDate.	[reply] [d/l]
Re^4: Sorting an Array by choroba (Cardinal) on Jul 31, 2014 at 17:22 UTC
Or, you can use Time::Piece (core since 5.10) and Orcish Maneuver: `my %cache; @sorted = sort { ( $cache{$a} //= 'Time::Piece'->strptime($a->{statement_date}, '%m +/%d/%Y') ) <=> ( $cache{$b} //= 'Time::Piece'->strptime($b->{statement_date}, '%m +/%d/%Y') ) } @statements;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]