Question

分别将两段ASCII文本（一个L =长，一个S =短）读入@arrayOne和@arrayTwo进行比较。以下子例程＆amp; analyze从smart.pl代码中获取两个数组引用，但在通过perl -c smart.pl检查时会引发错误。不幸的是我无法弄清楚原因：

68  sub analyse {
69      my $arraysize ; my $arrLref ; my $arrSref ; my $item_L ; my $item_S ; my $value ;
70
71      $arrSref = shift ; $arrLref = shift ;
72      $item_S = shift @{ $arrSref } ;
73      $item_L = shift @{ $arrLref } ;
74
75      $arraysize = $#{ $arrSref } ;
76      while ( $arraysize > 0 ) {
77          $value = ( $item_S cmp $item_L ) ;
78          given ( $value ) {
79              when ( -1 ) {
80                  push ( @mergedArray , $item_S ) ;
81                  $item_S = shift @{ $arrSref }
82              }
83              when ( 0 ) {
84                  push ( @mergedArray , $item_L ) ;
85                  $item_S = shift @{ $arrSref } ;
86                  $item_L = shift @{ $arrLref }
87              }
88              when ( 1 ) {
89                  push ( @mergedArray , $item_L ) ;
90                  $item_L = shift @{ $arrLref }
91              }
92              default { &die }
93          }
94      }
95  }

使用以下语句中止编译：

    $ perl -c smart.pl 
    syntax error at smart.pl line 78, near ") {"
    syntax error at smart.pl line 83, near ") {"
    syntax error at smart.pl line 88, near ") {"
    Global symbol "$item_L" requires explicit package name at smart.pl line 89.
    Global symbol "$item_L" requires explicit package name at smart.pl line 90.
    Global symbol "$arrLref" requires explicit package name at smart.pl line 90.
    syntax error at smart.pl line 91, near "}"
    smart.pl had compilation errors.

也许别人有线索？ Thx提前-DrP -

Answer 1

根据Perl documentation，要使用given和when，需要满足两个条件：

您需要use feature "switch";
您需要Perl 5.10.1 +

这应该解释你在第78,83和88行所看到的内容。

关于您在第89和第90行上看到的警告，这些警告与使用use strict;有关，可以找到对这些警告的出色解释here。

Perl脚本中的奇数子例程编译错误

1 个答案: