使用 PERL 在 XML 中删除 TAG 内的 TAG

Question

我关注XML：

  <TRADEEXT>
    <TRADE att="err" att1="2">
      <val_1 att_01="13"/>
        <TRADE att="err1" att1="2">
          <val_1 att_01="13"/>
        </TRADE>
    </TRADE>
    <TRADE att="err12" att1="211">
      <val_1 att_01="131"/>
        <TRADE att="err11" att1="21">
          <val_1 att_01="13"/>
        </TRADE>
    </TRADE>
  </TRADEEXT>

要求很简单。需要删除所有子交易

因此所需的输出必须是：

  <TRADEEXT>
    <TRADE att="err" att1="2">
      <val_1 att_01="13"/>
    </TRADE>
    <TRADE att="err12" att1="211">
      <val_1 att_01="131"/>
    </TRADE>
  </TRADEEXT>

可以看出没有子交易了。

下面是我乱写的代码。

#!/usr/bin/perl

use warnings;
use strict;
use XML::Twig;

use XML::Twig;
my $twig = new XML::Twig(twig_handlers => {'TRADEEXT/TRADE/TRADE' => sub { $_->delete() }});

$twig->parsefile(file_name_1.xml');
$twig->set_pretty_print('indented');

我不知道为什么它不起作用。

Answer 1

我猜你应该在代码末尾添加一个 $twig->print。

Answer 2

知道了fixed.Posting可能会回答，以便它可以帮助将来的人。

#!/usr/bin/perl

use strict;
use warnings;
use XML::Twig;


my $twig = new XML::Twig( twig_handlers => { 'TRADE/TRADE' => \&TRADE } );

$twig->parsefile('FILE_NAME_1.xml');

$twig->set_pretty_print('indented');

$twig->print_to_file('out.xml');

sub TRADE {
    my ( $twig, $TRADE ) = @_;
    foreach  my $c ($TRADE) 
    {
     $c->delete($TRADE) 

      ;
    }
}

使用 PERL 在 XML 中删除 TAG 内的 TAG

Delete TAG inside TAG in XML using PERL

perl

xml-twig