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

Question

似乎反引号中的变量在传递给 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

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

Answer 1

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