1.打开XML文件
my $file = $_[0];
my $parser = new XML:OM:arser;
my $doc = $parser->parsefile($file);
2.修改其中的一个字段内容
my $EntityID=$EntityRecNode->getAttribute("EntityID";
print $EntityID." Old EntityID+++++\r\n";
$EntityRecNode->setAttribute("EntityID",$CpgID);
print $EntityRecNode->getAttribute("EntityID"." New EntityId+++++\r\n";