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

brantc

如题。

我的情况是：
1. 需要在标准输出打印
2. 同时需要把在标准输出打印的东西写入一个日志文件。

有没有一条语句就可以搞定啊？
不然我总是print STDOUT "SDFADF" 然后又要写一次 print MY_LOG “SDFADF”

谢谢！

我曾尝试了：
1. 先备份STDOUT/STDERR
2. 重定向STDOUT/STDERR到我的日志文件
3. 现在就可以直接print到我的日志文件，但是此时STDOUT/STDERR在终端就没有东西显示了，郁闷。。。

zhlong8

xkdcc 是你的马夹？

Kitaisky

man tee

brantc

回复 2# zhlong8


    .....  xkdcc是我原来注册过忘了的，昨天不小心登陆进来发了第一贴，然后用brant登陆进来就找不到发的帖子了，不知道怎么没有了。。。
    难度我发错了？
请斑竹指教。。。。

brantc

回复 3# Kitaisky


    感谢！我来man下！

zhlong8

回复  zhlong8


    .....  xkdcc是我原来注册过忘了的，昨天不小心登陆进来发了此贴，然后用b ...
brantc 发表于 2011-09-06 15:22

    那个被系统当垃圾贴给删除了，已经给你恢复。CU 的反垃圾系统对发贴量极少的 ID 很严格而且还有点2

Kitaisky

回复 5# brantc


    # from Perl
  use Tee;       <-----CPAN tee
  tee( $command, @files );

  # from the command line
  $ cat README.txt | ptee COPY.txt

zhlong8

如题。

我的情况是：
1. 需要在标准输出打印
2. 同时需要把在标准输出打印的东西写入一个日志文件。
...
brantc 发表于 2011-09-06 14:39

    将几个句柄打包成个对象，再定义个 report 方法就可以 $fh->report("SFADF"); 这样用了

brantc

那个被系统当垃圾贴给删除了，已经给你恢复。CU 的反垃圾系统对发贴量极少的 ID 很严格而且还有点 ...
zhlong8 发表于 2011-09-06 15:30

    o(╯□╰)o

brantc

将几个句柄打包成个对象，再定义个 report 方法就可以 $fh->report("SFADF"); 这样用了
zhlong8 发表于 2011-09-06 15:41

    嗯，，，，斑竹，我perl的面向对象编程是0经验，可否简单点？或者给我show 几句示例代码嘛？
    真的非常感谢啦~~