文本转json

crasshopper

有下面的一个文件：

=== WriteRows ===
Column: id, Value: 10
Column: name, Value: aa
Column: sc, Value: 100
=== UpdateRows ===
Column: id, Value: 10 => 20
Column: name, Value: aa => aa
Column: sc, Value: 100 => 100
=== WriteRows ===
Column: id, Value: 10
Column: name, Value: aa
Column: sc, Value: 100
=== DeleteRows ===
--
Column: id, Value: 20
Column: name, Value: aa
Column: sc, Value: 100
--
Column: id, Value: 20
Column: name, Value: aa
Column: sc, Value: 100


要把上面的文件转化为json 类型

{"type":"WriteRows","id":"10","name":"aa","sc":"100"}
{"type":"UpdateRows","old_id":"10","old_name":"aa","old_sc":"100","id":"20","old_name":"aa","old_sc":"100"}
{"type":"DeleteRows","id":"20","name":"aa","sc":"100"}
{"type":"DeleteRows","id":"20","name":"aa","sc":"100"}


求教

jason680

回复 1# crasshopper

modify by yourself

$ awk -vq='"' 'function iv(i,v){return(q i q":"q v q)}/^===/{gsub(/^[= ]+|[= ]+$/,"");t=iv("type",$0);c=0;Out=Out N "{" t;N="}\n";next}/^--/{if(c++)Out=Out N "{" t;next}{if(match($0,"Column: ([^,]+), Value: ([^ ]+)( => ([^ ]+))?",a)){if(a[3])Out=Out","iv("old_"a[1],a[2]);Out=Out","iv(a[1],a[2])}}END{print Out"}"}' FILE
{"type":"WriteRows","id":"10","name":"aa","sc":"100"}
{"type":"UpdateRows","old_id":"10","id":"10","old_name":"aa","name":"aa","old_sc":"100","sc":"100"}
{"type":"WriteRows","id":"10","name":"aa","sc":"100"}
{"type":"DeleteRows","id":"20","name":"aa","sc":"100"}
{"type":"DeleteRows","id":"20","name":"aa","sc":"100"}

   

sunzhiguolu

1. 
   
2. #!usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub to_jason{
   
7.     my ($sT, $ra) = (@_);
   
8.     if ($sT eq "WriteRows"){
   
9.         printf ('{"type":"%s","%s":"%s","%s":"%s","%s":"%s"}%s',$sT,@$ra,"\n");
   
10.     }elsif ($sT eq "UpdateRows"){
    
11.         printf ('{"type":"%s","old_%s":"%s","old_%s":"%s","old_%s":"%s","%s":"%s","old_%s":"%s","old_%s":"%s"}%s',$sT,$ra->[0],$ra->[1],$ra->[3],$ra->[4],$ra->[6],$ra->[-1],$ra->[0],$ra->[2],$ra->[3],$ra->[4],$ra->[6],$ra->[7],"\n");
    
12.     }else{
    
13.         my @aCopy = @$ra;
    
14.         while (@aCopy){
    
15.             printf ('{"type":"%s","%s":"%s","%s":"%s","%s":"%s"}%s',$sT,splice (@aCopy,0,6),"\n");
    
16.         }
    
17.     }
    
18. }
    
19. 
    
20. my ($sPrint, @aData, $sType);
    
21. my $sPreType = $1 if (<> =~ /(\w+)/);
    
22. while (<>){
    
23.     if (/\A=\W+(\w+)/){
    
24.         ($sPrint, $sType) = (1, $1);
    
25.     }else{
    
26.         push (@aData, $_) foreach (m/(?:(?<=: )|(?<==> ))\w+/g);
    
27.     }
    
28.     if ($sPrint || eof){
    
29.         to_jason ($sPreType, \@aData);
    
30.         ($sPrint, $sPreType, @aData) = (0, $sType, ());
    
31.     }
    
32. }
    
33. 
    

复制代码

perl toJason.pl data

1. {"type":"WriteRows","id":"10","name":"aa","sc":"100"}
   
2. {"type":"UpdateRows","old_id":"10","old_name":"aa","old_sc":"100","id":"20","old_name":"aa","old_sc":"100"}
   
3. {"type":"WriteRows","id":"10","name":"aa","sc":"100"}
   
4. {"type":"DeleteRows","id":"20","name":"aa","sc":"100"}
   
5. {"type":"DeleteRows","id":"20","name":"aa","sc":"100"}
   

复制代码

sunzhiguolu

回复 2# jason680
大神好, 能否将您的 awk => perl 代码, awk 好多地方看不懂, 希望学习下. 还有我的 perl 代码好像格式化字符串部分很乱. 您那个感觉非常简洁.
能否学习下, 谢谢...

   

jason680

回复 4# sunzhiguolu

>> ... awk 好多地方看不懂

那里不懂....
你这样问，我也不懂......
   

sunzhiguolu

回复 5# jason680
就是在处理最后的输出的时候, 格式化字符串用 perl 怎么弄, 我的那个看着乱糟糟的.

   

sunzhiguolu

回复 5# jason680
向您学习了, function iv 非常棒. 我格式化后的字符串现在一片乱糟糟.

1. sub Wrap{
   
2.     my ($s1, $s2) = (@_);
   
3.     sprintf ('"%s":"%s"',$s1,$s2);
   
4. }

复制代码

lkq1220

回复 2# jason680 你好大神，我在Ubuntu运行是成功的，但是在openwrt的busybox中运行，会出现{"type":"settings","":"","":"","":"","":"","":""}，好像是match部分没有起到作用，请问如何解决比较好，谢谢了

lkq1220

回复 9# 本友会机友会摄友会

可以说说你的解题方法和思路吗？