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


Welcome to the Monastery
	PerlMonks

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

by Roy Johnson (Monsignor)

on Nov 18, 2008 at 21:53 UTC ( #724399=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://724399]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (2)

As of 2023-03-24 04:16 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

Notices^?