線を分割して並べ替え

Question 1

パールの使用：

$ perl -F';' -lne 'splice @F, 7, 0, (splice @F, 4, 1); print join ";", @F' sample.txt 
1;2;3;4;5;6;7;8;9;10;11
11;12;13;14;15;16;17;18;19;20;21

例を見るPerlでのスライスとダイシングされたアレイの接続

Answer

パールの使用：

$ perl -F';' -lne 'splice @F, 7, 0, (splice @F, 4, 1); print join ";", @F' sample.txt 
1;2;3;4;5;6;7;8;9;10;11
11;12;13;14;15;16;17;18;19;20;21

例を見るPerlでのスライスとダイシングされたアレイの接続

Question 2

awkを使う

awk 'BEGIN{FS=OFS=";"}{$8=$8 FS $5;$5=RS;sub(RS FS,"");print}' sample.txt > req_op.txt

説明を含む拡張バージョン：

awk '
  BEGIN{FS=OFS=";"} #Sets input (FS) and output (OFS) field separators
  {                 #For each line
    $8=$8 FS $5     #Append the 5th field after the 8th field
    $5=RS           #Put a newline (the record separator) in the 5th field
    sub(RS FS,"")   #Remove the newline and its following FS
    print           #Print the resulting line
  }     
' sample.txt > req_op.txt

5番目のフィールドを一時的に置き換えるためにレコード区切り文字（あなたの場合は改行）を選択したのはなぜですか？確かに記録に残らない唯一のキャラクターだからです。その後、sub(RS FS,"")どこかに空のフィールドがあっても、5番目のフィールドを必ず削除してください。

その行がわからない場合は、その行をsub削除して出力に何が起こるかを確認してください。

Sedを使う

拡張正規表現を使用してください。

sed -E 's|(([^;]*;){4})([^;]*;)(([^;]*;){3})|\1\4\3|' sample.txt > req_op.txt

POSIXに準拠したデフォルトの正規表現を使用すると、基本的に上記と同じですが、それぞれ(){}エスケープが必要です（ため息！）。
```
sed 's|\(\([^;]*;\)\{4\}\)\([^;]*;\)\(\([^;]*;\)\{3\}\)|\1\4\3|' sample.txt > req_op.txt
```

ssed の代替コマンドです。その後の文字は区切り記号です（私が選択したもの|）。正規表現スロット、代替スロット、およびフラグスロット（この場合は空）を定義します。

正規表現のいくつかの要素は次のとおりです。

[^;]*;：セミコロン以外の文字が0個以上表示され、その後にセミコロンが続きます。
([^;]*;){4}：上記の表現はキャプチャグループに属し、正確に4回繰り返す必要があります。
(([^;]*;){4})\1：上記の式は外部キャプチャグループにあり、代替式で再現されます。内部キャプチャグループが置き換えられます\2。

したがって、最初の行で何が起こるかは1;2;3;4;8;5;6;7;9;10;11;次のとおりです。

\1得る1;2;3;4;
\3得る8;
\4得る5;6;7;

に並べ替えられます\1\4\3。

逆参照の詳細については、次を参照してください。パターンの一部を保存するには\ 1を使用してください。（ところで、このページは良いsedチュートリアルです。）

Answer