7.8 複数のファイルハンドルに同時に出力する
- プロセスを分岐したくない場合
foreach $filehandle (@FILEHANDLES) { print $filehandle $stuff_to_print; }
- プロセスを分岐してもよい場合
open(MANY, "| tee file1 file2 file3 > /dev/null") or die $!; print MANY "data\n" or die $!; close(MANY) or die $!;
- IO::Teeモジュールを使用する場合
use IO::Tee; $tee = IO::Tee->new(@FILEHANDLES); print $tee $stuff_to_print;