在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" }
);