Foro - Perl en Español

por **gorkalinux** » 2009-06-23 03:47 @199

Si ejecuto esto...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use List::Utilqw(sum);
use strict;

sub funcion
{
my($dato)=$_[0];
my(@vector1)=$_[1];
my(@vector2)=$_[2];

print$dato."\n\n";

foreach(@vector1)
{
print$_."\n";
}
print"\n";

foreach(@vector2)
{
print$_."\n";
}
print"\n";

}

my$valor="BIEN";

my@array1=(
"hello",
"my",
"dear",
"friend"
);

my@array2=(
">hola",
">que",
">tal",
">estas"
);


funcion($valor,@array1,@array2);Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

... obtengo esto ...

Código: Seleccionar todo: BIEN hello my

... en lugar de esto ...

Código: Seleccionar todo: BIEN hello my dear friend hola que tal estas

... ¿cómo paso varios arrays como parámetros a una función de perl?

#!/usr/bin/perl
use strict;

sub funcion {
my($dato,$vector1_ref,$vector2_ref)=@_;

print"$dato\n\n";

foreach(@{$vector1_ref}){
print"$_\n";
}
print"\n";

foreach(@{$vector2_ref}){
print"$_\n";
}
print"\n";
}

my$valor="BIEN";

my@array1=(
"hello",
"my",
"dear",
"friend"
);

my@array2=(
">hola",
">que",
">tal",
">estas"
);


funcion($valor,\@array1,\@array2);Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **gorkalinux** » 2009-06-23 04:34 @232

Ahora lo entiendo. Muchas gracias, Explorer.
He oído que hay que tener cuidado porque los valores por referencia modificados se modifican también fuera de la función, pero creo que basta con hacer simplemente ...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my@vector1=@{$vector1_ref};
my@vector2=@{$vector2_ref};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

... para des-referenciarlos. Para quien pueda necesitarlo.

Un saludo.

Foro - Perl en Español

Varios arrays como parámetros a función

Varios arrays como parámetros a función

Publicidad

¿Quién está conectado?