Help for this page

Select Code to Download

Select or download this
eval "\$nodeName =~ $regEx";

Select or download this

sub changeNodeNames {
    my ($self,$node,$regEx,$subst) = @_;
    my $nodeName = $node->nodeName;
...
    # . . .
}
$foo->changeNodeNames($anode, qr/foo/, 'bar');