请教一个json格式用awk处理

xiongzm

一个json格式的一行字符串为：
{"abab":[[1.11,2.2228],[1.2138,8.3213],[108.23,0.1230],[8235.12,1243]],"cdcdc":[[123.1,2.2428],[1.28,8.3213],[108.23,0.123],[85.12,143],[32534.2,4783.34]]}

结构很简单：{}中有两大字段，每个字段内有很多组数据对，比如[1.11,2.2228]。

现在想要把上面的内容要如下格式列出来：

"abab" ----------------------------------
1.11                   2.2228
1.2138               8.3213
108.23               0.1230



“cdcdc"-----------------------------------
123.1                 2.2428
1.28                   8.3213
108.23               0.123


用awk该用什么命令？多谢！

ywlscpl

回复 1# xiongzm
{}中可以有多段数据

1. awk -F '(]],)|:' '{delete m;for (i=1;i<=NF;i++) if (i%2){gsub(/[}{]/,"",$i);print $i"-------------"}else {gsub(/[][}{]/,"",$i);for (j=1;j<=split($i,m,",");j+=2) print m[j],m[j+1]}}' file

复制代码

1. [root@Mylinux tmp]# cat file
   
2. {"test":[[1,3],[5,6]],"abab":[[1.11,2.2228],[1.2138,8.3213],[108.23,0.1230],[8235.12,1243]],"cdcdc":[[123.1,2.2428],[1.28,8.3213],[108.23,0.123],[85.12,143],[32534.2,4783.34]]}
   
3. [root@Mylinux tmp]# awk -F '(]],)|:' '{delete m;for (i=1;i<=NF;i++) if (i%2){gs
   
4. ub(/[}{]/,"",$i);print $i"-------------"}else {gsub(/[][}{]/,"",$i);for (j=1;j<
   
5. =split($i,m,",");j+=2) print m[j],m[j+1]}}' file
   
6. "test"-------------
   
7. 1 3
   
8. 5 6
   
9. "abab"-------------
   
10. 1.11 2.2228
    
11. 1.2138 8.3213
    
12. 108.23 0.1230
    
13. 8235.12 1243
    
14. "cdcdc"-------------
    
15. 123.1 2.2428
    
16. 1.28 8.3213
    
17. 108.23 0.123
    
18. 85.12 143
    
19. 32534.2 4783.34

复制代码

xiongzm

谢谢！明白您的思路了，有些细节不了解。

有一个问题，我想对其数据好看一点，改为如下：
awk -F '(]],)|:' '{delete m;for (i=1;i<=NF;i++) if (i%2){gsub(/[}{]/,"",$i);print $i"-------------"}else {gsub(/[][}{]/,"",$i);for (j=1;j<=split($i,m,",");j+=2) print m[j],"\t\t",m[j+1]}}' file

但是出来不好看，因为第1列数据位数不完全一样，这儿怎么弄一下？再次感谢！

ywlscpl

回复 3# xiongzm


    print m[j]"\t\t"m[j+1]

BTW:楼主名字缩写很像我一个朋友

xiongzm

OK, done!

yinyuemi

1. echo '{"abab":[[1.11,2.2228],[1.2138,8.3213],[108.23,0.1230],[8235.12,1243]],"cdcdc":[[123.1,2.2428],[1.28,8.3213],[108.23,0.123],[85.12,143],[32534.2,4783.34]]}' |awk -vFS=',' -vOFS='\t' '{gsub(/[]],[[]/,"\n");gsub(/[\[\]\{\}]/,"");gsub(":","--------------\n");gsub(/,"/,"\n\n\"")}$1=$1'
   
2. "abab"--------------
   
3. 1.11    2.2228
   
4. 1.2138  8.3213
   
5. 108.23  0.1230
   
6. 8235.12 1243
   
7. 
   
8. "cdcdc"--------------
   
9. 123.1   2.2428
   
10. 1.28    8.3213
    
11. 108.23  0.123
    
12. 85.12   143
    
13. 32534.2 4783.34
    

复制代码

zzy7186

1. 
   
2. #!/bin/gawk -f
   
3. BEGIN{
   
4.         FS="[:,]";
   
5.         RS="(\"[a-z]+\")"
   
6. }
   
7. {
   
8.         if(NF>1)
   
9.         {
   
10.                 print v"-----------";
    
11.                 i=1;
    
12.                 while(i<=NF)
    
13.                 {
    
14.                         if($i)
    
15.                         {
    
16.                                 gsub(/\]|\[|}|\n/,"",$i);
    
17.                                 gsub(/\]|\[|}|\n/,"",$(i+1));
    
18.                                 b[++j]=$i;
    
19.                                 a[$i]=$(i+1);
    
20.                                 i=i+2;
    
21.                         }else{
    
22.                         i++;
    
23.                         }
    
24.                 }
    
25.         }
    
26.         if(length(a))
    
27.         {
    
28.                 for(i=1;i<=length(a);i++)
    
29.                 {
    
30.                         printf "%s\t%s\n",b[i],a[b[i]];
    
31. 
    
32.                 }
    
33.         }
    
34.         delete a;
    
35.         j=0;
    
36.         v=RT;
    
37. }
    

复制代码

1. 
   
2. [root@Server1 shelllearn]#cat a
   
3. {"abab":[[1.11,2.2228],[1.2138,8.3213],[108.23,0.1230],[8235.12,1243]],"cdcdc":[[123.1,2.2428],[1.28,8.3213],[108.23,0.123],[85.12,143],[32534.2,4783.34]]}
   
4. [root@Server1 shelllearn]#./awk.file a
   
5. "abab"-----------
   
6. 1.11    2.2228
   
7. 1.2138  8.3213
   
8. 108.23  0.1230
   
9. 8235.12 1243
   
10. "cdcdc"-----------
    
11. 123.1   2.2428
    
12. 1.28    8.3213
    
13. 108.23  0.123
    
14. 85.12   143
    
15. 32534.2 4783.34
    

复制代码

zzy7186

yinyuemi 发表于 2011-06-14 03:02

    学习了

justlooks

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use strict;
   
5. 
   
6. my %json=(
   
7.         "abab" => [[1.11,2.2228],[1.2138,8.3213],[108.23,0.1230],[8235.12,1243]],
   
8.         "cdcdc" => [[123.1,2.2428],[1.28,8.3213],[108.23,0.123],[85.12,143],[32534.2,4783.34]],
   
9. );
   
10. 
    
11. for my $key (keys %json)
    
12. {
    
13.         print "\"",$key,"\"-----------------\n";
    
14.         for my $i (0..$#{$json{$key}})
    
15.         {
    
16.                 print ${json{$key}}->[$i][0],"\t",${json{$key}}->[$i][1],"\n";
    
17.         }
    
18. }
    

复制代码