Lo encontré. Receta 7.8 del Perl Cookbook.
Mientras que la solución sencilla es hacer un bucle por todos los manipuladores:
Using perl Syntax Highlighting
foreach $filehandle (@FILEHANDLES) {
print $filehandle $stuff_to_print;
}Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
otra forma es usar el programa
teeUsing perl Syntax Highlighting
open( MANY
, "| tee file1 file2 file3 > /dev/null" ) or die $!;
print MANY
"data\n" or die $!;
close(MANY
) or die $!;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
y en caso de no disponer del comando
tee en el sistema, se puede usar el módulo
IO::TeeUsing perl Syntax Highlighting
use IO
::Tee;
$tee = IO
::Tee->new(@FILEHANDLES);
print $tee $stuff_to_print;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
En la receta hay una explicación más detallada y algún ejemplo más, como redireccionar el propio STDOUT.
