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

＃1和＃3是associating an object with a class（面向对象的Perl）的示例。

在＃2中，@_是传递给函数的参数列表，因此$self和$lab1获取前2个传递参数的值。

在＃4中，shift()是一个内置的Perl子例程，它以数组作为参数，然后返回并删除该数组中的第一个项。如果它没有参数，则会在@_上隐式执行。因此$self获取第一个传递参数的值。

Answer 2

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

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

2 个答案: