Question

我对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文档？

Answer 1

如果您不介意使用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;
  }

如何更改XML元素的属性

1 个答案: