El operador select

El operador 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