in reply to sorting mm/dd/yy
foreach $day ( map{join'/',(split/-/)[1,2,0]} sort map{join'-',(split'/')[2,0,1]} keys%totals ){ print "$day\n"; }
|
---|
In Section
Seekers of Perl Wisdom
in reply to sorting mm/dd/yy
foreach $day ( map{join'/',(split/-/)[1,2,0]} sort map{join'-',(split'/')[2,0,1]} keys%totals ){ print "$day\n"; }
|
---|