Comment écrire le même texte dans deux descripteurs de fichiers séparés en utilisant Perl?

Question

Je dois envoyer le même texte à deux fichiers différents (c'est une exigence de l'application, que je suis en train de tester). Maintenant, je ne souhaite pas ouvrir deux handles de fichiers, écrire deux lignes sur chacun d'entre eux, puis les fermer une douzaine de fois dans mon code.

Existe-t-il un moyen simple, en utilisant peut-être une seule ligne en Perl (mais pas dans la CLI!), Pour envoyer le même texte à deux fichiers différents?

Answer 1

Utilisez IO::Tee.

De l'exemple de la documentation:

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