一致したグループにアクセスする方法はありますか？

Question

パターンと同じ動作をして、入力レコードの一部にアクセスすることがよくあります。

/^Compiled from \"(.*)\"$/ { 
    file_name = gensub("^Compiled from \"(.*)\"$", "\\1", "g"); 
    print file_name; 
} 

したがって、正規表現マッチングは2回実行されます。もう一度マッチングすることなく、アクションで\\1にアクセスする方法はありますか？

私はパターンマッチングと余分なコードの両方を減らそうとしています。

Answer 1

残念なことに、GAWKは、//を使用するsedのキャリーフォワード機能を備えていません。

sed '/\(patt\)ern/ {s//new\1/}' inputfile 

しかし、変数が最近発明されているので、あなたは喜ぶことができ、彼らはただ、この目的のために使用することができます！ここでの答えのように

BEGIN { 
    pattern = "^Compiled from \"(.*)\"$" 
} 
$0 ~ pattern { 
    file_name = gensub(pattern, "\\1", ""); 
    print file_name; 
}