Perlで正規表現にマッチする部分の抽出

Perlでgrep -oと似たようなことをやる

-n ... assume "while (<>) { ... }" loop around program

プログラムの中で明示的に print しないと表示されない

$& 正規表現にマッチした部分全体を保持する特殊変数

code:perl

df | perl -nle 'print $& if /tmpfs/'

tmpfs

code:perl

perl -ple 's/old/new/g; s/old/new/g'

assume loop like -n but print line also, like sed

printもするバージョン

置換処理する際に便利

code:shell

uname -r

6.8.0-1026-oracle

Pre-Match

code:sh

uname -r | perl -nle 'print $` if /1026/'

6.8.0-

Match

code:sh

uname -r | perl -nle 'print $& if /1026/'

1026

Post-Match

code:sh

uname -r | perl -nle "print $' if /1026/"

-oracle