7.8 複数のファイルハンドルに同時に出力する

Perl Cookbook
  • プロセスを分岐したくない場合
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;