Perl 读取Json 数据

数据格式

{ "userName":"AlbertYan", "pwd":[ { "pwd1":"pwd1", "pwd2":"g2value" }, { "pwd1":"pwd11", "pwd2":"g2222value" }] }

#!/usr/bin/perl use Encode; use JSON; use Data::Dumper;

my $line ; my $path="D:/PerlDemo/jsonData1.xml";

if(open (FN ,"$path") ){ while(<FN>){ $line.=$_; } } my $json = new JSON; my $obj = $json->decode($line); my $username = $obj ->{"userName"}; print $username ."\n" ;

my @demo ; for my $item(@{$obj->{"pwd"}}){ my $res= $item ->{"pwd1"}; push(@demo , $res); }

print "one =$demo[0] two=$demo[1] ";

close(FN);

转载于:https://my.oschina.net/u/946001/blog/285090