別名在perl中傳遞數組參數的含義是什麼？

Question

別名在perl中傳遞數組參數的含義是什麼？下面的代碼是否正確？

#!/usr/bin/perl 

@myarray = (1, 2, 3, 4, 5); 
&my_sub(@myarray); 

sub my_sub { 
    my (@subarray) = @_; 
    print @subarray; 
} 

Answer 1

術語別名描述了多個名稱可以指向同一個數據，沒有引用的語法限制。

在Perl中，別名可以通過例如任意地創建。 Data::Alias，但有一些構造會自行創建別名。

1. foreach循環。目前的元素是它的別名列表中的原始元素：

   my @array = 1 .. 5; 
   for my $elem (@array) { 
       $elem++; # $elem is an alias to $array[$i] 
   } 
   # the @array is now 2 .. 6. 
   

2. 子程序參數。 Perl子程序用平面標量列表來調用（即像哈希或數組這樣的集合被平鋪到這個列表中）。該列表可通過@_陣列訪問。此數組中的所有元素都是參數的別名。

   sub alias_increment { 
       for my $elem (@_) { 
       $elem++; 
       } 
   } 
   
   my @array = 1 .. 5; 
   alias_increment(@array); 
   # array now is 2 .. 6. 
   

   請注意，在這個例子中，@_不是一個別名@array，但$_[$i]是一個別名$array[$i]。

   使用這些別名可以讓你擁有超出參數，但是這使得akward APIs imho。

你也應該注意，Perl的通常有複製語義。這意味着$foo = $bar的聲明通常複製的數據$bar到$foo。副本是一個單獨的實體，如果原始文件是別名，副本本身不會是別名。在列表上下文中複製時，將複製所有元素。這意味着，

my @array = @_; 

做同樣的事情

my @array; 
$array[0] = $_[0]; 
# ... 

這打破了所有走樣。

這實際上被用作Perl中的一種模式來執行「按值調用」並允許限制子例程的副作用。

Answer 2

此代碼：

sub my_sub { 
    my (@subarray) = @_; 
    print @subarray; 
} 

使使通入子程序陣列的拷貝。如果您想在不修改原始數組的情況下修改子程序中的數組，則這是正確的。

在現代Perl中調用子程序的正確方法是my_sub(@myarray);。你不應該使用&。