Question

perl中怎么让想输出的内容既输出到终端也写入文件

Answer 1

仅供参考：
tee("aa.out","bb.out");

print "anything you want\n";
print "other things";

close(STDOUT) || die "can't close STDOUT: $!";
sub tee {
my @output = @_;
my @handles = ();
for my $path (@output) {
my $fh; # open will fill this in
unless (open ($fh, ">", $path)) {
warn "cannot write to $path: $!";
next;
}
push @handles, $fh;
}

# reopen STDOUT in parent and return
return if my $pid = open(STDOUT, "|-");
die "cannot fork: $!" unless defined $pid;
# process STDIN in child
push @handles,STDOUT;
while (<STDIN>) {
for my $fh (@handles) {
print $fh $_ || die "tee output failed: $!";
}
}
for my $fh (@handles) {
close($fh) || die "tee closing failed: $!";
}
exit; # don't let the child return to main!
}