LinuxQuestions.org - Perl Regexp search-n-replace

- Programming (https://www.linuxquestions.org/questions/programming-9/)

- - Perl Regexp search-n-replace (https://www.linuxquestions.org/questions/programming-9/perl-regexp-search-n-replace-333972/)

Perl Regexp search-n-replace

I have a hash of strings containing patterns (keys) and replacement strings (values). Normally, in perl, when you execute:

s/<regexp pattern>/repstr $1 $2/g

$1 and $2 will be replaced with whatever was matched in the regexp (provided the regexp contained parens for grouping). However when I place a replacement string such as 'repstr $1 $2' into the hash and then retrieve it to be placed into the s///g the $1,$2,... gets lost.

I have tried a couple different tricks to try to get 's///g' to evaluate the replacement string but I can't convince it. How do I fix this?

TIA,
jpbarto

This is a major problem with perl, one that is to be resolved in Perl6.

That said, I have a couple suggestions:
Have you tried backslashing the dollar signs? Then it won't (rather shouldn't... I haven't had this particular perl experience) evaluate them until you call it. But I doubt that will work. There is a way to evaluate perl code in a regular expression, but I can't recall it. I feel it was something like curly braces around the expression, but don't trust me there.

Next perhaps it would work to eval the entire expression.

Code:

while(($key,$value) = each %hash){

    eval{

        $string = s/$key/$value/g;

    }

}

Then again, I'm terrible at doing evals, so if that works char for char, I'll be damned.

Either way, assuming the hash is the only way to go, I think an eval of some sort is your best bet.

I'm sorry I'm so unhelpful. You really picked one of the aspects of perl that I can't quite get a hold on. Hopefully someone can come along who's better at those than I am.

Quote:

I'm sorry I'm so unhelpful

No, you have the idea

The script should be like :

PHP Code:




foreach $key (keys %hash) { 
    $replace = $hash{$key}; 
    eval "\$string=~s/$key/$replace/g"; 
}

Note the "\$string" syntax so it does not try to replace
$string with its value