Perl开关语句
问题描述:
如果没有任何一个case块匹配,是否有任何方法可以运行一段代码?例如:Perl开关语句
switch($a) {
case // {}
case // {}
...
# DO SOMETHING IF NONE OF THE ABOVE CASES WERE MATCHED
}
else
不是我要找的,因为它只适用于最后一种情况。您正在使用use Switch
答
如果你正在运行它,那么总是会在Perl 5.10中进行切换。
use feature qw(switch);
given($a){
when(1) { print 'Number one'; }
when(2) { print 'Number two'; }
default { print 'Everything else' }
}
答
假设,你可以使用一个else
条款
答
else
确实是你在找什么。
switch ($n) {
case 1 { print "one\n" }
case 2 { print "two\n" }
else { print "other\n" }
}
上面会为$n=3
输出 “其他”, “一” 为$n=1
。
答
“其他不是我要找的东西,因为它只适用于最后一种情况。”
只要你不使用落空:
use Switch 'fallthrough';
你是安全的。
如果您到达最后一个case语句,则表示它上面没有符合条件的case语句。换句话说(如果没有经过的话)else语句只有在所有的case语句都不能满足其条件时才被执行。
答
请注意,任何形式的use Switch
,因为它是被替换(并在未来的perl版本中删除)由Perl的自己的形式switch语句,这是因为已经回答被弃用:
use feature qw(switch);
given ($x)
{
when ('case1') { print 1; }
default {print 0; }
}
使用默认案例可以实现您想要的结果。如果您希望在一个条件评估为真后切换到停止评估,请不要忘记使用last
。
答
如果你只需要决定分配使用三元运算?:
die "Expecting name of the system (reise/synpac/vias) as parameter.\n"
unless $_ = shift;
@opt{qw/Name Code Id UID/} =
/^\s*rei(?:se)?\s*$/i ? qw/ CEP REI 80 ipcp_rei/:
/^\s*syn(?:pac)?\s*$/i ? qw/ SYNPAC SYNPAC 67 ipcp_sym/:
/^\s*vias?\s*$/i ? qw/ VIAS VIAS 68 ipcp_via/:
do { die "Unknown system ‘$_’.\n"; }; # or default values
答
我通常使用下面的框结构,它是更简单,不需要输入任何东西。
SWITCH: {
if($key =~ /^abc/) { $key = "key starts with abc"; last SWITCH; } # 'last' breaks the 'SWITCH' block
if($key =~ /^def/) { $key = "key starts with def"; last SWITCH; }
if($key =~ /^ghi/) { $key = "key starts with ghi"; last SWITCH; }
$key = "Default value";
}
print $key;
答
此语句返回案例2:
my $test = 'abcd';
print test($test);
sub test {
for ($_[0]) {
/ad/ && return 'Case 1';
/bc/ && return 'Case 2';
/c/ && return 'Case 3';
}
}
这一个回报案例3:
my $test = 'abcd';
my $result;
for ($test) {
/ad/ && do { $result = 'case 1' };
/bb/ && do { $result = 'case 2' };
/cd/ && do { $result = 'case 3' };
}
print $result;
这一个案例2:
my $test = 'abcd';
my $result;
for ($test) {
/ad/ && do { $result = 'case 1'; last };
/bc/ && do { $result = 'case 2'; last };
/cd/ && do { $result = 'case 3'; last };
}
print $result;
默认:
my $test = 'abcd';
my $result;
for ($test) {
/aa/ && do { $result = 'case 1'; last };
/bb/ && do { $result = 'case 2'; last };
/cc/ && do { $result = 'case 3'; last };
$result = 'Default';
}
print $result;
答
我写和使用这三个Perl子开关,并发现它们非常有用。
sub switchOne($){ # standard switch
my($prefix,$testVal,@caseVals)[email protected]_;
$s=0;
while($s<scalar(@caseVals)){
if($testVal eq $caseVals->[$s]){
return $prefix."_".$testVal;
}
$s++;
}
return $prefix."Not";
}
sub switchTwo($){ # test for 2 conditions switch = mapping x & Y
my($prefix,$testVal1,$testVal2,@caseVals1,@caseVals2)[email protected]_;
$s=0;
while($s<scalar(@caseVals)){
if($testVal1 eq $caseVals1->[$s] && $testVal2 eq $caseVals2->[$s]){
return $prefix."_".$testVal1;
}
$s++;
}
return $prefix."Not";
}
sub switchRange($){ # test for range switch
my($prefix,$testVal1,@caseVals1,@caseVals2)[email protected]_;
$s=0;
while($s<scalar(@caseVals)){
if($testVal > $caseVals->[$s]&&$testVal < $caseVals2->[$s]){
return $prefix."_".($s+1);
}
$s++;
}
return $prefix."Not";
}
############# here is the calling code
$prefix="case";
@cases=(1,12,3,45,5,61,7,8,9,10); # cases to test against/quote strings
$case=&switchOne($prefix,$testvariable,\@cases);
# prefix must be different for each switch call for different labels
#duplicate labels can cause problems
while($case ne ""){
# initialization common code block
goto $case;
case_1: # cases in array
#code
last;
case_12:
# code
last;
case_61:
last;
case_7:
last;
case_8:
last;
case_9:
last;
case_10:
last;
caseNot:
# no match comes here
#code
last;
}
# here is a dbl variable matching call example
# prefix can be in the call quoted
# both cases must be true to get a match
$case=&switchTwo("intrsctn",$test1,$test2,\@cases1,\@cases2);
while($case ne ""){
# initial code as desired
goto $case;
intrsctn_1:
# code
last;
# as many labels as cases
intrsctnNot:
last;
}
# here is a switch example to test for a variable in a range (between)
$case=&switchRange("thscase",$testvariable,\@cases1,\@cases2);
while($case ne ""){
goto $case;
thscase_1: # this returns the array index +1 on the prefix
# code
last;
# as many labels as cases
thscaseNot:
# N must be uppercase
last;
}
上的开关功能完整的文档:http://perldoc.perl.org/perlsyn.html#Switch-statements – RickF 2011-02-17 13:57:18
需要包括在“使用”的语句根据你想要的语法版本号,好。 – SMT 2013-02-02 18:26:20