我有一个表,我想在 shell 脚本中以与列相反的顺序提取行

我有一个表,我想在 shell 脚本中以与列相反的顺序提取行

该表如下所示:

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:

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

相关内容