perl 对 xml 和 json 的简单应用
时间：2009-08-04 来源：huifeideluotuo
应用需求，需要调用php的一个接口，可以返回xml格式，也可以返回json格式，下面简单的对这2种格式进行测试。
1，xml格式
测试文件 book.xml 如下：
<config>
<user>freddy</user>
<passwd>longNails</passwd>
<books>
<book author="Steinbeck" title="Cannery Row"/>
<book author="Faulkner" title="Soldier's Pay"/>
<book author="Steinbeck" title="East of Eden"/>
</books>
</config> 代码如下： #!/usr/bin/perl -w use strict;
use Data::Dumper;
use XML::Simple; #print Dumper (XML::Simple->new()->XMLin($ARGV[0]));
my $conf = XMLin($ARGV[0]); my $user = $conf->{'user'};
my $pass = $conf->{'passwd'}; print "$user\n";
print "$pass\n"; my $i = 0; while( $conf->{'books'}->{book}[$i] ) {
print "$conf->{books}->{book}[$i]->{title}\t",
"$conf->{books}->{book}[$i]->{author}\n";
$i ++;
}
输出结果如下：
[root@localhost opt]# ./xml_simple.pl book.xml
freddy
longNails
Cannery Row Steinbeck
Soldier's Pay Faulkner
East of Eden Steinbeck 实际环境中就把xml文件换成你get的网址就可以了。
2，json格式 JSON (JavaScript Object Notation) 的数据格式，是“一种轻量级的数据交换格式, 易于人阅读和编写,同时也易于机器解析和生成“。 下面的json应用就是实际环境中的应用，get一个URL地址，传递给邮件地址，然后返回一个json字符串，对json字符串进行解析，得到username对应的值。
主要用到了Encode模块以及JSON模块 代码如下： #!/usr/bin/perl use JSON;
use Encode;
use Data::Dumper;
use LWP::Simple; my $mail = '[email protected]'; my $js = get(
"http://192.16.100.100/sina/outlink.php?xx=json&module=get_email&email=$mail"
);
print Dumper from_json($js); $hash = from_json($js);
$user = $hash->{'username'} . "\n";
print encode("gb2312", $user); 代码执行如下： [root@localhost opt]# ./json.pl
$VAR1 = {
'username' => “\x{4e2d}\x{9ad8}\x{8ddf}(6-8cm)”,
............
............
}; 赵三 实际上，可以将数组的输出取消，那么用户 “赵三” 就是我们想要的值。
<user>freddy</user>
<passwd>longNails</passwd>
<books>
<book author="Steinbeck" title="Cannery Row"/>
<book author="Faulkner" title="Soldier's Pay"/>
<book author="Steinbeck" title="East of Eden"/>
</books>
</config> 代码如下： #!/usr/bin/perl -w use strict;
use Data::Dumper;
use XML::Simple; #print Dumper (XML::Simple->new()->XMLin($ARGV[0]));
my $conf = XMLin($ARGV[0]); my $user = $conf->{'user'};
my $pass = $conf->{'passwd'}; print "$user\n";
print "$pass\n"; my $i = 0; while( $conf->{'books'}->{book}[$i] ) {
print "$conf->{books}->{book}[$i]->{title}\t",
"$conf->{books}->{book}[$i]->{author}\n";
$i ++;
}
输出结果如下：
[root@localhost opt]# ./xml_simple.pl book.xml
freddy
longNails
Cannery Row Steinbeck
Soldier's Pay Faulkner
East of Eden Steinbeck 实际环境中就把xml文件换成你get的网址就可以了。
2，json格式 JSON (JavaScript Object Notation) 的数据格式，是“一种轻量级的数据交换格式, 易于人阅读和编写,同时也易于机器解析和生成“。 下面的json应用就是实际环境中的应用，get一个URL地址，传递给邮件地址，然后返回一个json字符串，对json字符串进行解析，得到username对应的值。
主要用到了Encode模块以及JSON模块 代码如下： #!/usr/bin/perl use JSON;
use Encode;
use Data::Dumper;
use LWP::Simple; my $mail = '[email protected]'; my $js = get(
"http://192.16.100.100/sina/outlink.php?xx=json&module=get_email&email=$mail"
);
print Dumper from_json($js); $hash = from_json($js);
$user = $hash->{'username'} . "\n";
print encode("gb2312", $user); 代码执行如下： [root@localhost opt]# ./json.pl
$VAR1 = {
'username' => “\x{4e2d}\x{9ad8}\x{8ddf}(6-8cm)”,
............
............
}; 赵三 实际上，可以将数组的输出取消，那么用户 “赵三” 就是我们想要的值。
相关阅读 更多 +
