Foro - Perl en Español

Hola gente, como siempre yo molestando con los archivos...jeje,

En una función abro un archivo y devuelvo el filehandler, en otra función le paso el filehandler por parámetro y lo cierro tranquilamente...

Pero cuanto tengo que imprimirlo se me complica la cosa...Ya que

print $fh "hola";

No me hace nada !!!!!

Alguien tiene alguna pista ?

Saludos
PD: Si nadie tiene una pista lo entiendo, creo que soy el unico anormal que intenta hacer estas cosas...jaja

Hola:

Todo lo que tienes que hacer es poner un asterisco al FILEHANDLE antes de pasarlo, por ejemplo:

Código: Seleccionar todo

open(FILE, ">archivo.txt");

   imprime_hola(*FILE);

close(FILE);


sub imprime_hola{

 my $fh = shift;

 print $fh "HOLA\n";

}


Al poner el asterisco pasas el typeglob de tu FILEHANDLE.


SALUDOS

Oye amigo, en serio, hay algo que no sepas ?

Como siempre es un gusto robarte un poco de tu sabiduría...jeje

Un abrazo !!!