select
modifica la salida por defecto.
En vez de STDOUT el fichero especificado será utilizado por
defecto. La variable especial $|, cuando vale 1, hace que los buffers
de salida se vacíen inmediatamente a la salida por defecto.
> cat select.pl #!/usr/bin/perl -w my $user = shift; open LOG, ">/tmp/log.file" or die "Se esperaba un sistema Unix"; select LOG; $| = 1; print "Esto es una prueba\n"; select STDOUT; print "Esto es otra prueba\n"
Veamos una ejecución:
nereida:~/perl/src> select.pl Esto es otra prueba nereida:~/perl/src> cat /tmp/log.file Esto es una prueba