Re: Converting output from numeric values to text

In the spirit of TIMTOWTDI you could also just build a hash with your info.

my %months = qw(
       0 => Jan
       1 => Feb
       2 => Mar
);
[download]

Then is $Month was 0

print "$months{$month}\n";
Output = Jan
[download]

Comment on Re: Converting output from numeric values to text Select or Download Code

Replies are listed 'Best First'.
(jeffa) 2Re: Converting output from numeric values to text by jeffa (Bishop) on Mar 29, 2002 at 00:44 UTC
Couldn't .... resist .... temptation: `my %month = map { $_ => 1 } qw(jan feb mar apr may jun jul aug sep oct + nov dec);` [download] Or a hash slice: `my %month; my @month = qw(jan feb mar apr may jun jul aug sep oct nov dec); @month{@month} = (1) x @month;` [download] UDPATE: sorry about that - please allow me to fix it: `my @month = qw(jan feb mar apr may jun jul aug sep oct nov dec); my %month = map { $_ => $month[$_] } (0..$#month); ... $m_name = $month{$m_number};` [download] jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l] [select]
Re: (jeffa) 2Re: Converting output from numeric values to text by PrakashK (Pilgrim) on Mar 29, 2002 at 04:59 UTC
I don't think your code produces what the original poster OnTheEdge wanted. Yours would result in a hash with the month names as keys and 1 as values for each. He wants to convert month numbers into month names. `$m_name = qw(jan feb mar apr may jun jul aug sep oct nov dec)[$m_numbe +r];` [download] /prakash	[reply] [d/l]