我怎样才能让Perl的a2p支持gawk?

Mis*_*ble 2 perl awk

我有一些使用来自cygwin的gawk的awk脚本.现在我需要将这些脚本传递给没有安装cygwin的同事,但确实有Perl.我希望我可以使用包含在cygwin中的a2p,但它失败了,如下所示:

Undefined subroutine &main::gensub called at ./t.pl line 18, <> line 1.
Run Code Online (Sandbox Code Playgroud)

我希望有现有的Perl库/模块实现这些方法.有什么指针吗?

jmc*_*ara 5

gensub()功能不受支持a2p.如果你修改你的代码gsub()而不是它应该编译.

或者,您可以gensub()在已翻译的Perl程序的末尾添加子例程以模拟gensub()功能.

但是,生成的Perl代码a2p不是很易于维护,所以我只把它作为最后的手段.

如果您的gawk程序没有调用其他cygwin/unix实用程序,那么将Windows gawk可执行文件与程序一起分发给您的同事可能会更好.