http://qs1969.pair.com?node_id=253138


in reply to Replacing $mon with Jan, Feb, Mar by regex or other means

jonnyfolk,

The best way that I have found to do this was using a hash.

my %month3letter = (     
                   12 => 'Jan',
                    1 => 'Feb',
                    2 => 'Mar',
                    3 => 'Apr',
                    4 => 'May',
                    5 => 'Jun',
                    6 => 'Jul',
                    7 => 'Aug',
                    8 => 'Sep',
                    9 => 'Oct',
                   10 => 'Nov',
                   11 => 'Dec'
                  );

[download]

Or-well mabye I just like hashes, anyway I have had a great deal of success with it.

Thanks,

Greg

In Section Seekers of Perl Wisdom