perlの置換処理について

Question

perlの置換方法についてご教示頂きたいです。

以下のようなファイルがあり、各項目はタブコード(\t)で区切られています。

# cat test2.txt
aaaa    aaaa    aaaa    bbbb    aaaa
aaaa    bbbb    bbbb    aaaa    aaaa

このファイルから、 aaaa が設定されている項目値を bbbb に変換したいと思います。
誤置換を避けたく、各項目単位で置換をするべく、以下のように置換しました。

# perl -pi.bk -e 's/(\t|^)(aaaa)(\t|$)/$1 . "bbbb" . $3/eg;' /tmp/test2.txt

結果は以下のように、 項目の値として aaaa が連続した場合は、後続の値が置換されませんでした。

# cat test2.txt
bbbb    aaaa    bbbb    bbbb    bbbb
bbbb    bbbb    bbbb    bbbb    aaaa

これを全ての aaaa の項目値を変換したい場合には、どのように変換すればよいでしょうか。

以上、よろしくお願いします。

Comments

[yambejp]

この場合すべてbbbbになっていればよろしいのでしょうか？
aaaaはタブか先頭/末尾に囲まれたものだけが対象ですね？

[mkt-0818]

ご確認有難うございます。

2点ともご認識通りでございます。

Answer 1

こういうときは正規表現で全てをやってしまおうとせずに、まずタブでデータを分割しておいて、分割したそれぞれについて置換処理をかけたほうが良いです。

test.txt

aaaa    aaaa    aaaa    bbbb    aaaa
aaaa    bbbb    bbbb    aaaa    aaaa

$ perl -F"\t" -alne 'map {s/^aaaa$/bbbb/} @F; print join("\t", @F);' test.txt
bbbb    bbbb    bbbb    bbbb    bbbb
bbbb    bbbb    bbbb    bbbb    bbbb

Comments

[mkt-0818]

ご確認有難うございます。

そのような方法もあるんですね。
ご教示頂き有難うございました。

Answer 2

後ろの(\t|$)がタブ文字を食っちゃうからですね。
前方参照にして文字をを食わないようにしましょう。

perl -pi.bk -e 's/(\t|^)(aaaa)(?=\t|$)/$1 . "bbbb" . $3/eg;' /tmp/test2.txt

あるいは項目が英数字(と下線)のみなのであれば、「単語境界\b」を使うとずっとシンプルに書けます。
項目に記号が混じっていると駄目。

perl -pi.bk -e 's/\baaaa\b/bbbb/eg;' /tmp/test2.txt

Comments

[mkt-0818]

ご確認有難うございます。

ご教示頂きました内容で想定通りの置換が行われることを確認しました。
ご教示頂き有難うございました。