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( ){ $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);