Perl 简单读写XML 文件

使用XML::SImple来读写XML

info.xml

<?xml version="1.0" encoding="UTF-8"?>
<dbs>
<db>
<sid>test</sid>
<user>XIAOMING</user>
<passwd>xxxxxx</passwd>
</db>
<db>
<sid>tetrtre</sid>
<user>DONGHUA</user>
<passwd>yyyyy</passwd>
</db>
</dbs>

源码：

use strict;  
use warnings;  
use XML::Simple;  
use Data::Dumper;  
use 5.010;
my $xmlfile = "info.xml";  
my $xml = XML::Simple->new(KeyAttr=>"", ForceArray => 1);    
my $tree = $xml->XMLin($xmlfile);  
say Dumper($tree);  
my @datas = @{$tree->{"db"}};  
my $len = @datas;  
say "data length = $len";  
foreach(@datas){  
    if(ref($_) eq 'HASH'){  
        my %itmes = %{$_};  
        say $itmes{'passwd'};  
    }else{  
    say $_;  
    }  
      
} 

输出：-----------------