☰

n行目ごとに新しい列を開始する方法は？

tag-icon • tag-icon shell text-processing awk command-line perl
n行目ごとに新しい列を開始する方法は？

Linuxシステムには、カンマで区切られた3つの列を持つファイルがあります。 4行目ごとに新しい列を開始したいと思います。

入力する：

col1,col2,col3 
1,disease1,high
1,disease2,low 
1,disease3,high
col1,col2,col3 
2,disease1,low 
2,disease2,low 
2,disease3,high
col1,col2,col3
3,disease1,low
3,disease2,low
3,disease3,low

予想出力：

col1,col2,col3,col1,col2,col3,col1,col2,col3
1,disease1,high,2,disease1,low,3,disease1,low
1,disease2,low,2,disease2,low,3,disease2,low
1,disease3,high,2,disease3,high,disease3,low

つまり、私は4行の出力を望み、各行はカンマで接続された4番目の入力行の結果です。

答え1

そしてawk：

awk '{a[NR%4] = a[NR%4] (NR<=4 ? "" : ",") $0}
     END{for (i = 1; i <= 4; i++) print a[i%4]}' < input.txt

答え2

paste4つの行を1つにまとめてread4つの変数に結合したら、各変数を出力ラインに追加してみてください。

paste -s -d"   \n" file | 
{ while read A B C D 
    do  L1="$L1$DL$A"
        L2="$L2$DL$B"
        L3="$L3$DL$C"
        L4="$L4$DL$D"
        DL=, 
    done 
  printf "%s\n" "$L1" "$L2" "$L3" "$L4"  
}
col1,col2,col3,col1,col2,col3,
1,disease1,high,2,disease1,low,
1,disease2,low,2,disease2,low,
1,disease3,high,2,disease3,high,

編集する：またはより簡単には、以下は必要ありませんpaste。

while read A && read B && read C && read D     
  do    L1="$L1$DL$A"
        L2="$L2$DL$B"
        L3="$L3$DL$C"
        L4="$L4$DL$D"
        DL=,     
  done < file 
printf "%s\n" "$L1" "$L2" "$L3" "$L4"

関連情報