作者jlovet ( Q我~)
看板Perl
标题Re: [问题] 将输出存於log file中
时间Thu Mar 20 10:50:56 2008
Perl 食谱 7.18
#!/usr/bin/perl
open OUTPUT,"| tee -a out.log" or die $!;
print OUTPUT "Hello to out.log and stdout\n";
open OUTPUT1,"| tee -a out.log out2.log >/dev/null" or die $!;
print OUTPUT1 "Hello to out.log and out2.log\n";
adolf@master:/tmp$ ./tee.pl
Hello to out.log and stdout
adolf@master:/tmp$ cat out.log
Hello to out.log and stdout
Hello to out.log and out2.log
adolf@master:/tmp$ cat out2.log
Hello to out.log and out2.log
解说
open 後面档名有个 | 表示打开一个pipe到 tee这只程式
之後perl的output就会传给tee当input
然後就让tee去烦恼了...
-a表示tee会append...不然第二次的时候out.log就会被truncate..
低阶io应该也有不用到tee的办法...只是要找找...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.123.102.254