Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^3: Not getting desire output by using switch statement in Perl

by choroba (Chancellor)
on Jan 06, 2014 at 12:11 UTC ( #1069499=note: print w/replies, xml ) Need Help??


in reply to Re^2: Not getting desire output by using switch statement in Perl
in thread Not getting desire output by using switch statement in Perl

Easy. See ord:
if ($a =~ /[a-z]/) { print ord($a) - 96; } else { print "Everything else"; }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ