捕获模块输出

Question

假设我们有这个模块:

unit module outputs;

say "Loaded";

我们这样加载它

use v6;

use lib ".";

require "outputs.pm6";

这将打印出"已加载" require.假设我们想要捕获该加载模块的标准输出.我们可以这样做,如果它是一个外部进程,但似乎没有办法重定向*OUT到一个字符串,或者,如果不可能,重定向到一个文件.是这样吗？

Answer 1

你可以尝试使用IO::String:

use v6;
use lib ".";
use IO::String;

my $buffer = IO::String.new;
with $buffer -> $*OUT {
    require "outputs.pm6";
};

say "Finished";
print ~$buffer;

输出:

Finished
Loaded

另请参阅如果我在Perl 6中重新分配OUT,如何将其更改回stdout？

Answer 2

暂时重新分配,$*OUT以便.print调用附加到字符串:

my $capture-stdout;

{ 
  my $*OUT = $*OUT but
             role { method print (*@args) { $capture-stdout ~= @args } }

  require "outputs.pm6" # `say` goes via above `print` method 
}

say $capture-stdout; # Loaded