截取行中某列的数据

xjxh829

截取行中某列的数据。文本内容如下，
A217467=111,  A217468=222,  D368005=AAA,  A217469=333}>
A217467=666,  A217468=777,  D368005=BBB,  A217469=888}>

截取后记录是
AAA，111,222,333
BBB，666,777,888
请问如何用命令行的方式获取？不想使用脚本了。谢谢。

xjxh829

回复 2# leijskg

很巧妙的方式。我一直在想用awk来断开。你直接用sed替换成空行来获取了。
   

zxy877298415

1. awk -F "[,=}>]" '{for(i=1;i<=NF;i++) if(i%2==0) {if($i~/[A-Z]/) t=$i;else k=k","$i}print t k;t=k=0}'  file

复制代码

回复 1# xjxh829


   

jason680

回复 3# xjxh829

this way ...

$ awk -F'[=, }]+' '{OFS=",";print $6,$2,$4,$8}' FILE
AAA,111,222,333
BBB,666,777,888

   

zy86416779

1. [root@study shell]# echo $a | awk 'BEGIN {FS="="} {printf $4 "," $2 "," $3 "," $5 "\n"}' | sed 's/}>//g' | awk 'BEGIN {FS=","} {printf $1 ","  $3 "," $5 "," $7 "\n"}'   
   
2. AAA,111,222,333
   
3. [root@study shell]# echo $a
   
4. A217467=111, A217468=222, D368005=AAA, A217469=333}>

复制代码

jcdiy0601

1. awk -F"=|,|}" '{for(i=2;i<=NF-2;i+=2)printf("%s,",$i);printf("%s",$8);print ""}' file

复制代码

reyleon

1. perl -lane 'print "$3,$1,$2,$4" if /\s*\w+?=(\w+?),\s*\w+?=(\w+?),\s*\w+?=(\w+?),\s*\w+?=(\w+)/' file

复制代码

重楼君

awk -F"[,=}]" 'BEGIN{OFS=","} {print $6,$2,$4,$8}' filename

xjxh829

回复 4# zxy877298415
没有看懂。 请教下，这个 k 是做什么用途的？ 而 k=k  和 t=k=0 是什么意思的？谢谢。