perl 读写xml举例

1. xml脚本内容如下：

<CONFIG>
	<LOAD>
		<ITEM FILENAME="Drop_Cause.csv"  TABLENAME="PS_CALLDROP_CAUSE"/>
		<ITEM FILENAME="ECIORange_AVG.csv"  TABLENAME="ECIO_RANGE"/>
		<ITEM FILENAME="FX_ALARM.csv"  TABLENAME="FX_ALRAM"/>
		<ITEM FILENAME="Resource_congestion.csv"  TABLENAME="RESOURCE_CONGESTION"/>
		<ITEM FILENAME="RTWP.csv"  TABLENAME="RTWP"/>
		<ITEM FILENAME="Drop_KPI.csv"  TABLENAME="PS_CALLDROP_KPI"/>
		<ITEM FILENAME="BLER_E1.csv"  TABLENAME="BLER_E1"/>
		<ITEM FILENAME="BLER_FE.csv"  TABLENAME="BLER_FE"/>
	</LOAD>	
</CONFIG>

2 perl脚本如下：

#!perl -w
use XML::Simple;
use Data::Dumper;


$xml = XMLin('NSN_ANALYSIS.xml',ForceArray => 1);
print Dumper($xml);
print "nn";

my $itemsref = @{$xml->{"LOAD"}}[0]->{"ITEM"};
print $itemsref;
print "n";
foreach my $Item (@{$itemsref})
{
	print $Item->{"FILENAME"};
	print "->";
	print $Item->{"TABLENAME"};	
	print "n";
}

3. 打印如下：