AWK: доступ к захваченной группе по шаблону линии

Если у меня есть команда awk

pattern { ... }

и шаблон использует группу захвата, как я могу получить доступ к строке, захваченной в блоке?

Это была прогулка по переулку памяти ...

Я заменил awk на perl очень давно.

Очевидно, механизм регулярных выражений AWK не захватывает его группы.

Вы можете рассмотреть возможность использования чего-то вроде:

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

флаг -n заставляет perl перебирать каждую строку, как это делает awk.

С 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.

Это то, что мне нужно все время, поэтому я создал для него функцию bash. Это основано на ответе Гленна Джекмана.

Определение

Добавьте это к вашему .bash_profile и т. Д.

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

использование

Записать регулярное выражение для каждой строки в файле

$ cat filename | regex '.*'

Захват 1-й группы захвата регулярных выражений для каждой строки в файле

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

Вы можете использовать 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/

Вы также можете смоделировать захват в vanilla awk без расширений. Это не интуитивно, хотя:

шаг 1. используйте gensub, чтобы окружить совпадения каким-либо символом, который не появляется в вашей строке. Шаг 2. Используйте раскол против персонажа. Шаг 3. Каждый другой элемент в расщепленном массиве является вашей группой захвата.

$ echo 'ab cb ad' | awk '{split (gensub (/ a ./, SUBSEP "&" SUBSEP, "g", $ 0), cap, SUBSEP); крышка для печати [2] "|" колпачок [4]; }»
абы | объявления

Я немного изо всех сил пытался придумать функцию bash, которая заключает в себе ответ Питера Тиллемана, но вот что я придумал:

function regex {perl -n -e "/ $ 1 / && printf \"% s \ n \ "," '$ 1'}

Я обнаружил, что это работает лучше, чем основанная на awk функция opsb для следующего аргумента регулярного выражения, потому что я не хочу, чтобы выводился «ms».

'([0-9]*)ms$'