filtering unwanted tags based on child tag attribute value

[vikas1316]

I am somehow stuck and banging my head. I have to delete unwanted TRADES from a huge XML file.

  <TRADEEXT>
    <TRADE origin = 1,version =1>
      <EVENT externtype ='PROC'>
      </EVENT>
    </TRADE>
    <TRADE origin = 1,version =1>
      <EVENT externtype ='PROCC'>
      </EVENT>
    </TRADE>
    
    </TRADEEXT>

Now, the second TRADE is having externtype = 'PROCC' inside <EVENT> node which is not legitimate(legitimate value is 'PROC')

Hence the final output should be

    <TRADEEXT>
    <TRADE origin = 1,version =1>
      <EVENT externtype ='PROC'>
      </EVENT>
    </TRADE>
    <TRADEEXT>

which should get pasted to new file. My code is

 use strict;
    use warnings;
    use XML::Twig;
    
    my $twig = new XML::Twig( twig_handlers => { TRADE => \&TRADE } );
    $twig->parsefile('1513.xml');
    $twig->set_pretty_print('indented');
    $twig->print_to_file('out.xml');
    
    sub TRADE {
        my ( $twig, $TRADE ) = @_;
        foreach  my $c ($TRADE->children('EVENT')) 
        {
         $c->cut($TRADE) unless
         $c->att('eventtype') eq "PROC"
               
          ;
        }
    }

Unfortunately, it's deleting EVENT tag instead of TRADE tag. Any hint will be appreciated.

[Eily]

I'm surprised this does anything at all since your input file has 'externtype' attributes and you are working on 'eventtype' (and under warnings, you have to check that an attribute is defined before comparing it with a string)

You are using the cut method on $c, which is a child of $TRADE. $TRADE->cut; should work better.

[jdporter]

Try testing attribute 'externtype' rather than 'eventtype'?