note
edan
<p>Pass string and the replacement as 2 arguments:
<code>
$obj->changeName($topNodeOfXmlTree, 'WrongNode', 'RightNode');
sub changeNodeNames {
my ($self,$node,$from,$to) = @_;
my $nodeName = $node->nodeName;
$nodeName =~ s/$from/$to/;
...
}
</code>
<div class="pmsig"><div class="pmsig-236234">
--<br />[edan]<br /><br />
</div></div>
416142
416142