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。