Re^2: How to remove empty XML elements using XML::LibXML

Thanks - that works perfectly when operating on 1.xml or another XML document object.

Your sample uncovered another layer/problem:

my XML document comes from Net::EPP::Frame (cpan.org says "This module implements a subclass of the XML::LibXML::Document..."), so I'm doing something wrong when I try:

use Net::EPP::Frame;

my $frame = Net::EPP::Frame::Command::Update::Contact->new;
#...
my $xpc = XML::LibXML::XPathContext->new($frame);
$xpc->registerNs('contact', 'urn:ietf:params:xml:ns:contact-1.0');
for my $name (qw(rem add)) {
        for my $node ($xpc->findnodes("//contact:$name".'[not(*|text()
+|@*|processing-instruction()|comment())]', $frame->documentElement)) 
+{
            $node = $node->parentNode->removeChild($node);
        }
}

print $frame->toString(1);
[download]

My thinking is that because Net::EPP::Frame inherits from XML::LibXML::Document, I should be able to operate on $frame (the XML document) similarly to your original solution... but I'm missing something.

Comment on Re^2: How to remove empty XML elements using XML::LibXML Download Code

Replies are listed 'Best First'.
Re^3: How to remove empty XML elements using XML::LibXML by choroba (Cardinal) on Feb 18, 2013 at 08:46 UTC
I have no experience with Net::EPP::Frame. What error do you get, or how is the output different from your expectations? Also, what does `ref $frame` say? لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: How to remove empty XML elements using XML::LibXML by FreakyGreenLeaky (Sexton) on Feb 18, 2013 at 16:52 UTC
Running my sample code produces no change at all, and no error. The offending XML elements are still there. `ref $frame` says `Net::EPP::Frame::Command::Update::Contact` [download]	[reply] [d/l] [select]