switch statement
优质
小牛编辑
174浏览
2023-12-01
switch语句允许测试变量与值列表的相等性。 每个值称为一个案例,并检查每个switch case接通的变量。
交换机案例实现依赖于Switch模块, Switch模块已使用Filter::Util::Call和Text::Balanced并且需要安装这两个模块。
语法 (Syntax)
Perl编程语言中switch语句的概要如下 -
use Switch;
switch(argument) {
case 1 { print "number 1" }
case "a" { print "string a" }
case [1..10,42] { print "number in list" }
case (\@array) { print "number in list" }
case /\w+/ { print "pattern" }
case qr/\w+/ { print "pattern" }
case (\%hash) { print "entry in hash" }
case (\&sub) { print "arg to subroutine" }
else { print "previous case not true" }
}
以下规则适用于switch语句 -
switch语句采用括号中指定的任何类型的单个标量参数。
该值后跟一个块,该块可能包含一个或多个case语句,后跟一个Perl语句块。
case语句采用单个标量参数,并在case参数和当前开关值之间选择适当的匹配类型。
如果匹配成功,则执行与case语句关联的强制块。
switch语句可以有一个可选的else case,它必须出现在switch的末尾。 当没有任何案例匹配时,默认情况可用于执行任务。
如果一个case块执行一个非目标的next ,那么控制会立即转移到case语句之后的语句中(即通常是另一种情况),而不是转移到周围的switch块之外。
并非每个案例都需要包含next 。 如果没有next出现,则控制流程not fall through后续情况not fall through 。
流程图 (Flow Diagram)
例子 (Example)
#!/usr/local/bin/perl
use Switch;
$var = 10;
@array = (10, 20, 30);
%hash = ('key1' => 10, 'key2' => 20);
switch($var) {
case 10 { print "number 100\n" }
case "a" { print "string a" }
case [1..10,42] { print "number in list" }
case (\@array) { print "number in list" }
case (\%hash) { print "entry in hash" }
else { print "previous case not true" }
}
执行上述代码时,会产生以下结果 -
number 100
在switch语句中,掉线通常是一个坏主意。 但是,现在考虑一个落空案例,我们将使用next将控件转移到下一个匹配的案例,在这种情况下是一个列表 -
#!/usr/local/bin/perl
use Switch;
$var = 10;
@array = (10, 20, 30);
%hash = ('key1' => 10, 'key2' => 20);
switch($var) {
case 10 { print "number 100\n"; next; }
case "a" { print "string a" }
case [1..10,42] { print "number in list" }
case (\@array) { print "number in list" }
case (\%hash) { print "entry in hash" }
else { print "previous case not true" }
}
执行上述代码时,会产生以下结果 -
number 100
number in list