Wie kann ich mit Perl denselben Text in zwei verschiedene Datei-Handles schreiben?

Question

Ich muss denselben Text in zwei verschiedene Dateien ausgeben (es handelt sich um eine Anwendungsanforderung, die ich gerade teste). Nun möchte ich nicht zwei Datei-Handles öffnen, zwei Zeilen in jede schreiben und sie dann ein Dutzend Mal in meinem Code schließen.

Gibt es einen einfachen Weg, vielleicht mit einer einzigen Zeile in Perl (aber nicht in der CLI!), um denselben Text an zwei verschiedene Dateien zu senden?

Answer 1

Utilice IO::Tee .

Aus dem Beispiel in der Dokumentation:

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