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

转载于:https://my.oschina.net/u/946001/blog/285116

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值