Re^7: ** fall through switch/case in perl

goto qw [CASE1 CASE2 CASE3 CASE4 CASE5 CASE6
         CASE7 CASE8 CASE9 CASE10] [$var - 1] || "default";

CASE10: print "a";
CASE9:  print "b";
CASE8:  print "c";
CASE7:  print "d";
CASE6:  print "e";
CASE5:  print "f";
CASE4:  print "g";
CASE3:  print "h";
CASE2:  print "i";
CASE1:  print "j";
        print "\n";
default:
[download]

Comment on Re^7: ** fall through switch/case in perl Download Code

Replies are listed 'Best First'.
Re^8: ** fall through switch/case in perl by Beechbone (Friar) on Sep 08, 2004 at 13:59 UTC
You missed the $var=undef and $var<=0 cases. `goto (undef, 'CASE01' .. 'CASE10')[abs($var) == $var ? $var+0 : 0]\|\|"d +efault"; CASE10: print "a"; CASE09: print "b"; CASE08: print "c"; CASE07: print "d"; CASE06: print "e"; CASE05: print "f"; CASE04: print "g"; CASE03: print "h"; CASE02: print "i"; CASE01: print "j"; print "\n"; default:` [download] _Search, Ask, ^Know	[reply] [d/l]

Replies are listed 'Best First'.

Re^8: ** fall through switch/case in perl
by Beechbone (Friar) on Sep 08, 2004 at 13:59 UTC

goto (undef, 'CASE01' .. 'CASE10')[abs($var) == $var ? $var+0 : 0]||"d
+efault";

CASE10: print "a";
CASE09: print "b";
CASE08: print "c";
CASE07: print "d";
CASE06: print "e";
CASE05: print "f";
CASE04: print "g";
CASE03: print "h";
CASE02: print "i";
CASE01: print "j";
        print "\n";
default:
[download]

_Search, Ask, ^Know

[reply]
[d/l]