Re: XML::Twig removing tags from content (XML::Twig)

[toolic]

cut_children removes the 'p' tags and gets you closer...

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

my $str = <<EOF;
<li>
  <p>
   Some <b>text</b>
  </p>
</li>
EOF

my $t = XML::Twig->new(
    twig_handlers => {li => \&li},
    pretty_print  => 'indented',
);
$t->parse($str);
$t->print();

sub li {
    my ($t, $elt) = @_;
    for my $p ($elt->children('p')) {
        for my $c ($p->cut_children()) {
            $c->paste($elt);
        }
        $p->delete();
    }
}

__END__

<li><b>text</b>
   Some </li>

[slugger415]

Hi Canon, getting closer, but for some reason the children are coming out in the wrong order (reversed?):

Original:

<li class="c2">
	<p class="Number1">In the XYZ pane, select the <span class="c1">PageID</span> ruleset and click the <span class="c1">Lock/Unlock ruleset</span> button. Then expand the
	<span class="c1">PageID</span> ruleset to view the two rules.</p>
</li>

Result:

      <li class="c2"> ruleset to view the two rules.<span class="c1">PageID</span> button. Then expand the
            <span class="c1">Lock/Unlock ruleset</span> ruleset and click the <span class="c1">PageID</span>In the XYZ pane, select the </li>

Thoughts?

[slugger415]

To answer my own question, using reverse seems to fix the problem:

    for my $p ($elt->children('p')) {
        for my $c (reverse($p->cut_children())) {
            $c->paste($elt);
        }
        $p->delete();
    }

I don't understand why it's needed, but it works.