Re: [MacPerl] hypermail

[Axel M. Roest]

At 10:54 +0200 12-07-2001, David wrote:
> # Change the month into a numerical problem.  If only the months
> # were alphabetically arranged this would be so much easier!
> $amon = 1 if $amon eq 'Jan'; $amon = 2 if $amon eq 'Feb';
> $amon = 3 if $amon eq 'Mar'; $amon = 4 if $amon eq 'Apr';
> $amon = 5 if $amon eq 'May'; $amon = 6 if $amon eq 'Jun';
> $amon = 7 if $amon eq 'Jul'; $amon = 8 if $amon eq 'Aug';
> $amon = 9 if $amon eq 'Sep'; $amon = 10 if $amon eq 'Oct';
> $amon = 11 if $amon eq 'Nov'; $amon = 12 if $amon eq 'Dec';
> $bmon = 1 if $bmon eq 'Jan'; $bmon = 2 if $bmon eq 'Feb';
> $bmon = 3 if $bmon eq 'Mar'; $bmon = 4 if $bmon eq 'Apr';
> $bmon = 5 if $bmon eq 'May'; $bmon = 6 if $bmon eq 'Jun';
> $bmon = 7 if $bmon eq 'Jul'; $bmon = 8 if $bmon eq 'Aug';
> $bmon = 9 if $bmon eq 'Sep'; $bmon = 10 if $bmon eq 'Oct';
> $bmon = 11 if $bmon eq 'Nov'; $bmon = 12 if $bmon eq 'Dec';

I had the same problem, but used a hash instead:

        my %monthlookup = (
                JAN => "01",
                FEB => "02",
                MRT => "03",
                APR => "04",
                MEI => "05",
                JUN => "06",
                JUL => "07",
                AUG => "08",
                SEP => "09",
                OKT => "10",
                NOV => "11",
                DEC => "12"
        );

$month = "NOV";
print "month: $month = $monthlookup{$month}\n";


Much, and much faster (probably) than your if-spaghetti :)

Hope it helps

Axel

________________________
Axel M. Roest           | AXEL Development & Support
[EMAIL PROTECTED]            | Macintosh developer & UNIX sysadmin
http://www.axel.nu      | XOIP: 084-8749988