Just another suggestion on how you might accomplish the same thing: ######################################
my @months = qw(XXX JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC); return $months[$tmp] ###################################### -----Original Message----- From: Charlotte Hee [mailto:[EMAIL PROTECTED] Sent: Friday, April 02, 2004 4:45 PM To: [EMAIL PROTECTED] Subject: illegal octal digit '8'? <snip> if ( $tmp == 01 ){ $xmon = 'JAN'; } if ( $tmp == 02 ){ $xmon = 'FEB'; } if ( $tmp == 03 ){ $xmon = 'MAR'; } if ( $tmp == 04 ){ $xmon = 'APR'; } if ( $tmp == 05 ){ $xmon = 'MAY'; } if ( $tmp == 06 ){ $xmon = 'JUN'; } if ( $tmp == 07 ){ $xmon = 'JUL'; } if ( $tmp == 08 ){ $xmon = 'AUG'; } #<-- illegal error if ( $tmp == 09 ){ $xmon = 'SEP'; } #<-- illegal error if ( $tmp == 10 ){ $xmon = 'OCT'; } if ( $tmp == 11 ){ $xmon = 'NOV'; } if ( $tmp == 12 ){ $xmon = 'DEC'; } } return $xmon; -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
