在Perl中切换与给定与for-when与if-elsif-else

yon*_*100 3 perl if-statement switch-statement

在我写的最后一个脚本中,我需要一个类似于switch语句行为的行为.在Perl中简单搜索一个等价物导致我use Switch.一开始,一切都很好并且正常工作,直到所有内容都崩溃了并且描述性错误(它发生在具有正则表达式的情况的switch语句中,但奇怪的是它并没有发生在其他类似的switch语句中).

编辑:崩溃的代码看起来像这样:

switch ($var) {
    case /pattern1/ {...}
    case /pattern2/ {...}
    ...
    else {...}
}
Run Code Online (Sandbox Code Playgroud)

这导致我放弃使用Switch.pm和寻找替代方案.

我发现,givenfor-when,当然总是有简单的,有点幼稚if-elsif-else.

  1. 为什么Switch.pm这么不稳定?
  2. 这似乎givenfor-when具有类似的结构,但我想有区别(因为两者存在).它是什么?
  3. 是否if-elsif-else明显慢于其他选项?

ike*_*ami 7

Perl when和智能匹配是实验性的,如果没有向后不兼容的更改,它们将不会成为功能.你不应该使用这些.

Switch.pm是一个源过滤器,因此当出现错误时它会产生不正确的错误消息.它也遇到与智能匹配相同的问题.你不应该使用它.

因此,在您列出的选项中,只有一个是可行的,而且它根本不会慢!

  • 这只是语法。例如,`given ($x) { when ([qw( abc )]) { ... } when ([qw( def )]) { ... } ... }` vs `if (grep { $ x eq $_ } qw( abc )) { ... } elsif (grep { $x eq $_ } qw( def )) { ... } ...` (2认同)