AWK：从线条模式访问捕获的组

Question

如果我有一个 awk 命令

pattern { ... }

并且模式使用捕获组，我如何访问块中捕获的字符串？

Answer 1

通过 gawk，您可以使用 match 函数来捕获带括号的组。

gawk 'match($0, pattern, ary) {print ary[1]}' 

示例：

echo "abcdef" | gawk 'match($0, /b(.*)e/, a) {print a[1]}' 

输出cd。

请注意 gawk 的具体用法，它实现了相关功能。

对于便携式替代方案，您可以使用 match() 和 substr 获得类似的结果。

示例：

echo "abcdef" | awk 'match($0, /b[^e]*/) {print substr($0, RSTART+1, RLENGTH-1)}'

输出cd。

Answer 2

那是一段回忆……

我很久以前就用 Perl 取代了 awk。

显然 AWK 正则表达式引擎不捕获其组。

你可能会考虑使用类似的东西：

perl -n -e'/test(\d+)/ && print $1'

-n 标志使 perl 像 awk 一样循环每一行。

Answer 3

这是我一直需要的东西，所以我为它创建了一个 bash 函数。它基于格伦·杰克曼的回答。

定义

将其添加到您的 .bash_profile 等中。

function regex { gawk 'match($0,/'$1'/, ary) {print ary['${2:-'0'}']}'; }

用法

捕获文件中每一行的正则表达式

$ cat filename | regex '.*'

捕获文件中每一行的第一个正则表达式捕获组

$ cat filename | regex '(.*)' 1

Answer 4

您可以使用 GNU awk：

$ cat hta
RewriteCond %{HTTP_HOST} !^www\.mysite\.net$
RewriteRule (.*) http://www.mysite.net/$1 [R=301,L]

$ gawk 'match($0, /.*(http.*?)\$/, m) { print m[1]; }' < hta
http://www.mysite.net/

Answer 5

注意：gensub 的使用不符合 POSIX 标准

您也可以在普通 awk 中模拟捕获，无需扩展。但它并不直观：

步骤 1. 使用 gensub 将匹配项与字符串中未出现的某些字符包围起来。
步骤 2. 对角色使用 split。
步骤 3. 分割数组中的每个其他元素都是您的捕获组。

$ echo 'ab cb ad' | awk '{ split(gensub(/a./,SUBSEP"&"SUBSEP,"g",$0),cap,SUBSEP); print cap[2]"|" cap[4] ; }'
ab|ad

Answer 6

我在想出一个包含 Peter Tillemans 答案的 bash 函数时遇到了一些困难，但这是我想出的：

函数正则表达式
{
perl -n -e "/$1/ && printf \"%s\n\", "'$1'
}

发现对于以下正则表达式参数，这比 opsb 的基于 awk 的 bash 函数效果更好，因为我不希望打印“ms”。

'([0-9]*)ms

Answer 7

我认为 gawk match()-to-array 仅适用于捕获组的第一个实例。

如果您想要捕获多个内容，并对它们执行任何复杂的操作，也许

gawk 'BEGIN { S = SUBSEP 
          } { 
              nx=split(gensub(/(..(..)..(..))/, 
                              "\\1"(S)"\\2"(S)"\\3", "g", str), 
                       arr, S)
              for(x in nx) { perform-ops-over arr[x] } }'

这样您就不会受到 gensub() 的限制，这会限制您的修改的复杂性，或者通过match()。

通过纯粹的反复试验，我注意到关于 unicode 模式下的 gawk 的一个警告：对于有效的 unicode 字符串 뀇꿬 ，其 6 个八进制代码如下所示：

场景 1：匹配单个字节没问题，但也会向您报告 1 的多字节 RSTART，而不是 2 的字节级答案。它也不会提供有关是否 \207 是第一个连续字节，或第二个连续字节，因为 RLENGTH 这里始终为 1。

$ gawk 'BEGIN{ print match("\353\200\207\352\277\254", "\207") }' 
$ 1 

场景 2：匹配也适用于这样的 unicode 无效模式

$ gawk 'BEGIN{ match("\353\200\207\352\277\254", "\207\352"); 
$                print RSTART, RLENGTH }' 
$ 1 2

场景 3：您可以检查是否存在针对 unicode 非法字符串的模式（\300 \xC0 对于所有可能的字节对来说 UTF8 无效）

$ gawk 'BEGIN{ print ("\300\353\200\207\352\277\254" ~ /\200/) }' 
$ 1

场景 4/5/6：错误消息将显示为 (a) match() 与 unicode-invalid 字符串，index() 对于任一参数unicode 无效/不完整。

$ gawk 'BEGIN{ match("\300\353\200\207\352\277\254", "\207\352"); print RSTART, RLENGTH }' gawk: cmd. line:1: warning: Invalid multibyte data detected. There may be a mismatch between your data and your locale. 2 2

$ gawk 'BEGIN{ print index("\353\200\207\352\277\254", "\352") }' gawk: cmd. line:1: warning: Invalid multibyte data detected. There may be a mismatch between your data and your locale. 0

$ gawk 'BEGIN{ print index("\353\200\207\352\277\254", "\200") }' gawk: cmd. line:1: warning: Invalid multibyte data detected. There may be a mismatch between your data and your locale. 0