我试图在 perl 版本 5.8.8 中模拟反引号运算符。据我了解，无法在 perl 5.8.8 版中模拟它。但是在 perl 5.9 版以后，我可以使用
轻松模拟反引号运算符*CORE::GLOBAL::readpipe = \&mock_readpipe
有没有办法在 perl 版本 5.8.8 中模拟反引号运算符。我可以模拟 system()，但不能模拟反引号。
【问题讨论】：
readpipe 在 Perl v5.8.9 之前无法被覆盖。我能想到的就是你将反引号包装在一个子程序中，比如execute，如果程序在测试环境中运行，它会做一些不同的事情
您可以覆盖 system() 和 readpipe()，因为它们是二等的 （可覆盖的）关键字。在 Perl 5.8 中，您不能覆盖 qx// 或 ``, 即使它们使用与 readpipe() 相同的底层代码， 因为它们是一流的（不可覆盖的）关键字。看 Perl 源代码中的 perl_keywords.pl 和 opcode.pl。为什么有些 关键字不可覆盖？主要原因是这些关键字是 用作一些进一步解析魔法的一部分，即它们不遵循 常用函数调用样式解析。
好消息是，将 #29168 更改为 perl 使得 qx// 可以覆盖。 万岁！这是在 Perl 5.9.5 中发布的，最终会成功 到 Perl 5.10.1 的维护版本。发生这种情况时，设置 *CORE::GLOBAL::readpipe 将覆盖 readpipe()、qx// 和 ``.
阅读关于 perlmonks 的完整讨论：mocking or trapping system calls
还可以查看IPC::System::Simple。
【讨论】：