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

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

In Perl, how to clone output to stdout and a log file in real time