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