在Perl中，如何实时克隆输出到stdout和日志文件

Question

我想将输出同时克隆到控制台以及日志文件。这是我的代码片段：

open STDOUT, ">>", "temp.txt" or die "";
system("echo This is a sample output..........");

但是，这里我只能在temp.txt而不是控制台上输出。 你能建议一个解决方案吗？我正在使用Windows。

Answer 1

它将输出到STDOUT和temp.txt，

use Capture::Tiny::Extended 'tee';

tee(
  sub { 
    system("echo This is a sample output..........");
  },
  { stdout => "temp.txt" }
);