Hi all,

I am using the module XML::LibXML to cut and paste. I can copy the node I want and erase it after. When I want to paste into another node, it doesn't insert. I don't know why it doesn't insert.
I want to insert the node product "800.55.01" to the node of "Grand Abrica".

Here the code and the data. 
use XML::LibXML;

use warnings;
use strict;

my $copy = '';
my $lastnode = '';

my $file = (<DATA>); #UPDATE

my $d = XML::LibXML->new->parse_file(join "", $file);


&copy;
&paste;

$d->toFile('c:\test1.xml');



sub copy {
        for my $dead ($d->findnodes(q{/category/subcategory/product[pr
+oduct_id = "800.55.01"]})) 
        {
            #copy the node before it die
            $copy = $dead->cloneNode;
            
            #the node die
            $dead->unbindNode;

        }
}


sub paste {
        for my $paste ($d->findnodes(q{/category/subcategory[@name = "
+Grand Arabica"]})) 
        {
  
            my $curcopy = $copy;
  
            
            $lastnode = $paste->lastChild;
  
            

            $paste->insertAfter($lastnode, $curcopy);
        }
}



__DATA__
  <category>
          <subcategory name="Prestige">
            <comments><paragraph>Prestige is a very traditional French
+ recipe: a blend of Robusta and Arabica beans. The Robusta is known f
+or its strength and the Arabica for its delicate flavour. The Prestig
+e is the ideal coffee for Espresso. The 500gr come in the re-usable A
+roma Box especially designed to preserve the freshness and aroma of y
+our coffee.</paragraph>
            </comments>
            <photo>images/prestige.jpg</photo>
            <product>Coffee
                <channel>D</channel>
                <channel>A</channel>
                <product_id>800.55.01</product_id>
                <brand>Legal</brand>
                <description>Legal Prestige</description>
                <conditionning unit="gr">250</conditionning>
                <packaging_qty>12</packaging_qty>
                <recipe>/recipes/coffee1.html</recipe>
            </product>
            <product>Coffee
                <channel>D</channel>
                <channel>A</channel>
                <product_id>801.55.01</product_id>
                <brand>Legal</brand>
                <description>Legal Prestige Boite Ar&#xF4;me</descript
+ion>
                <conditionning unit="gr">500</conditionning>
                <packaging_qty>6</packaging_qty>
            </product>
        </subcategory>
        <subcategory name="Grand Arabica">
            <comments><paragraph>Experience the subtle voluptuousness 
+of extraordinary Arabica coffee in your cup. Grand Arabica: incompara
+ble pleasure in coffee.</paragraph></comments>
            <photo>images/arabica.jpg</photo>
            <product>Coffee
                <channel>A</channel>
                <channel>D</channel>
                <channel>S</channel>
                <product_id>802.55.01</product_id>
                <brand>Legal</brand>
                <description>Grand Arabica</description>
                <conditionning unit="gr">250</conditionning>
                <packaging_qty>12</packaging_qty>
            </product>
        </subcategory>
</category>

[download]


Thanks in advance

Maxim

In reply to XML::LibXML cut and paste node by Maxim

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.