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

brownzgx

perl中怎么让想输出的内容既输出到终端也写入文件？？输出一下又写一下文件这种方法不算。

flw

/path/to/your/program | tee out

brownzgx

这个我知道，那有没有在perl程序中实现的？？不是所有的输出都要写进文件。。

ntwarren

回复 1# brownzgx


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!
}