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

【问题标题】：How can I write the same text to two separate file handles using Perl?如何使用 Perl 将相同的文本写入两个单独的文件句柄？
【发布时间】：2009-05-28 05:33:42
【问题描述】：

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

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

【问题讨论】：

标签： perl text-files

【解决方案1】：

使用IO::Tee。

来自文档的示例：

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

【讨论】：