当我使用“given”时为什么会出现语法错误？

Question

我正在尝试运行以下代码：

foreach my $k (keys %rec) {
    #switch for watchlist figures
    given ($k) { #line 93

        # Code omitted

        when ("p") { #positive breakout
            if ($row{cls} > $rec{$k}) {                       
                $email .= "positive";   
            } # line 104            
        }                       
        when ("n") { #negative breakout
            if ($row{cls} < $rec{$k}) { #line 107

但我得到一个语法错误：

syntax error at check_watch.pl line 93, near ") {"
syntax error at check_watch.pl line 104, near "}"
Unterminated <> operator at check_watch.pl line 107.

为什么？

Answer 1

given和when仅在use feature "switch";时可用use feature "switch"; 或use v5.10; （或某些后来的值）生效。 将其中一行放在源文件的顶部。

Answer 2

这是因为它默认不启用。 添加行：

use 5.10.1;

到代码

Answer 3

由于Perl 5之前的5.10版本没有given或者when关键字，因此您可以使用这些名称定义自定义函数，这当然会有不同的语法。 为了避免破坏与执行该操作的程序的向后兼容性，只有在您特别要求时才启用given和when ，通过放置其中任何一个

use 5.010;

要么

use feature 'switch';

在词法范围的顶部，你想使用关键字。此外，语义不断变化。 例如， given最初设计为默认使用词汇$_ ，但词汇$_对于Perl 5来说是一个非常不合适的问题，他们仍在修改这个问题。 在某些时候， given停止词汇化$_ ，但当然这是一个向后不兼容的变化。 when （主要）设计使用~~ ，但该操作符在5.10中具有非常复杂的语义; 它们已被修改过一次，并且有计划再次修改它们。 （这就是为什么Perl 5开发人员决定在将它们首次包含在开发版本中时将所有新功能标记为“实验性”的原因）。

因为它们是实验性的，要在没有警告的情况下使用它们，您还需要包括：

no if $] >= 5.017011, warnings => 'experimental::smartmatch';

或添加5.18依赖项并使用

no warnings 'experimental::smartmatch';

，或添加对experimental CPAN模块的依赖和使用

use experimental 'smartmatch';

。

现在，另一方面，Perl 5开发人员（当然）需要人们在非生产关键（或完全经过单元测试的！）代码中使用given ， when和~~并给予他们反馈。 如果可以的话，一定要使用它们。