正規表現のパターンの繰り返しでマッチした部分が\1に次々と上書きされてしまう

Question

以下のような文字列が標準入力で渡されます。
文字列がスペースで区切られていて、個数は不明ですが、最低でも6個(str6まで)は必ず存在します。
区切りのスペースは1つとは限らず、2個以上繋がって1つの区切りになっている可能性があります。

str1 str2 str3  str4 str5 str6  str7 str8 str9 ...

この文字列を、str4からstr6を逆順にし、str7以降はそのままにしたいと考えています。
以下のようにするとできましたが、長いので、

cat a.txt | perl -p -e 's/^([^ ]+ +)([^ ]+ +)([^ ]+ +)([^ ]+ +)([^ ]+ +)([^ ]+ +)/\1\2\3\6\5\4/g'

このように同じ部分を繰り返しにしてみたところ、\1がどんどん上書きされるだけで、\2以降にはマッチした部分が入らなくなってしまいました。

cat a.txt | perl -p -e 's/^([^ ]+ +){6}/\1\2\3\6\5\4/g'

これを防ぐ方法はないでしょうか。

Comments

[Zuishin]

長さが不定なら正規表現を使わず split() で配列に分割して join で組み立てなおした方が簡単なのでは？

[xekdwpsg]

ご回答ありがとうございます。試してみたいと思います。

Answer 1

正規表現のキャプチャーは括弧の数に対応するので、\2以降キャプチャーされないのは必然です。
少なくとも６個の文字列が保証されるなら、長くても修正前の正規表現が妥当です。

ただ６番目の([^ ]+ +)は、([^ ]+( +|$))でないと、文字列が６個の場合、６個目の文字列にマッチしなくなります。

蛇足ですが、TABも区切り扱いとして良いなら、半角スペースをメタキャラ\sで表現した方が読みやすいですね。
([^\s]+\s+)([^\s]+\s+)([^\s]+\s+)([^\s]+\s+)([^\s]+\s+)([^\s]+(\s+|$))
より長くなりますが。。。

Comments

[xekdwpsg]

ご回答ありがとうございます。大変参考になりました。

Answer 2

正規表現における括弧によるグルーピングのルールはシンプルで、開き括弧(が出現するたびに左から順番に\1,\2,...と番号がつけられるというものです。

質問の内容では(は一つしか使われていないので、\1だけが定義されていて\2以降は未定義のままです。

普通に考えればZuishinさんが言うようにsplitすればいいのですが、スペースも保全したいということであれば、gオプションをつけてマッチングした結果を使うことになるでしょう。

$_ = 'str1 str2 str3  str4 str5 str6  str7 str8 str9';
@a = /(\S+\s+)/g;
print join('', @a[0,1,2,5,4,3,6..$#a]),"\n";

Comments

[xekdwpsg]

ご回答ありがとうございます。大変参考になりました。