Tema: funciones y subrutinas
Pregunta: Como pasar parámetros por referencia?
Respuesta: En perl podemos pasar cualquier variable por referencia, ahorrando la memoria utilizada y haciendo más rápido el script.
Código:
my $variable = "hola gente";
&imprimir(\$variable);
exit;
sub imprimir(){
my $ref = $_[0];
print "content-type: text/html \n\n";
print "$$ref";
}
De esta manera pasamos la dirección de memoria en donde está la variable, y cuando la usamos en la subrutina estamos usando la variable original.