perl 读写XML

时间：2015-07-13 14:16:52 阅读：136 评论：0 收藏：0 [点我收藏+]

标签：

perl 读写xml：主要是写总是忘记怎么搞。。。

一读xml

1）xml实例
<?xml version="1.0" encoding="UTF-8"?>
<employees>
  <employee age = "30">
   <name>linux</name>
   <country>US</country>
  </employee>
  <employee age = "10">
   <name>mac</name>
   <country>US</country>
  </employee>
  <employee age = "20">
   <name>windows</name>
   <country>US</country>
  </employee>
</employees>

2）代码
use File::Basename;
use XML::Simple;
use Data::Dumper;

my $xmlfile = dirname($0) . "\\employees.xml";
if (-e $xmlfile)
{
   print "-----------------------------------------\n";
   my $userxs = XML::Simple->new(KeyAttr => "name");
   my $userxml = $userxs->XMLin($xmlfile);
   # print output
   print Dumper($userxml);

   my %allemployees = %{$userxml->{employee}};
   foreach my $key (keys(%allemployees))
   {
   print $key . " ";
   print $allemployees{$key}{"age"} . "\n";
   }

   print "-----------------------------------------\n";
   my $userxsT = XML::Simple->new(ForceArray => 1);
   my $userxmlT = $userxsT->XMLin($xmlfile);
   # print output
   print Dumper($userxmlT);

   my @allemployeeT = @{$userxmlT->{"employee"}};
   foreach my $employee (@allemployeeT)
   {
   print $employee->{"name"}[0] . " ";
   print $employee->{"age"} . "\n";
   }
}

3）结果

二写xml
代码：
use File::Basename;
use XML::Simple;
use Data::Dumper;

print "-----------------------------------------\n";
# create array
my @arr = [
   {‘country‘=>‘england‘, ‘capital‘=>‘london‘},
   {‘country‘=>‘norway‘, ‘capital‘=>‘oslo‘},
   {‘country‘=>‘india‘, ‘capital‘=>‘new delhi‘} ];

# create object
my $xml = new XML::Simple(NoAttr=>1, RootName=>‘dataroot‘);

# convert Perl array ref into XML document
my $data = $xml->XMLout(\@arr ,outputfile => "output1.xml");

print "-----------------------------------------\n";
my $str=<<_XML_STRING_;
<config logdir="/var/log/foo/" debugfile="/tmp/foo.debug">
<server name="sahara" osname="solaris" osversion="2.6">
  <address>10.0.0.101</address>
  <address>10.0.1.101</address>
</server>
<server name="gobi" osname="irix" osversion="6.5">
  <address>10.0.0.102</address>
</server>
<server name="kalahari" osname="linux" osversion="2.0.34">
  <address>10.0.0.103</address>
  <address>10.0.1.103</address>
</server>
</config>
_XML_STRING_

my $xml_ref=XMLin($str,KeepRoot => 1);
my $xml_str=XMLout($xml_ref,outputfile => "output2.xml");
print "-----------------------------------------\n";

三更多
常用参数：
KeyAttr => [ list ] # in+out - important or KeyAttr => { list } # in+out - important 表示读取出来的dict中的key。
ForceArray => 1 # in - important or ForceArray => [ names ] # in - important 表示dict中的子元素表示为array，而不是dict。
NoAttr => 1 # in+out - handy 表示是否将子元素和属性都写为属性，读入时是否忽略属性。
RootName => ‘string‘ # out - handy 表示写xml时的root节点名字。
KeepRoot => 1 # in+out - handy 表示是处理取root节点

xml-simple模块详细参考：http://search.cpan.org/~grantm/XML-Simple-2.18/lib/XML/Simple.pm

完！
感谢，Thanks！

perl 读写XML

标签：

原文地址：http://my.oschina.net/u/347414/blog/477861

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行