perl - Perlを使用して2つの別々のファイルハンドルに同じテキストを書き込むにはどうすればよいですか？

Question

同じテキストを2つの異なるファイルに出力する必要があります（これはアプリケーションの要件であり、テストしています）。ここで、2つのファイルハンドルを開き、それぞれに2行を書き込んでから、コード内でそれらを12回閉じたくありません。

同じテキストを2つの異なるファイルに送信するための簡単な方法はありますか？おそらくPerlで（CLIではありません！）1行を使用しますか？

Answer 1

IO::Teeを使用します。

ドキュメントの例から：

use IO::Tee;
$tee = IO::Tee->new($handle1, $handle2);
print $tee "foo", "bar";