Perl 对json的过滤脚本
发布时间:2020-12-16 00:02:01 所属栏目:大数据 来源:网络整理
导读:最近在写一个web应用,其中接触到json过滤,根据数据的类型写出这个脚本。 本来准备使用第三方库的,可是网速太卡,所以。。。。 # !/usr/bin/perl $tmp = ; if ( $tmp =~m # {(.*)}#){ $list =$ 1 ; @tmp = split (/,/, $list ); } @tmp_url = keys %{ { ma
最近在写一个web应用,其中接触到json过滤,根据数据的类型写出这个脚本。 #!/usr/bin/perl $tmp=<>; if($tmp=~m#{(.*)}#){ $list=$1; @tmp=split(/,/,$list); } @tmp_url= keys %{ {map {$_ => 1} @tmp} }; while(<@tmp_url>){ if($_=~m#status:(.*)#){ if($1 != 'Success'){ last; } } if($_=~m#^[(.*)#){ push(@other_url,$1); } if($_=~m#domainArray:[[#){ @key=split(/[/,$_); push(@other_url,$key[2]); } } $k=1; foreach my $t (@other_url){ print "$k:$tn"; $k++; } (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |