正規表現で２つ以上連続する文字の文字単位置換

Question

Linux(Ubuntu 14.04)のコマンドライン(perl -pe とか sed とか etc.)で実現したいのですが、方法が思い付かず。助けて下さい。

仕様：
指定された同じ文字が2つ以上(上限無し)で連続しているケースで、
その各文字毎に別の文字列(2文字)に置換する。

例）
AgggBgCDggE

指定文字：g
置換文字列：xy

gが2つ以上連続しているのは、
AとBの間のggg
DとEの間のgg
です。

この時、以下のように置換します。
AxyxyxyBgCDxyxyE

よろしくお願い致します。

Answer 1

$ echo 'AgggBgCDggE' | perl -pe 's/g{2,}/"xy" x length($&)/eg'
AxyxyxyBgCDxyxyE

Comments

[aquaS]

ありがとうございます。助かりました。
正規表現にしか頭が行ってなかったのですが、こういう書き方が出来るのですね。

ちなみに元の目的が、2つ以上連続する空行を行番号付きで出力する、というものでしたが、
perlの構文と組み合わせたらもっと簡単に出来るかもしれませんね。。

目的のコマンド

```
perl -pe 's/^\n/\x1/g' hello.c | perl -pe 's/\x1{2,}/"\x2\x1" x length($&)/eg' | perl -pe 's/\x1/\n/g' | grep -n $'\x2' | perl -pe 's/\x2//g'
```

Answer 2

$ echo 'AgggBgCDggE' | perl -pe 's/g{2,}/"xy" x length($&)/eg'

$&は非推奨です。非常に遅くなることが知られているので、こういうときは「捕捉グループ」を使います。

$ echo 'AgggBgCDggE' | perl -pe 's/(g{2,})/"xy" x length($1)/eg'

ちなみに元の目的が、2つ以上連続する空行を行番号付きで出力する、というもの

それならわざわざ正規表現を使う必要はありません。

 perl -ne '($p eq "\n") and ($_ eq "\n") and ($x{$.-1}, $x{$.})=(0, 0); $p=$_; END{for $i (sort {$a<=>$b} keys %x){print "$i\n"}}
' input.txt

Comments

[aquaS]

ありがとうございます。

Answer 3

sedでは無理だと思います。

echo AgggBgCDggE | ruby -pe 'gsub(/g{2,}/){|x| "xy"*x.size}'
#=> AxyxyxyBgCDxyxyE

Comments

[aquaS]

ありがとうございました。