6

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

2 回答 2

4

#1 和 #3 是将对象与类关联的示例（面向对象的 Perl）。

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

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

于 2011-12-16T21:11:51.800 回答
4

当一个子程序被调用时，传递的参数被放入一个特殊的数组@_中。可以通过将值移出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]; }
于 2011-12-16T22:12:52.023 回答