Documentación

Funciones
• Ejemplo 8: Paso de valores por referencia
my @i = ('pepe', 'juan', 'pedro');
my @j = ('lola', 'ana', 'eva');
print "En el programa principal antes de la llamada i es: @i\n";
print "En el programa principal antes de la llamada j es: @j\n";
subru_nueva(@i, @j);
print "En el programa principal despues de la llamada i es: @i\n";
print "En el programa principal despues de la llamada j es: @j\n";
exit;
sub subru_nueva {
my (@i, @j) = @_;
print "En la subrutina i es: @i\n";
print "En la subrutina j es: @j\n";
push (@i, '4');
shift (@j);
}
my @i = ('pepe', 'juan', 'pedro');
my @j = ('lola', 'ana', 'eva');
print "En el programa principal antes de la llamada i es: @i\n";
print "En el programa principal antes de la llamada j es: @j\n";
subru_nueva(\@i, \@j);
print "En el programa principal despues de la llamada i es: @i\n";
print "En el programa principal despues de la llamada j es: @j\n";
exit;
sub subru_nueva {
my ($i, $j) = @_;
print "En la subrutina i es: @$i\n";
print "En la subrutina j es: @$j\n";
push (@$i, '4');
shift (@$j);
}