perl中的同时输出信息到屏幕和log文件中，怎么实现？！

45177659

我想将一些信息同时输出到屏幕和log文件中

在shell中有这样的写法：
echo "aaaaaaa" | tee -a log

不知道在perl有没有类似的实现，可以将信息同时输出到屏幕和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";

复制代码

minirain

45177659 发表于 2014-06-24 22:53
我想将一些信息同时输出到屏幕和log文件中

在shell中有这样的写法：

自己写一个子程序就可以了，如下

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

复制代码