perl - パターンマッチングを使用して、入力行の最初の3ワードの順序を逆にします。

Question

Perlで質問があります。置換演算子を使用して、各入力行の最初の3つの単語の順序を逆にします。間隔を変更せずに、結果の各行を印刷します。

どうすればこれを解決できますか？

Answer 1

これを試して

$line =~ s/^(\s*)(\w+)(\s+)(\w+)(\s+)(\w+)/$1$6$3$4$5$2/;

完全なコードを投稿していないのは、宿題かこのようなもののようです。

Answer 2

awk はタグ付けされていませんが、おそらくこれに対する awk ソリューションについて知りたいでしょう:

awk '{x=$3" "$2" "$1;$3=$2=$1=""; print x,$0}' your_file