Re: switch, transliteration ( tr/// ) of $

my $bar = (0,'low','med','high')[$foo=~tr/I//] || 'drat';
# or
my $bar;
$bar = (0,'low','med','high')[tr/I//] || 'drat' for $foo;
[download]

Comment on Re: switch, transliteration ( tr/// ) of $_ issue Download Code

Replies are listed 'Best First'.
Re^2: switch, transliteration ( tr/// ) of $_ issue by blazar (Canon) on Nov 19, 2008 at 11:40 UTC
No real advantage, but for completeness: `my ($bar) = map +(0,'low','med','high')[tr/I//] \|\| 'drat', $foo; # or my ($bar) = map qw(0 low med high)[tr/I//] \|\| 'drat', $foo;` [download] qw helps, and "0" is false... `--` ~~If you can't understand the incipit, then please check the IPB Campaign.~~	[reply] [d/l] [select]