perl - 如何在 perl 中重定向库函数的输出？

Question

我试图在不更改库中的代码的情况下重定向库函数的输出:

程序.pl

use Lib::xxLib1xx;
...
xxLib1xx::Function1($Arg1);

xxLib1xx.pm

Function1{
    my $arg = shift;
    print "$arg\n";
}

如何修改 program.pl 中的代码，以便在调用 Function1 时看不到任何输出？我无法更改库本身的代码。如果我进行系统调用，它看起来像:

system("echo hello > nul");

Answer 1

不使用 CPAN 模块的答案仍然可以非常紧凑:

my $stdout;
{
    local *STDOUT;
    open STDOUT, ">", \$stdout;
    xxLib1xx::Function1($Arg1);
}
print "Got '$stdout' from subroutine call!\n";