gpt4 book ai didi

perl - 如何在 Perl 读取管道处理程序中扩展变量?

转载 作者:行者123 更新时间:2023-12-04 20:16:54 26 4
gpt4 key购买 nike

似乎反引号中的变量在传递给 readpipe 函数时没有扩展。如果我重写 readpipe 函数,我如何扩展变量?

BEGIN {
*CORE::GLOBAL::readpipe = sub {print "Run:@_\n"};
}

`ls /root`;
my $dir = "/var";
`ls $dir`;

运行这个给出:
Run:ls /root
Run:ls $dir

我正在尝试模拟我正在编写的测试代码的外部调用。如果某个地方有一个 CPAN 模块可以帮助解决所有这些问题,那也会有所帮助。

更新 :

我决定对我的问题使用一个非常丑陋的解决方法。事实证明,使用 readpipe()而不是反引号正确扩展变量。在运行我的测试之前,我使用了一个自动脚本清理器,它将所有反引号转换为 readpipe()在运行测试之前。

例如运行:
$ cat t.pl

BEGIN {
*CORE::GLOBAL::readpipe = sub {print "Run:@_\n"};
}

`ls /root`;
my $dir = "/var";
`ls $dir`;
readpipe("ls $dir");

给出:
$ perl t.pl
Run:ls /root
Run:ls $dir
Run:ls /var

不过,我仍在寻找更清洁的解决方案。

最佳答案

这似乎是 Perl 中的一个错误。使用perlbug报告它。

关于perl - 如何在 Perl 读取管道处理程序中扩展变量?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11027832/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com