Re^3: copying records from one file to another with filter.

You could replace

switch ($month) 
{
        case [1]    {$mon="Jan"}
        case [2]    {$mon="Feb"}
        case [3]    {$mon="Mar"}
        case [4]    {$mon="Apr"}
        case [5]    {$mon="May"}
        case [6]    {$mon="Jun"}
        case [7]    {$mon="Jul"}
        case [8]    {$mon="Aug"}
        case [9]    {$mon="Sep"}
        case [10]    {$mon="Oct"}
        case [11]    {$mon="Nov"}
        case [12]    {$mon="Dec"}
}
[download]

with

$mon = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec))[$month-1]
+;
[download]

Comment on Re^3: copying records from one file to another with filter. Select or Download Code

Replies are listed 'Best First'.
Re^4: copying records from one file to another with filter. by avanta (Beadle) on Jan 09, 2010 at 18:03 UTC
Thanks a lot for the suggestion.	[reply]