代码之家 › 专栏 › 技术社区 › Miserable Variable

如何使Perl的A2P支持gawk?

awk perl

Miserable Variable · 技术社区 · 15 年前

我有一些awk脚本使用了cygwin的gawk。现在,我需要将这些脚本传递给那些没有安装cygwin,但确实安装了perl的同事。我希望我可以使用Cygwin中包含的A2P,但是失败了,错误如下:

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

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

1 回复 | 直到 15 年前

jmcnamara 15 年前

这个 gensub() 函数不受支持 a2p . 如果修改代码以使用 gsub() 相反,它应该编译。

或者,您可以添加 子集() 子程序到翻译后的Perl程序的末尾,以模拟 子集() 功能。

但是,Perl代码由 A2P 不是很容易维护,所以我只能用它作为最后的手段。

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

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

3 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前