シェルスクリプトで特定の場合のみ置換処理をしたい

Question

シェルスクリプトで特定の場合のみ、置換処理したいです。
特定の場合というのは括弧内の、（読点）のみ、特定文字への置換処理です。

具体的には、以下のような処理になります。
可能であれば、sedで置換できればと思っています。

ご教示頂けると幸いです。

置換前
カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科、ゲンゲ科）

置換後
カニ（ズワイガニ）、エビ（テナガエビ） ：　置換無し
魚類（ホラアナゴ科|ゲンゲ科）　　　　　：　、⇒ |　へ置換

Answer 1

括弧内に読点が複数あるケースもあるだろうと思って対応しました。
「括弧内の最初の読点を縦棒に置換する」を置換が成功する限り繰り返します。

cat <<END |
カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科、ゲンゲ科）
ウニ、ヒトデ、その他（生物)
類人猿（チンパンジー、ボノボ、ゴリラ、オランウータン）、テナガザル
END

sed ':q;s/（([^、）]*)、([^）]*)）/（\1|\2）/g;t q'

=== 出力 ===
カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科|ゲンゲ科）
ウニ、ヒトデ、その他（生物)
類人猿（チンパンジー|ボノボ|ゴリラ|オランウータン）、テナガザル

Comments

[sho88]

お礼が遅くなり申し訳ございません。
ご教示いただきありがとうございます。無事解決しました。
また質問させていただくこともあると思いますが、どうぞよろしくお願いいたします。

Answer 2

どうしてもsedでないといけませんかね？ 正規表現による置換ならperlの方が高機能で環境による仕様の違いもなくて楽なのですが。

 echo '魚類（ホラアナゴ科、ゲンゲ科）、カニ（ズワイガニ）、エビ（テナガエビ）'|perl -pe 's/(?<!）)、/\|/g'

追記：
）のあとに、という条件判定が使えないなら、正規表現一発での対応は難しいでしょう。

以下のスクリプトでは、カッコで含まれた部分を取り出し、その中身を、で分割して|を介してくっつけ直すという方法を使ってみました。

echo '魚類（ホラアナゴ科、ゲンゲ科）、カニ（ズワイガニ）、エビ（テナガエビ）ウニ、ヒトデ、その他（生物）'|perl -pe '$s=sub{join("|",split(/、/, $_[0]))}; s/(（.*?）)/$s->($1)/ge'

Comments

[sho88]

早速ありがとうございます。perlですか。便利そうですね。
不足しているパターンがあったので、追加します。
ご教示頂いた内容では、追加パターンも置換されるようです。

カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科、ゲンゲ科）
ウニ、ヒトデ、その他（生物)　←追加

[KojiDoi]

そういうことは先に明確にしていただきたかった。
）のあるなしで対応を変えている（nonoichi123さんのもそこは同じ）なので、抜本的に作戦を変えざるを得ません。そして正規表現一発ではおそらく無理です。
ということで追記しておきました。

[sho88]

申し訳ございません。
perlを使用した解決法をありがとうございます。無事解決しました。

Answer 3

除外したい置換対象が「）、」だけであれば、
「）、」だけ別の値に置換してから、
「、⇒ |」置換をするのはどうでしょうか。

$ cat test.md
カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科、ゲンゲ科）

$ sed s/）、/##/ test.md | sed s/、/|/ | sed s/##/）、/
カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科|ゲンゲ科）

Comments

[sho88]

早速ありがとうございます。不足しているパターンがあったので、追加します。
ご教示頂いた内容では、追加パターンも置換されるようです。

カニ（ズワイガニ）、エビ（テナガエビ）
魚類（ホラアナゴ科、ゲンゲ科）
ウニ、ヒトデ、その他（生物)　←追加