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

in reply to switch, transliteration ( tr/// ) of $_ issue

Or you could opt for the old-school approach, and just replace your switch with for, and your whens with if-elsifs:

for ( $foo ) {
    if    ( tr/I/I/ == 1 ) { $bar = 'low' }
    elsif ( tr/I/I/ == 2 ) { $bar = 'med' }
    elsif ( tr/I/I/ == 3 ) { $bar = 'high' }
    else  { $bar = "drat" }
}
[download]

Caution: Contents may have been coded under pressure.

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

In Section Seekers of Perl Wisdom