According to my script, I would like to search each "record" node if found "institute = Thammasat" I would like to replace the "record" node with new node "$ritem". But after running the script. The result is as following: 1. The found "record" in the first employee is removed instead of replace. 2. The found "record" in the second employee is replaced correctly. Is it strange? or maybe I do something wrong. Please help. Here is the incorrect output after running script: 
<?xml version="1.0" encoding="UTF-8"?>
<company name="ABC" branch="bangkok">
    <employee code="emp0001">
        <info>
            <general>
                <name>Somchai Chaisom</name>
                <photo>/employee/photo/emp001.gif</photo>
                <position>Helpdesk Officer</position>
                <department>IT</department>
            </general>
        </info>
        <education>
            <record>
                <institute>Mahidol</institute>
                <year>2548-2550</year>
                <degree>Master</degree>
                <faculty>IT</faculty>
                <major>IT</major>
                <gpa>2.6</gpa>
            </record>
            
        </education>
    </employee>
    <employee code="emp0002">
        <info>
            <general>
                <name>Manee Meena</name>
                <photo>/employee/photo/emp002.gif</photo>
                <position>Programmer</position>
                <department>IT</department>
            </general>
        </info>
        <education>
            <record>
                <institute>Siam University</institute>
                <year>2538-2542</year>
                <degree>Bachelor</degree>
                <faculty>Engineer</faculty>
                <major>Software Engineering</major>
                <gpa>3.3</gpa>
            </record>
            <record><institute>test</institute><degree>test</degree><g
+pa>test</gpa><faculty>test</faculty><major>test</major><year>test</ye
+ar></record>
        </education>
    </employee>
</company>

[download]
For your question about quote and not quote the variable, I have adjust the code into the same direction as following: 
#!/usr/bin/perl

use warnings;
use XML::DOM;

$link = "Thammasat";
%rlinks =    (
            "institute" => "test",
            "year" => "test",
            "degree" => "test",
            "faculty" => "test",
            "major" => "test",
            "gpa" => "test",
            );

my $rfile = "employee.xml";

my $xparser = XML::DOM::Parser->new();
my $xdoc = $xparser->parsefile($rfile);
$ritem = $xdoc->createElement("record");
    
foreach $key (keys %rlinks) {
    $new = $xdoc->createElement($key);
    $text = $xdoc->createTextNode($rlinks{$key});
    $new->appendChild($text);
    $ritem->appendChild($new);
}

foreach my $xitem ($xdoc->getElementsByTagName("record")) {
    $durl = $xitem->getElementsByTagName("institute")->item(0)->getFir
+stChild->getNodeValue;
    if($durl eq $link) {
        $p = $xitem->getParentNode();
        $p->replaceChild($ritem,$xitem);   #this return incorrect resu
+lt
        #$xdoc->getDocumentElement()->replaceChild($ritem,$xitem);  #t
+his return NOT_FOUND_ERR
    }
}

$xdoc->printToFile($rfile);

[download]
For your comment about: 
$xitem->getElementsByTagName('institute')->item(0)->getFirstChild->get
+NodeValue;

[download]
It returns error after I change to: error = Can't locate object method "getNodeValue" via package "XML::DOM::NodeList" 
$xitem->getElementsByTagName('institute')->getNodeValue;

[download]

In reply to Re^2: XML::DOM - NOT_FOUND_ERR by sureerat
in thread XML::DOM - NOT_FOUND_ERR by sureerat

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.