slugger415 has asked for the wisdom of the Perl Monks concerning the following question:

Hello Monks, I have some XML such as this, where the linktext element contains a combination of text and other elements:

<citreference id="mycite">
<linktext><keyword conref="ds"/> support for IPv6 addresses</linktext>
</citreference>

[download]

I can capture this with XML::Twig by creating an array, and referencing it thusly, where $citref is my handler:

my(@children) = $citref->first_child('linktext')->children;
$linktext{$citref->att('id')} = \@children;

[download]

Simple enough. The question I'm having is how to extract that into another element elsewhere? I couldn't find that in the documentation. Something like:

my($h) = $linktext{'xxx'}; # the xxx is the appropriate id for the has
+h
$newcontext->set_text(\@$h); # $newcontext is 'xref' in this case

[download]

That doesn't work right, but I'm getting something in the output:

<xref>ARRAY(0x4128670)</xref>

I suspect the $e->set_text() function only applies to text (not elements) and I suspect if there's more than one text segment each will clobber the previous. Hence I'm cautious about iterating through the array.

Any tips on how to do this? Thank you.

Replies are listed 'Best First'.
Re: XML::Twig - setting text and elements
by Anonymous Monk on Sep 08, 2015 at 23:16 UTC
    What is the xml that you want to create? (yes I realize there is maybe a word description of what you want, but actual xml is easier to interpret)
[reply]

      So dom style http://xmltwig.org 

      #!/usr/bin/perl --
use strict; 
use warnings; 
use XML::Twig;
my $t = XML::Twig->new( pretty_print => 'indented' );
$t->xparse(q{<roooooo>
  <citreference id="mycite">
    <linktext>
      <keyword conref="ds"/> support for IPv6 addresses</linktext>
  </citreference>
  <moops></moops>
</roooooo>});
$t->print;
my( @links ) = $t->findnodes( '//linktext' );
my( $moops ) = $t->findnodes( '//moops' );
for my $link ( @links ){
    print $link->path, "\n";
    $link->cut->paste( $moops );
}
$t->print;
__END__
<roooooo>
  <citreference id="mycite">
    <linktext><keyword conref="ds"/> support for IPv6 addresses</linkt
+ext>
  </citreference>
  <moops></moops>
</roooooo>
/roooooo/citreference/linktext
<roooooo>
  <citreference id="mycite"></citreference>
  <moops>
    <linktext><keyword conref="ds"/> support for IPv6 addresses</linkt
+ext>
  </moops>
</roooooo>

      [download]
[reply]
[d/l]

        Thank you for the suggestion. My solution was this:

        $topicref->set_content(@$h);
[reply]
[d/l]

      Sorry i wasn't clear about that. I'd like everything inside of linktext to go inside of xref.

      <xref><keyword conref="ds"/> support for IPv6 addresses</xref>

      [download]

      I also didn't mention there might be other elements midway.

      <linktext><keyword conref="ds"/> support for <b>IPv6</b> addresses</li
+nktext>

      [download]

      So I need to iterate through the @children array and handle each child, which is either text or an element.

      thanks, will try these other suggestions.

[reply]
[d/l]
[select]
[reply]
Re: XML::Twig - setting text and elements
by Anonymous Monk on Sep 09, 2015 at 14:29 UTC
    Try $newcontext->paste(last_child => $_) foreach @{$linktext{'xxx'}} (written from a phone, code is untested). Paste() is XML::Twig::Elt's method.
[reply]
[d/l]

      tried that, but getting this:

      cannot paste an element that belongs to a tree at C:\scripts\keyref2href.pl line 259.

      line 259:

      $topicref->paste(last_child=>$_);

      seems to be crashing on the $_ that contains the reference to the element. Any thoughts?

      Thank you.

[reply]
[d/l]
[select]

        Any thoughts?

        You can't paste what has not been cut?

[reply]
        Either $_->copy or $_->cut the element you are trying to paste.
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom