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

##

#!/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) {
		$xdoc->getDocumentElement()->replaceChild($ritem,$xitem);
	}
}

$xdoc->printToFile("$rfile");