Perl switch 语句

---

switch语句允许测试变量是否与值列表相等。每个值称为一个 case，并且针对每个switch case检查正在打开的变量。

switch case 实现依赖于Switch模块，而Switch模块已使用Filter::Util::Call和Text::Balanced实现，并且需要安装这两个模块。

句法

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 语句之后的语句（即通常是另一个 case），而不是转移到周围的 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" }
   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 语句中，fall-though 通常是一个坏主意。然而，现在考虑一个失败的情况，我们将使用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