Perl 编程/关键词/when

Thewhenkeyword

when是一个流控制关键字，用于 for 和 given 语句中。

形式表达式 when 表达式用于 for 语句中，形式when 表达式在 given 语句中类似于 C 的switch语句。

请注意， given 被认为是高度实验性的！

语法

  EXPRESSION when EXPRESSION
  when EXPRESSION

示例

use v5.14;

for ($var) {
  $abc = 1 when /^abcd/;
  $def = 1 when /^efgh/;
  $xyz = 1 when /^wxyz/;
  default { $nothing = 1 }
}
}}

use v5.10.1;

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

use v5.14;

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

参见

• for
• given