Perl中参数输入机制有什么区别？

Question

在读取下载的Perl模块时,我找到了几种定义输入参数的方法,如下所示.它们之间有什么区别？

sub new{
  my $class = shift;
  my $self = {@_};
  bless{$self,  $class};
}

sub count1{
  my ($self, $lab1) = @_;
}

sub new1{
  my ($class, $lab1) = @_;
  my $self = {};
  bless $class, $self;
}

sub setpath{
  my $self = shift;
}

Answer 1

当调用子程序时，传递的参数被放入一个特殊的数组中@_。人们可以通过移出值my $foo = shift或直接数组赋值来使用该数组my ($foo,$bar)=@_; ，甚至可以直接使用数组中的值：$_[0]

为什么一个人要与其他人相对？直接数组赋值是最标准和最常见的。有时，当有可选的尾随值时，会使用移位方式。不鼓励直接使用数组，除非在一些小领域：调用其他函数的包装函数，尤其是在对象内部。包装其他函数并修改输入的函数。此外，其特殊形式goto &func会立即删除当前调用堆栈并在 的当前值上调用 func @_。

# use shift for optional trailing values 
use v5.10;
my $foo = shift;
my $bar = shift // 'default bar value';
my $baz = shift // 'default baz value';

#obj method to call related non-object function.
sub bar { my $self = shift; _bar(@_) }
sub longname { shortname(@_) }
sub get { return $_[0]->$_[1]; }