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参数和当前switch值之间的适当匹配类型。

• 如果匹配成功，则执行与case语句关联的必需代码块。

• switch语句可以有一个可选的else case，它必须出现在switch的末尾。默认case可用于在没有匹配任何case时执行任务。

• 如果case代码块执行一个非目标的next，控制会立即转移到case语句之后的语句（即通常是另一个case），而不是switch代码块之外。

• 并非每个case都需要包含next。如果没有出现next，控制流将不会贯穿后续的case。

流程图

示例

#!/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语句中是个坏主意。但是，现在考虑一个贯穿case，我们将使用next将控制转移到下一个匹配的case，在本例中是一个列表：

#!/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