在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
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。