AWK: Truy cập nhóm bị bắt từ mẫu đường

Nếu tôi có một lệnh awk

pattern { ... }

và mẫu sử dụng một nhóm bắt giữ, làm thế nào tôi có thể truy cập chuỗi để được bắt trong khối?

Đó là một cuộc dạo chơi xuống làn nhớ ...

Tôi đã thay thế awk bằng perl một thời gian dài trước đây.

Rõ ràng công cụ biểu thức chính quy AWK không bắt được các nhóm của nó.

bạn có thể cân nhắc sử dụng một cái gì đó như:

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

cờ -n gây ra lỗi perl lặp trên mỗi dòng như awk.

Với gawk, bạn có thể sử dụng matchchức năng để chụp các nhóm được ngoặc đơn.

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

thí dụ:

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

đầu ra cd.

Lưu ý việc sử dụng cụ thể của gawk mà thực hiện các tính năng trong câu hỏi.

Đối với một thay thế di động, bạn có thể đạt được kết quả tương tự với match()và substr.

thí dụ:

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

đầu ra cd.

Đây là thứ tôi cần mọi lúc nên tôi đã tạo một hàm bash cho nó. Nó dựa trên câu trả lời của glenn jackman.

Định nghĩa

Thêm phần này vào .bash_profile của bạn, v.v.

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

Sử dụng

Chụp regex cho mỗi dòng trong tệp

$ cat filename | regex '.*'

Chụp nhóm chụp regex thứ nhất cho mỗi dòng trong tệp

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

Bạn có thể sử dụng 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/

Bạn cũng có thể mô phỏng việc chụp trong vanilla awk mà không cần tiện ích mở rộng. Nó không trực quan mặc dù:

bước 1. sử dụng gensub để bao quanh các kết quả khớp với một số ký tự không xuất hiện trong chuỗi của bạn. bước 2. Sử dụng phân chia chống lại nhân vật. Bước 3. Mọi phần tử khác trong mảng được tách là nhóm chụp của bạn.

$ echo 'ab cb quảng cáo' | awk '{split (gensub (/ a ./, SUBSEP "&" SUBSEP, "g", $ 0), cap, SUBSEP); nắp in [2] "|" nắp [4]; } '
ab | quảng cáo

Tôi đã vật lộn một chút với việc đưa ra một hàm bash bao bọc câu trả lời của Peter Tillemans nhưng đây là những gì tôi nghĩ ra:

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

Tôi thấy điều này hoạt động tốt hơn hàm bash dựa trên awk của opsb cho đối số biểu thức chính quy sau đây, vì tôi không muốn in "ms".

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