sách gpt4 ai đã đi

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

In lại 作者:行者123 更新时间:2023-12-02 08:30:54 hai mươi bốn 4
mua khóa gpt4 Nike

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

程序.pl

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

xxLib1xx.pm

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

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

system("echo hello > nul");

1 Câu trả lời

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

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

关于perl - 如何在 perl 中重定向库函数的输出?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26982164/

hai mươi bốn 4 0
Bài viết được đề xuất: arrays - F#匹配数组的开头
Bài viết được đề xuất: Perl 排序字符串
Bài viết được đề xuất: arrays - 将列表的 (m,m,n) 数组组合成一个 (m,m,n) 数组
Bài viết được đề xuất: angular-ui - 缺少 angularUI ui-grid 分组功能?
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com