perl - 如何使 Perl 的 a2p 支持 gawk？

Question

我有一些使用 cygwin 的 gawk 的 awk 脚本。现在我需要将这些脚本传递给没有安装 cygwin 但有 Perl 的同事。我希望我可以只使用 cygwin 中包含的 a2p，但它失败并出现如下错误：

Undefined subroutine &main::gensub called at ./t.pl line 18, <> line 1.

我希望现有的 Perl 库/模块可以实现这些方法。任何指针？

Answer 1

gensub()不支持该功能a2p。如果您修改代码以使用gsub()它，那么它应该可以编译。

或者，您可以gensub()在翻译后的 Perl 程序的末尾添加一个子例程来模拟该gensub()功能。

但是，由 生成的 Perl 代码a2p不是很容易维护，所以我只将它用作最后的手段。

如果您的 gawk 程序不调用其他 cygwin/unix 实用程序，那么最好将 Windows gawk 可执行文件与程序一起分发给您的同事。