在调用Perl sub时使用&符号和parens

Question

#!/usr/bin/perl

sub t {
  print "in t\n";
  print "@_\n";
  &s;
}

sub s {
  print "in s\n";
  print "@_\n";
}

t(1,2);
print "out\n";
print "@_\n";

输出:

in t
1 2
in s
1 2
out

如您所见,在没有传递参数时&s输出1 2.这是一个功能还是一个bug？

测试版本为5.8.8.

Answer 1

使用&NAME;语法调用子例程使当前@_可见.这在perlsub中有记录:

如果使用&表单调用子例程,则参数列表是可选的,如果省略,则不@_为子例程设置@_数组:调用时的数组对子例程可见.这是新用户可能希望避免的效率机制.

所以,这绝对是一个特色.

Answer 2

在&子名称之前使用并且没有传递参数列表时,当前@_将作为参数传递.所以,这是一个功能.

以下是调用子例程的不同方法:

NAME(LIST); # & is optional with parentheses.
NAME LIST;  # Parentheses optional if predeclared/imported.
&NAME(LIST); # Circumvent prototypes.
&NAME;      # Makes current @_ visible to called subroutine.

来自perldoc perlsub