在perl中使用XML::Simple与Data::Dumper对XML文件进行操作。

foo.xml文件，内容如下：

<servers>
       <server>
               <name>sahara</name>
               <osname>solaris</osname>
               <osversion>2.6</osversion>
               <address>10.0.0.101</address>
               <address>10.0.1.101</address>
       </server>
       <server>
               <name>gobi</name>
               <osname>Linux</osname>
               <osversion>2.0.34</osversion>
               <address>10.0.0.103</address>
               <address>10.0.1.103</address>
       </server>
</servers>

pxml_001.pl为处理脚本

tiger506@darkstar:~/Program/Perl$ cat ./pxml_001.pl
#!/usr/bin/perl
use XML::Simple;
use Data::Dumper;

my $xml_file="/home/tiger506/Program/Perl/foo.xml";
my $serv_info=XMLin($xml_file);
print Dumper($serv_info);
print "Server-sahara\'s os version is: ".$serv_info->{server}->{sahara}->{osversion}."\n";

执行结果如下：

tiger506@darkstar:~/Program/Perl$ ./pxml_001.pl
$VAR1 = {
         'server' => {
                     'sahara' => {
                                 'osversion' => '2.6',
                                 'osname' => 'solaris',
                                 'address' => [
                                              '10.0.0.101',
                                              '10.0.1.101'
                                            ]
                               },
                     'gobi' => {
                               'osversion' => '2.0.34',
                               'osname' => 'Linux',
                               'address' => [
                                            '10.0.0.103',
                                            '10.0.1.103'
                                          ]
                             }
                   }
       };
Server-sahara's os version is: 2.6

本文转自 tiger506 51CTO博客，原文链接：http://blog.51cto.com/tiger506/1340920，如需转载请自行联系原作者