Jak mogę przekazać dwie listy do podprocedury Perla?

Question

Czy to możliwe, aby przejść dwie listy do sub w Perl, na przykład:

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

} 

Wiem, że mógłbym zrobić @_ dwa listy, z każdej podlistę bycia pożądaną argumentu, Zastanawiam się, czy istnieje czystszy sposób

Answer 1

Cóż, jeśli chcesz dwa tablice można użyć prototype:

sub foo (\@\@) { 
    my $arr1 = shift; 
    my $arr2 = shift; 

    # Access arrays as references 
} 

foo(@wiz, @waz); # @wiz and @waz won't be flattened. 

ale istnieje wiele sposobów, aby dostać się wokół prot otypy i wolę ich unikać w większości miejsc. można po prostu pominąć prototyp i ręcznie przekazać referencje:

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 

Jeśli nie pracował z odniesieniami w ogóle, sprawdź perlreftut za miły tutoriala.

Answer 2

Jeśli przekażesz dwie listy według wartości ... dostaniesz jedną dużą listę w @_.

my(@list1,@list2) = @_; nie ma żadnego sensu:

#!/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); 

ta zakończy się druk:

1 2 3 5 6 7 
<blank line> 

zdać dwie tablice, trzeba by przekazać je poprzez odniesienie:

test(\@array1, \@array2); 

W twoim podsiebie musisz traktować je jak referencje:

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