alezzz, вам показалось, что автору нужно раздваивать вывод.
Но если всё же нужно, то можно попробовать делать это с помощью связывания ф-цией tie.
Небольшой пример печатающий и в файл и на экран одновременно:
| Код |
package Tee;
use strict;
use Symbol;
sub TIEHANDLE {
my $fh = gensym;
open ${*$fh}, '>/dev/stdout'
or die $!;
open $fh, '>/tmp/t'
or die $!;
bless $fh, $_[0];
}
sub PRINT {
my $fh = shift;
my $stdout = ${*$fh};
print $stdout @_;
print $fh @_;
}
sub DESTROY {
my $fh = shift;
close ${*$fh};
close $fh;
}
package main;
tie *STDOUT, 'Tee';
print "Hello zorld\n";
|
|