如何同时将输出打印到终端和文件?
$ perl foo.pl > foout.txt
不允许我看到实时过程。
有什么方法可以实时查看输出过程并在最后将屏幕输出显示在文件上?
perl foo.pl |
tee
foout.txt
实用三通会这样做。
或者您可以将其通过管道传输到 perl 程序中以打印到屏幕和日志文件(也就是说,如果您不在 Unix 上或没有 tee 程序)
perl foo.pl | perl myPipe.pl myFile.txt
数据被捕获到 myFile.txt 和
myPipe.pl 是
#
open OUTFILE,">$ARGV[0]" or die "Unable to open file: $ARGV[0]\n";
while(<>)
{
print;
print OUTFILE;
}
close OUTFILE;
这会从 STDIN 读取一行输入并将其打印到屏幕上,然后再打印到文件中。到达结束时,它将关闭文件