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

在读取下载的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;
}

解决方法

调用子例程时,传递的参数将放入特殊数组@_中.可以通过将值移出我的$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]; }

原文地址：https://www.jb51.cc/Perl/171352.html