在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，如需轉載請自行聯系原作者

總結

以上是生活随笔為你收集整理的XML::Simple与Data::Dumper在Perl中的使用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。