我对XML还很陌生。我有一个XML文件，其中包含大约8000个产品，我将把这些产品导入我自己的系统中。我想为我的导入程序修改这个XML文件。原始XML文件上的示例产品如下；
<product prodID="PD42BJ1000002020" prodName="Intermec PD42" prodBrand="INTERMEC" globProdID="PD42BJ1000002020">
<tax>KDV18</tax>
<pic>http://.....jpg</pic>
<prodSpec>
<prd spec="Connectivity Interfaces" DEGER="USB - Serial RS232 - Ethernet"/>
<prd spec="Print Width" DEGER="104"/>
<prd spec="Printing Method" DEGER="Direct Thermal - Thermal Transfer"/>
<prd spec="Resolution (DPI)" DEGER="203"/>
</prodSpec>
</product>
我想将产品规格更改为独特的元素，如下所示；
<product prodID="PD42BJ1000002020" prodName="Intermec PD42" prodBrand="INTERMEC" globProdID="PD42BJ1000002020">
<tax>KDV18</tax>
<pic>http://.....jpg</pic>
<pr001>Connectivity Interfaces:USB - Serial RS232 - Ethernet</pr001>
<pr002>Print Width:104</pr002>
<pr003>Printing Method:Direct Thermal - Thermal Transfer</pr003>
<pr004>Resolution (DPI):203</pr004>
</product>
有可能像那样更改整个XML文档吗？
如果您不介意使用Perl，这里有一种使用XML:：Twig:的方法
#!/usr/bin/perl
use strict;
use warnings;
use XML::Twig;
my $infile= shift @ARGV;
XML::Twig->new( twig_handlers => { prodSpec => '&tweak_product },
pretty_print => 'indented',
)
->parsefile( $infile);
exit;
sub tweak_product
{ my( $t, $prodspec)= @_;
my $i=0; # sub tag number
foreach my $prd ($prodspec->children( 'prd'))
{ my $tag= sprintf( 'pr%03d', ++$i);
$prd->set_tag( $tag)
->set_text( $prd->att( 'spec') . ':' . $prd->att( 'DEGER'))
->del_atts;
}
$prodspec->erase;
$t->flush;
}