Somchai Chaisom /employee/photo/emp001.gif Helpdesk Officer IT Mahidol 2548-2550 Master IT IT 2.6 Manee Meena /employee/photo/emp002.gif Programmer IT Siam University 2538-2542 Bachelor Engineer Software Engineering 3.3 testtesttesttesttesttest ##

##

#!/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)->getFirstChild->getNodeValue;
	if($durl eq $link) {
		$p = $xitem->getParentNode();
		$p->replaceChild($ritem,$xitem);   #this return incorrect result
		#$xdoc->getDocumentElement()->replaceChild($ritem,$xitem);  #this return NOT_FOUND_ERR
	}
}

$xdoc->printToFile($rfile);

##

##

$xitem->getElementsByTagName('institute')->item(0)->getFirstChild->getNodeValue;

##

##

$xitem->getElementsByTagName('institute')->getNodeValue;