如何使用Perl将相同的文本写入两个单独的文件句柄？

Question

我需要输出相同的文本到两个不同的文件（这是一个应用程序的要求，我正在测试）。现在，我不想打开两个文件句柄，每行写两行，然后在我的代码中关闭它们十几次。

有没有一种简单的方法，可能是在Perl中使用单行（但不在CLI中！）将相同的文本发送到两个不同的文件？

Answer 1

使用IO::Tee。

从文档的例子：

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