Perl中的参数输入机制有什么区别?
在阅读下载的Perl模块时,我发现了几种定义输入参数的方法,如下所示。它们之间有什么区别Perl中的参数输入机制有什么区别?,perl,input,parameter-passing,bless,Perl,Input,Parameter Passing,Bless,在阅读下载的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 set
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;
}
#1和#3是(面向对象的Perl)的示例
在#2中,是传递给函数的参数列表,因此$self
和$lab1
获取前两个传递参数的值
在#4中,是一个内置的Perl子例程,它将数组作为参数,然后返回并删除该数组中的第一项。如果它没有参数,则在
@
上隐式执行。因此,$self
获取第一个传递的参数的值。调用子例程时,传递的参数被放入一个特殊数组@
。可以通过将值移出my$foo=shift
或直接数组赋值my$foo$bar=@
甚至可以直接使用数组中的值:$\u0]
为什么一对一?直接数组分配是最标准和最常见的。有时,当有可选的尾随值时,会使用移位方式。不鼓励直接使用数组,除非是在少数小范围内:调用其他函数的包装函数,特别是在对象内部。包装其他函数并修改输入的函数。还有一种特殊形式的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]; }