Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: sorting mm/dd/yy

by I0 (Priest)
on Dec 15, 2000 at 11:11 UTC ( [id://46803] : note . print w/replies, xml ) Need Help??


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"; }