in reply to Passing regexp as argument
Pass string and the replacement as 2 arguments:
$obj->changeName($topNodeOfXmlTree, 'WrongNode', 'RightNode'); sub changeNodeNames { my ($self,$node,$from,$to) = @_; my $nodeName = $node->nodeName; $nodeName =~ s/$from/$to/; ... }
|
---|
In Section
Seekers of Perl Wisdom