在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