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

Question

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

有没有一种简单的方法，也许在 Perl 中使用一行(但不是在 CLI 中!)，将相同的文本发送到两个不同的文件？

Answer 1

使用 IO::Tee .

从文档的示例中:

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