Ok, so now Lawrence would you be so kind as to give a little explanation as to what is going on here?
I can see that it works but to be honnest after the line: "my @sorted = " I am lost... Thanks in advance, Rob Coops On 11/9/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
#!/usr/bin/perl use strict; use warnings; my %monthmap = ( JAN => '01', FEB => '02', MAR => '03', APR => '04', MAY => '05', JUN => '06', JUL => '07', AUG => '08', SEP => '09', OCT => '10', NOV => '11', DEC => '12' ); my %reversemap = reverse %monthmap; my @sorted = map { s|(\d{4})(\d{2})(\d{2})(\d{4})|$3${reversemap{$2}}$1.$4|; $_ } sort map { s|(\d{2})(\w{3})(\d{4})\.(\d{4})|$3${monthmap{$2}}$1$4| ; $_ } map { chomp ; $_ } <DATA>; print join("\n",@sorted),"\n"; __DATA__ 19JAN2006.1503 03JAN2006.1647 25DEC2001.0001 19DEC2004.0530 24MAR2003.1115 21MAY2003.0554 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>