Using perl Syntax Highlighting
#!/usr/bin/perl
use List::Util qw (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);
use List::Util qw (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.004 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?