Help for this page

Select Code to Download


  1. or download this
    my @files = <DATA>; chomp @files;

...
fwlog.1Mar2005.gz
fwlog.2Mar2005.gz
fwlog.20Mar2005.gz
  2. or download this
    my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
my %months;
...
 (split(/\./,$_,3))[1] =~ /^(\d+)([A-Za-z]+)(\d+)$/; 
 [$_, $3, $months{$2}, sprintf("%02d", $1) ] 
} @files;