是否有可能打印出Awk的代码？

Question

我经常发现自己写Awk one-liners随着时间的推移会增加复杂性。

我知道我总是可以创建一个Awk文件来继续添加用例，但它肯定不像在命令行上更改文本那样可用。

为此：有什么方法可以打印出Awk的代码，所以我可以更有意义吗？

例如，鉴于此：

awk 'flag{ if (/PAT2/){printf "%s", buf; flag=0; buf=""} else buf = buf $0 ORS}; /PAT1/{flag=1}' file

我怎样才能获得更具可读性的东西？

Answer 1

Ed Morton showed me认为GNU awk有-o选项可以打印：

GNU Awk User's Guide, on Options

-o [文件] --pretty印刷[=文件]

启用awk程序的漂亮打印。意味着--no-optimize。默认情况下，输出程序在名为awkprof.out的文件中创建（请参阅Profiling）。可选的file参数允许您为输出指定不同的文件名。如果提供了文件，-o和文件之间不允许有空格。

注意：过去，此选项也会执行您的程序。这已不再是这种情况。

所以关键是使用-o，用：

• 如果我们想要将输出自动存储​​在“awkprof.out”中，则无需任何操作。
• -在stdout中输出。
• file将输出存储在名为file的文件中。

现场观看：

$ gawk -o- 'BEGIN {print 1} END {print 2}'
BEGIN {
    print 1
}

END {
    print 2
}

要么：

$ gawk -o- 'flag{ if (/PAT2/){printf "%s", buf; flag=0; buf=""} else buf = buf $0 ORS}; /PAT1/{flag=1}' file
flag {
    if (/PAT2/) {
        printf "%s", buf
        flag = 0
        buf = ""
    } else {
        buf = buf $0 ORS
    }
}

/PAT1/ {
    flag = 1
}