Perl子参考语法

Question

那里 - 刚开始学习Perl。

这是我在做什么让一个数组成子功能 - 能不能做到在1号线更简单？

sub my_sub { 
    my $ref_array = shift; 
    my @array = @$ref_array; 
} 

Answer 1

如果你想在shift以及效果，

sub my_sub { 
    my @array = @{+shift}; 
} 

的unary + operator力shift被视为一种表达，不一个变量名。 （否则@{shift}与@shift意味着相同。）

Answer 2

您可以简化就像

sub my_sub { 
    my @array = @{$_[0]}; 
} 

哪里@_是默认的阵列/列表，在参数传递中。

Answer 3

这是便宜了不少赫克：

local *array = shift(); 

Answer 4

另一种方法是不用担心它是一个arrayref - 就这样离开它，并将其用于其余的sub-as。