perl 对 xml 和 json 的简单应用

应用需求，需要调用php的一个接口，可以返回xml格式，也可以返回json格式，下面简单的对这2种格式进行测试。

 

1，xml格式

测试文件 book.xml 如下：

 freddy
 longNails
 
 
 
 
 

 

代码如下：

#!/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 = ;

my $js = get(
""
);

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)”,
   ............
   ............
        };

赵三

 

实际上，可以将数组的输出取消，那么用户 “赵三” 就是我们想要的值。