当我使用"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 v5.10;(或稍后的某个值)生效时可用.将其中一行放在源文件的顶部.

Answer 2

这是因为它默认不启用.添加行:

use 5.10.1;

到代码