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'} ];

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);

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

<app name="xmlsimple" author="dorainm" mail="dorainm@gmail.com"> <log version="0.1" date="2009-04-14"> <change>describes about version 0.1</change> </log> <log version="0.2" date="2009-04-15"> <change>describes about version 0.2</change> </log> </app>

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 ++; }