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

Question

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

是否有一种简单的方法,可能在Perl中使用单行(但不在CLI中),将相同的文本发送到两个不同的文件？

Answer 1

使用IO :: Tee.

从文档的示例:

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