in reply to How to filter XML elements, exclude some

Another way is to use XML::Twig delete: 
use warnings;
use strict;

use XML::Twig;
my $twig = new XML::Twig(
    twig_handlers => {
        desc => sub { $_->delete() },
        img  => sub { $_->delete() },
        size => sub { $_->delete() },
    },
);
$twig->parsefile('in.xml');
$twig->set_pretty_print('indented');
$twig->print_to_file('out.xml');

__END__

<items>
  <item>
    <id>12345</id>
    <name>Name1</name>
  </item>
  <item>
    <id>54321</id>
    <name>Name2</name>
  </item>
</items>

[download]

Replies are listed 'Best First'.
Re^2: How to filter XML elements, exclude some
by ak1234 (Initiate) on Sep 13, 2013 at 12:34 UTC
    Is it possible to avoid excluding name-specific elements? i.e. not to delete (and include others) but to include specific ones (and omit others)? The problem is that other elements than desc, img and size might occur
[reply]
      #!perl
use strict;
use XML::Twig;
my $twig = new XML::Twig( twig_handlers => { 'item' => \&item } );
$twig->parsefile('in.xml');
$twig->set_pretty_print('indented');
$twig->print_to_file('out.xml');

sub item {
  my ($t,$e) = @_;
  for ($e->children){
    $_->delete unless ($_->name =~ /^id|name$/);  
  }
}

      [download]
      poj
[reply]
[d/l]
      Sure, if you spend a little more time researching: 
      use warnings;
use strict;
use XML::Twig;

my $twig = new XML::Twig(
    twig_handlers => {
        item => \&item,
    },
);
$twig->parsefile('in.xml');
$twig->set_pretty_print('indented');
$twig->print_to_file('out.xml');

sub item {
    my ( $twig, $item ) = @_;
    for my $c ($item->children()) {
        $c->cut($item) unless
            $c->tag() eq 'id' or
            $c->tag() eq 'name'
        ;
    }
}

      [download]
[reply]
[d/l]
        Thank you.
[reply]

In Section Seekers of Perl Wisdom