[求助]如果一条print语句就可以把内容写在标准输出显示同时写入打开的文件

brantc

回复  brantc


    # from Perl
  use Tee;
Kitaisky 发表于 2011-09-06 15:37

    我系统不能安装额外的perl模块，所以不能用CPAN的Tee了。。。

jason680

我系统不能安装额外的perl模块，所以不能用CPAN的Tee了。。。
brantc 发表于 2011-09-06 17:20

   sub LOGprint{
     print STDOUT "@_";
     print MY_LOG "@_";
   }

   LOGprint "my message\n";

brantc

sub LOGprint{
     print STDOUT "@_";
     print MY_LOG "@_";
   }

   LOGprint "my me ...
jason680 发表于 2011-09-06 17:43

    。。。。感谢！

但是我还有个问题，想不到好的办法：

因为我想把我在perl 里面执行system()的标准输出和标准错误输出都打印进入我的日志文件和终端，貌似不能两全。
我如果这样写: system("ls > $mylog 2>&1")，那终端就看不到错误输出（如果有的话）；
我如果。。。。。

咦！有了，我可以试下在system里面使用tee，待我试试：）

jason680

。。。。感谢！

但是我还有个问题，想不到好的办法：

因为我想把我在perl 里面执行system( ...
brantc 发表于 2011-09-08 10:59

看来你就好好写你的shell script就好了.
(没看到你用到Perl的地方...)

Perl_Er

回复 13# brantc


    你可以先看一下书吗？

brantc

看来你就好好写你的shell script就好了.
(没看到你用到Perl的地方...)
jason680 发表于 2011-09-08 11:10

    您说得太对了。。。。

brantc

回复  brantc


    你可以先看一下书吗？
Perl_Er 发表于 2011-09-08 12:11

    o(╯□╰)o我在看书的。。。但是问题比较急，所以只好发帖借大家的智慧了，惭愧了。。。

Perl_Er

回复 14# jason680


    FAQs里面有你这个问题的答案

brantc

回复  jason680


    FAQs里面有你这个问题的答案
Perl_Er 发表于 2011-09-08 13:14

    perl faq5？。。。How do I print to more than one file at once?

zzmmgjj

1. if you are dealing with complicated log mechanism, check out

1. Log::Perl4log

复制代码

2. To install your own perl installation and leave system perl along, check out perlbrew

3. system won't return the command output, use qx or `` instead, read the result from qx and `` and write to the file you want.