perl 读写xml举例

最新推荐文章于 2021-08-26 11:55:22 发布

bruce_wang_janet

最新推荐文章于 2021-08-26 11:55:22 发布

阅读量1.9k

点赞数

分类专栏： Perl 沙漠之舟文章标签： perl xml 脚本

本文链接：https://blog.csdn.net/bruce_wang_janet/article/details/7790995

版权

Perl 沙漠之舟专栏收录该内容

59 篇文章 2 订阅

订阅专栏

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 "\n\n";

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

3. 打印如下：