perl - 如何在 perl 5.24 中关闭 "when is experimental ..."？

Question

下面的代码是直接从 perldoc.perl.org 上的当前 perlsyn 页面复制而来的。[我根据需要添加了一个初始化和声明以使其运行(并且它按预期工作)，但重点是'when'关键字]

Perl 5.24 提示“何时”是实验性的。很公平，但我不想每次使用关键字时都看到这个。

没有警告 qw(experimental::when) 不起作用 - “未知警告类别 ...”

我也尝试过“切换”作为类别

是否有其他方法可以抑制此警告(除了一般禁用警告)？

use v5.14;
for ($var) {
    $abc = 1 when /^abc/;
    $def = 1 when /^def/;
    $xyz = 1 when /^xyz/;
    default { $nothing = 1 }
}

Answer 1

您可以通过

启用此构造而不会发出警告

use experimental 'switch';

或仅通过

禁用“实验性”警告类别

no warnings 'experimental::smartmatch';

(参见 full list of available warning categories in perldoc warnings)。

但请注意，smartmatch、given 和 when 构造被认为从根本上被破坏，并且正在被删除/重新设计。当您在其他 perl 版本上运行该代码时，仅消除警告就会破坏您的代码。

相反，请更愿意明确地拼出这段代码:

for ($var) {
    if    (/^abc/) { $abc = 1 }
    elsif (/^def/) { $def = 1 }
    elsif (/^xyz/) { $xyz = 1 }
    else { $nothing = 1 }
}

是的，它更丑陋，但它也适用于 $var 的所有值和所有 Perl5 版本。