awkコマンド 第一引数に括弧やカンマを含む

Question

①test.txt

spinrtf(●●,△△,××)
sprintf(◆◆,■■,▼▼)
・・・
・・・

上記の様にリスト化されたsprintf関数に使用されている第一引数を取得するために下記をシェル内に記載しています。

awk '-F[(,]' '{print $2}' test,txt

しかし、第一引数にカンマ、スペース、括弧が更にある場合取得できず困っています。

例）
・sprintf ( (abc)abcd,～,～）

上記例の様な場合、 『 (abc)abcd』を取得したいです。

＞awk '-F[(,]' '{print $2}' test,txt
→こちらを変化させて取得できる方法はありませんでしょうか。

【補足】

●現ソース

#greplist=検索したい関数名を記載し事前準備（今回だとsprintfのみ）

#対象ファイル一覧取得
find `pwd` -mindepth 2 -a -type f >checklist.txt

#対象ファイル内ループ(checklist.txt)
####対象ファイル一覧からgreplistに記載されている関数名が使われている箇所を検索し、全て出力(grefunction.txtに)#########
while read line;do

　#事前用意した関数名一覧内をループ(greplist.txt)
 while read key;do

   grep -wsh $key $line >>grefunction.txt

 done<greplist.txt

done<checklist.txt
#################################################################################################################

#上記で出力したgrefunction.txt内の、sprintf（~,~,~)の第一引数を取得し、一覧化
awk '-F[(,]' '{print $2} grefunction.txt>arg.txt

#第一引数を一覧化したもの(arg.txt)から、重複を削除するためにuniqを使用
sort arg.txt | uniq>hensu.txt

#対象ファイルループ(hensu.txt)
###重複削除した第一引数一覧を$sargとし、$sargが使われている箇所を全て出力
while read sarg;do

 cd($dirname $0)
 grep -wnsr $sarg ./* >>totalcheck.txt

done<hensu.txt

やりたいこととしては、
①対象配下で使われているsprintf関数を全て取得
➁sprintfの第一引数を全て取得しリスト化（重複は削除）
③第一引数を対象配下に対し再度抽出する。（同様の第一引数名が様々なところで使用されているため）

Answer 1

私の回答ですね。 https://teratail.com/questions/348177

第一引数に、カンマも括弧も含まれないのであれば、

という前提付きでの回答ですが、その時の、もし含まれるとしたらの想定は関数呼び出しでした。
sprintf(foo(x,y),z)みたいな。

含まれるというコメントが付けば、面倒くさいけどこうすれば」と書こうと思っていたのですが、数週前のことなのでそのときの案は忘れました。

カンマが含まれないのなら簡単で、

awk -F, '{sub(/^ *sprintf *( */,"",$1);print $1}'

前提条件ゼロでどの引数にも任意の式を許すなら、括弧のネストを処理するために再帰機能を持った正規表現を扱える言語とか構文解析専用ツールでないと無理でしょう。

Comments

[kty_kk]

前回に引き続きご回答ありがとうございます。まとめて質問できず申し訳ありません。
上記回答内容で実現することができました。
考慮についても記載いただいたためベストアンサーとさせていただきます。

Answer 2

sed じゃだめですかね?

echo "sprintf ( (abc)abcd,～,～)" | sed 's/^[^(]*(//' | sed 's/,.*$//'

Comments

[kty_kk]

ご回答ありがとうございます。
仰っていただいた方法で実現できました。ありがとうございます！

[takasima20]

(･∀･)b

Answer 3

正規表現一発で対応するのは無理でしょう。

対象がawkのソースで、なおかつ";"のような文字列定数が含まれていないとすると、以下のような感じでアドホックにやれないことはないです。

そうした仮定が成り立たないとなると、ソースの整形とか構文解析とかを考える必要があり、awkのワンライナーでは到底やってられないでしょう。

# test.awk
{
    match($0, /sprint([^;]*)(;|$)/);
    x = (substr($0, RSTART, RLENGTH));
    sub(/sprintf *(/, "", x);
    match(x, /[^,]*/);
    print substr(x, RSTART, RLENGTH);
}

$ echo 'sprintf ( (abc)abcd,～、～） ' | awk -f test.awk
 (abc)abcd

Comments

[kty_kk]

ご回答ありがとうございます。
念のため実際のソースを補足として記載いたしました。

現状確認しているパターンとしては
・sprintf(abc,def,ghi)
・sprintf( (abc)abcd.efg,~,~)
・sprintf( (abc)abcd, ~, ~)
という形になっています。対象をアドホックにしてしまうと汎用性が下がってしまうので
その他の手段で対応したいのですが上記補足欄に記載したソースを修正してなんとかならないでしょうか…

[KojiDoi]

> 記載したソースを修正してなんとかならないでしょうか…

無理です。最終的に何をしたいのか知りませんが、抜本的に方針を考え直したほうがいい気がします。