Perl 编程/关键字/given

thegivenkeyword

given是一个高度实验性的流程控制关键字，其使用方法类似于 C 中的switch关键字。

thegiven循环从 Perl 5.10.1 开始支持。可以使用use feature "switch"或use 5.10.1命令。使用given命令，其他实验性关键字 break，continue，default，和 when 也将被启用。从 Perl 5.16 开始，也可以使用这些关键字，带CORE:前缀，而不使用use语句。

与 C 中的switch语句不同，C 中的case部分，givenswitch 在每个 when 语句后退出，无需 break 关键字。如果这不是你想要的，就必须使用 continue。

语法

  EXPRESSION when EXPRESSION
  given EXPRESSION

示例

use v5.10.1;

given ($var) {
  when (/^abc/) { $abc = 1 }; continue;
  when (/^def/) { $def = 1 }
  when (/^xyz/) { $xyz = 1 }
  default       { $nothing = 1 }
}

参见

• when