是否有一个整洁的方法在Perl 5中做case或switch语句？在我看来，他们应该包括一个开关版本6 ..
我需要这个控制结构在一个脚本，我听说你可以导入一个“交换模块”。但是如何实现它，而无需导入以最小化依赖和获得可移植性？
解决方法
如果你使用的Perl 5.10你有
given/when这是一个switch语句(注意，它可以做比比较regexes，阅读链接的文档，以查看其全部潜力)：
#or any of the dozen other ways to tell 5.10 to use its new features
use feature qw/switch/;
given($string) {
when (/^abc/) { $abc = 1; }
when (/^def/) { $def = 1; }
when (/^xyz/) { $xyz = 1; }
default { $nothing = 1; }
}
如果你使用Perl 5.8或更早版本，你必须使用if / elsif / else语句：
if ($string =~ /^abc/) { $abc = 1; }
elsif ($string =~ /^def/) { $def = 1; }
elsif ($string =~ /^zyz/) { $xyz = 1; }
else { $nothing = 1; }
$string =~ /^abc/ ? $abc = 1 :
$string =~ /^def/ ? $def = 1 :
$string =~ /^xyz/ ? $xyz = 1 :
$nothing = 1;
在Core Perl(Switch)中有一个模块，通过source filters为你提供假的switch语句，但是我的理解是它是fragile：
use Switch;
switch ($string) {
case /^abc/ {
case /^abc/ { $abc = 1 }
case /^def/ { $def = 1 }
case /^xyz/ { $xyz = 1 }
else { $nothing = 1 }
}
或替代语法
use Switch 'Perl6';
given ($string) {
when /^abc/ { $abc = 1; }
when /^def/ { $def = 1; }
when /^xyz/ { $xyz = 1; }
default { $nothing = 1; }
}