Perl中参数输入机制有什么区别?
发布时间:2020-12-15 22:05:06 所属栏目:大数据 来源:网络整理
导读:在读取下载的Perl模块时,我找到了几种定义输入参数的方法,如下所示.它们之间有什么区别? sub new{ my $class = shift; my $self = {@_}; bless{$self,$class};}sub count1{ my ($self,$lab1) = @_;}sub new1{ my ($class,$lab1) = @_; my $self = {}; 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 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]; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |