Otra forma de pasar un manejador de fichero sin prefijo es usar una referencia
a un typeglob:
#!/usr/bin/perl -w
sub welcome {
my $fh = shift;
print $fh "Welcome ...\n";
}
open(FILE, ">test.txt");
$file = *FILE;
welcome($file);
close($file);
Casiano Rodríguez León
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León
is licensed under a Creative Commons Reconocimiento 3.0 Unported License.
Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19