Perl 对json的过滤脚本

【魄爺】

　　最近在写一个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:$t\n";
$k++;
}