¿Cómo puedo pasar dos listas a una subrutina de Perl?

Question

¿Es posible pasar dos listas a un sub en Perl, por ejemplo:

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

} 

Sé que podría hacer @_ dos listas, con cada sublista siendo el argumento deseado, me pregunto si hay una forma más limpia

Answer 1

Bueno, si quieres dos matrices se puede usar un prototipo:

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

    # Access arrays as references 
} 

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

pero hay muchas maneras de conseguir alrededor prot otypes, y prefiero evitarlos en la mayoría de los lugares. Usted puede simplemente omitir el prototipo y pasar manualmente las referencias:

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 

Si usted no ha trabajado con referencias en absoluto, echa un vistazo a perlreftut para un buen tutorial.

Answer 2

Si pasa dos listas por valor ... obtendrá una gran lista en @_.

my(@list1,@list2) = @_; no tiene ningún sentido:

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

Esto va a terminar la impresión:

1 2 3 5 6 7 
<blank line> 

Para pasar dos matrices, que había necesidad de pasarlos por referencia:

test(\@array1, \@array2); 

Y en su sub debe tratarlos como referencias:

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