如何在Perl

Question

switch語句中組病例給定一個代碼

use Switch; 

my $var1x = "one"; 

switch ($var1x) { 
    case "one" { print "Why so small?\n"} 
    case "two" { print "Why so small?\n"} 
    case "three" { print "That is ok.\n"} 
    case "four" { print "That is ok.\n"} 
} 

我想組的類似案件的執行。任何建議如何正確寫入Perl？

Answer 1

請不要使用舊的，慢的Switch模塊。

通常通過CODEREF散列來解決。

my $var1x = "one"; 

my $is_ok  = sub { print "That is ok.\n"}; 
my $why_small = sub { print "Why so small?\n" }; 

my %switch = (
    one => $why_small, 
    two => $why_small, 
    three => $is_ok, 
    four => $is_ok, 
    ten => sub { print "Unbelievable!\n"; }, 
); 

$switch{$var1x}->();