Perl 读写XML文档

概述#!/usr/bin/perl use XML::Simple; use Data::Dumper; @arr = [ {'country'=>'england', 'capital'=>'london'}, {'country'=>'norway', 'capital'=>'oslo'}, {'country'=>'india', 'capital'=>'new delhi'} ]; creat

#!/usr/bin/perl use XML::Simple; use Data::Dumper;

@arr = [ {'country'=>'england','cAPItal'=>'london'},{'country'=>'norway','cAPItal'=>'oslo'},{'country'=>'india','cAPItal'=>'new delhi'} ];

create object

my $xml = new XML::Simple (NoAttr=>1,Rootname=>'data'); my $data = $xml->XMLout(@arr); #print Dumper($data); print ($data);

open (FNS,"> D:\PerlDemo\ff.xml"); print FNS ($data); close (FNS);

################################################

describes about version 0.1 describes about version 0.2

my $conf = XMlin("D:\PerlDemo\parse.xml");

print "Program \n $conf->{'name'} $conf->{'author'} $conf->{'mail'}\n";

my $i = 0; while( $conf->{'log'}->[$i] ) { print "@ $conf->{'log'}->[$i]->{'version'} at " . "$conf->{'log'}->[$i]->{'date'} : " . "$conf->{'log'}->[$i]->{'change'}\n"; $i ++; }

总结

以上是内存溢出为你收集整理的Perl 读写XML文档全部内容，希望文章能够帮你解决Perl 读写XML文档所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。