array Pass y escalar a una subrutina Perl

Question

Duplicar posibles: How do pass one array and one string as arguments to a function?

Tengo una función o subrutina, que se lleva en el primer parámetro como una matriz y el segundo parámetro como un escalar Por ejemplo,

sub calc { 
    my @array = $_[0]; 
    my $scalar = $_[1]; 
    print @array, $scalar; 
} 

El problema es que la función es hacer la matriz igual al primer valor de la matriz pasada en, y el escalar que es el segundo valor de la matriz ha pasado. Cuando quiero la primera array para ser la matriz completa, no necesito hacer una copia profunda de la matriz. Por ejemplo,

my @array = ('51', 'M'); 
my $scalar = 21; 

y

calc(@array, $scalar) 

imprimirá 51 M cuando quiero 51 M 21.

Answer 1

lo necesario para pasar en como referencia:

calc(\@array, $scalar)

Y luego acceder a ella como: my @array = @{$_[0]};

Answer 2

La lista de argumentos en una subrutina Perl es simplemente una matriz plana. Si desea pasar una matriz distinta, debe pasarla como una matriz de referencia.

Answer 3

Puede pasar una referencia a la matriz a su función:

calc(\@array, $scalar); 

Cuando necesite acceder a elementos de @array en su subrutina, puede hacerlo así:

my $array = $_[0]; 

# access first element of array 
print $array->[0]; 

Editar: Dado que esto es una referencia a la matriz original, cualquier cambio realizado en la subrutina se reflejará en la matriz original.

Answer 4

pasar su matriz a la subrutina Calc como una matriz ref:

calc(\@array, $scalar); 

Luego, en la subrutina calc, inicializar sus parámetros de entrada como esta:

sub calc { 
    my($array_ref, $scalar) = @_; 

    foreach my $item (@$array_ref) { 
    # process each item in the array ref 
    } 
} 

Answer 5

utilizar una referencia a la array como el primer argumento, o revertir los argumentos para que el escalar sea el primero y la matriz venga después:

sub reversed_args 
{ 
    my($scalar, @array) = @_; 
    # ... 
    print @array, $scalar, "\n"; 
} 

my @array = ('51', 'M'); 
my $scalar = 21; 

reversed_args($scalar, @array); 

No intente Perlprototypes (dos artículos, uno en Stack   Overflow, uno en PerlMonks).