正規表現でカッコ内のスペースを置換したい

Question

下記の条件で置換するための正規表現を教えてほしいです！

条件：スペースのうちカッコのなかにあるものだけをアンダーバーに置換

対象の文字列の特徴：
カッコはネストせず一重のみです
カッコは必ず閉じています
対象の文字列に出現するカッコとスペースは半角のみです

対象の文字列の例：

りんご ばなな(みかん ぶどう すもも)
たい かじき ( )まぐろ(さんま あじ ) くじら

期待する置換結果：

りんご ばなな(みかん_ぶどう_すもも)
たい かじき (_)まぐろ(さんま_あじ_) くじら

よろしくお願いします

Answer 1

正規表現一発で実現するのは難しいのではないでしょうか。
perlのワンライナーなら行けそうです。

echo -e 'りんご ばなな(みかん_ぶどう_すもも)\nたい かじき ( )まぐろ(さんま あじ ) くじら' | perl -CSDA -pe 's/\((.*)\)/my $x=$1; $x=~s{ }{_}g; "($x)"/eg'

Comments

[SATSUKI.]

ご回答ありがとうございます。perlという手があったのですね

```perl
s{ }{_}g
```

↑この書き方初めて見たのですが、何と検索すれば出てきますか？

[KojiDoi]

公式ドキュメントにまさるものはありません。
https://perldoc.jp/ → 関数 → s///

> 空白ではない任意の区切り文字で、スラッシュを置き換えられます。…… PATTERN を括弧類で括った場合には、REPLACEMENT 用にもう一組の区切り文字を 用意します; これは、括弧類であっても、なくてもかまいません; s(foo)(bar) や s<foo>/bar/。

とはいえ、初見では分かりにくいですね。[perlrequick - Perl 正規表現のクイックスタート - perldoc.jp](https://perldoc.jp/docs/perl/5.18.1/perlrequick.pod#Search32and32replace)の方が理解しやすいかも知れません。
> 最後の例のように、s/// も s!!! や s{}{} 、 果ては s{}// のように異なるデリミタを使うことができます。 s''' のようにシングルクォートが使われた場合、その正規表現と置換テキストはシングルクォート文字列のように扱われ、変数の置き換えは行われません。

[SATSUKI.]

やはりデリミタの別の表現方法だったんですね。
ということは、今回の場合、デリミタの中で入れ子的にデリミタを使うために違う記号を使ったということだったんですね
ありがとうございます！

Answer 2

sedで置換するなら一度では無理です。

STR="$(cat inputfile)"
STR2=
while [ "$STR" != "$STR2" ]
do
    STR2="$STR"
    STR=$(echo "$STR" | sed 's/\([^(]*([^) ]*\) /\1_/g')
done

echo "$STR"

置換後の指定で文字列でなくコールバック関数を指定できる言語だと、括弧内をコールバック関数に渡して関数内で空白を置換する。

ruby -ple '$_.gsub!(/\(.*?\)/){|x| x.gsub(/ /,"_")}' inputfile > outputfile

RubyやPerl以外の言語だと、ファイルを読んだり書いたりを明示的に書かないといけないので長くなりますが、Python等でも同様に出来ます。

Answer 3

bash置換ではなく、sedコマンドなどで使える正規表現の置換で

GNU awk の split 関数を使う場合。

#!/bin/bash

set -eu

text=$(cat <<EOT
りんご ばなな(みかん ぶどう すもも)
たい かじき ( )まぐろ(さんま あじ ) くじら
EOT
)

echo "$text" | 
gawk '{
    nf = split($0, s, /[()]/, seps)
    for (i=1;i<nf;i++) {
        if (!(i%2)) gsub(/ /, "_", s[i])
        printf "%s%s", s[i], seps[i]
    }
    print s[i]
}'

Answer 4

あなたは私の方法を試すことができます：

$ str="たい かじき ( )まぐろ(さんま あじ ) くじら"
$ echo ${str/()/ /_}
たい かじき (_)まぐろ(さんま_あじ_) くじら

Comments

[SATSUKI.]

ご回答ありがとうございます

bash置換ではなく、sedコマンドなどで使える正規表現の置換でお願いします！