☰

テーブルがあり、シェルスクリプトから列の逆順に行を抽出したいと思います。

tag-icon • tag-icon shell awk scripting columns
テーブルがあり、シェルスクリプトから列の逆順に行を抽出したいと思います。

テーブルは次のとおりです。

1|Hunk|First|London
2|Hero|Second|London
3|Will|First|Pow
4|Thomas|Second|Pow
5|Venus|First|Berlin

出力を次のように印刷したいと思います。

Berlin|First|venus|5

最後の行だけを印刷したいです。

答え1

パールの使用：

perl -alne 'print reverse split /(\|)/'

（混乱させて申し訳ありません）

または...

perl -alne 'print reverse /[|]|[^|]+/g'

答え2

または、テーブルの出力をsedにパイプすることもできます。

$ cat filename | sed -r 's/(.*)\|(.*)\|(.*)\|(.*)/\4\|\3\|\2\|\1/g'

答え3

この試み、

 awk -F '|' '{for (i=NF;i>0;i--){if (i!=1) printf $i"|"; else printf $i};printf "\n"}' file.csv

London|First|Hunk|1
London|Second|Hero|2
Pow|First|Will|3
Pow|Second|Thomas|4
Berlin|First|Venus|5

最後の行だけを印刷

awk 'END{print}' file.csv | awk -F '|' '{for (i=NF;i>0;i--){if (i!=1) printf $i"|"; else printf $i};printf "\n"}'

答え4

完了するには、次のコマンドを使用します。

 k=`awk '{print NR}' u.txt | sed -n '$p' `
z=`awk -F "|" '{print NF}' u.txt | sort |uniq`
praveen@praveen:~$ for ((i=1;i<=k;i++)); do for ((j=$z;j>=1;j--)); do awk -v i="$i" -v j="$j" -F "|" 'NR==i{print $j}' u.txt ; done| perl -pne "s/\n/ /g"| awk '{print $0"\n"}'|sed -r "s/\s+/|/g"| sed "s/|$//g"; done| sed '/^$/d'

出力

k=`awk '{print NR}' u.txt | sed -n '$p' `
z=`awk -F "|" '{print NF}' u.txt | sort |uniq`
for ((i=1;i<=k;i++)); do for ((j=$z;j>=1;j--)); do awk -v i="$i" -v j="$j" -F "|" 'NR==i{print $j}' u.txt ; done| perl -pne "s/\n/ /g"| awk '{print $0"\n"}'|sed -r "s/\s+/|/g"| sed "s/|$//g"; done| sed '/^$/d'

London|First|Hunk|1
London|Second|Hero|2
Pow|First|Will|3
Pow|Second|Thomas|4
Berlin|First|Venus|5

関連情報