İki listeyi Perl alt yordamına nasıl geçirebilirim?

Question

İki listeyi Perl'de bir sub'e geçirmek mümkün mü, örneğin:

sub Foo { 
my(@list1,@list2) = @_; 

} 

@_ iki liste oluşturabildiğimi biliyorum, her alt liste istenen argüman olarak, sadece bir temizleyici yol

Answer 1

otypes ve ben onları çoğu yerde onlardan uzak tutmayı tercih ederim. Sadece prototip atlayıp el başvuruları geçirebilirsiniz: sen hiç referanslarla işe yaramadıysa, güzel öğretici için perlreftut kontrol

sub foo { 
    my $arr1 = shift; 
    my $arr2 = shift; 

    # Access arrays as references 
} 

foo(\@wiz, \@waz); # Pass in wiz/waz as refs 
foo([1,2,4],[3,5,6]); # Hard coded arrays 

.

Answer 2

Değerlere göre iki liste iletirseniz, @_ numaralı telefondan büyük bir liste alırsınız.

:

1 2 3 5 6 7 
<blank line> 

başvuruyla onları geçmek gerekirdi iki dizileri geçmesi için: Bu baskı sona erecek

#!/usr/bin/perl 

sub test 
{ 
    my (@a, @b) = @_; 

    print "@a\n"; 
    print "@b\n"; 
} 

my @array1 = (1,2,3); 
my @array2 = (5,6,7); 

test(@array1, @array2); 

:

my(@list1,@list2) = @_; herhangi bir anlam ifade etmez

test(\@array1, \@array2); 

Ve altınızda bunları referans olarak görmeniz gerekir:

sub test 
{ 
    my ($arrayRef1, $arrayRef2) = @_; 
    print "@$arrayRef1\n"; 
    print "@$arrayRef2\n"; 
}