perl中的同時(shí)輸出信息到屏幕和log文件中，怎么實(shí)現(xiàn)？！

45177659

我想將一些信息同時(shí)輸出到屏幕和log文件中

在shell中有這樣的寫法：
echo "aaaaaaa" | tee -a log

不知道在perl有沒(méi)有類似的實(shí)現(xiàn)，可以將信息同時(shí)輸出到屏幕和log文件中？！多謝了

bikong0411

看下IO::Tee

huang6894

1. use IO::Tee;
   
2. $tee = IO::Tee->new(">> debuglog.txt", \*STDOUT);
   
3. print $tee "an error ocurred on ".scalar(localtime)."\n";

復(fù)制代碼

minirain

45177659 發(fā)表于 2014-06-24 22:53
我想將一些信息同時(shí)輸出到屏幕和log文件中

在shell中有這樣的寫法：

自己寫一個(gè)子程序就可以了，如下

1. 
   
2. sub To_Prn_Log
   
3. {
   
4.     my $msg = shift ;
   
5.     print FILE_LOG $msg ;# 寫入文件，主程序須要open FILE_LOG文件句柄
   
6.     print $msg;                #打印至屏幕
   
7. 
   
8. }

復(fù)制代碼