Как я могу написать один и тот же текст в два отдельных файловых дескриптора, используя Perl?

Question

Мне нужно вывести один и тот же текст в два разных файла (это требование приложения, которое я тестирую). Теперь я не хочу открывать два дескриптора файла, писать по две строки в каждом, а затем закрывать их дюжину раз в моем коде.

Есть ли простой способ, возможно, использовать одну строку в Perl (но не в CLI!), Чтобы отправить один и тот же текст в два разных файла?

Answer 1

Использование IO :: Tee .

Из примера документации:

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