將數組傳遞給分別打印每個數組的子例程

Question

我知道這可能是一個簡單的修復，但我一直無法通過google找到答案，並通過這裏的問題搜索。

我的目標是將多個數組傳遞給子例程，該子例程分別遍歷每個數組，並在每個數組之前和之後打印每個數組。

我有什麼：

@A1 = (1, 2, 3); 
@A2 = (4, 5, 6); 

printdata(@A1, @A2) ; 

sub printdata { 
    foreach(@_) { 
     print "$_" ; 
     print "@@@" 
     } 
    } 

什麼，我試圖得到的是：

123 @@@ 456 @@@

而是其治療兩個陣列爲一體，並通過每個迭代數組中的變量，將每個變量之後的分隔符放在整個數組中。

1 @@@ 2 @@@ 3 @@@等.....

我不知道怎麼去子程序治療陣列作爲單獨的，而不是一個。

任何幫助將不勝感激！

Answer 1

您需要通過數組作爲參考：

@A1 = (1, 2, 3); 
@A2 = (4, 5, 6); 

printdata(\@A1, \@A2) ; 

sub printdata { 
    foreach(@_) { 
     print @$_ ; 
     print "@@@" 
     } 
} 

子調用擴展陣列到標量的列表，然後將其傳遞給@_變量中的子。例如： -

printdata(@A1, @A2); 

等於：

printdata(1,2,3,4,5,6); 

Answer 2

參見 「Pass by Reference」 一節中perldoc perlsub。

Answer 3

use strict; 
use warnings; 
use English qw<$LIST_SEPARATOR>; 

my @A1 = (1, 2, 3); 
my @A2 = (4, 5, 6); 
{ local $LIST_SEPARATOR = ''; 
    my @a = map { "@$_" } \@A1, \@A2; 
    $LIST_SEPARATOR = '@@@'; 
    print "@a\n"; 
} 

你也可以使用join（po-tay-to，po-tah-to）。

my @a = map { join('', @$_) } \@A1, \@A2; 
print join('@@@', @a), "\n";