CODEWITHSUNDEEP
regexperlvariablescapture-group
dseiple
dseiple

Reputation: 638

Perl search and replace with variable and capture group

As the question says, I am trying to do a search replace using a variable and a capture group. That is, the replace string contains $1. I followed the answers here and here, but they did not working for me; $1 comes through in the replace. Can you help me spot my problem?

I am reading my regular expressions from a file like so:

while( my $line = <$file>) {
    my @findRep = split(/:/, $line);
    my $find = $findRep[0];
    my $replace = '"$findRep[2]"'; # This contains the $1
    $allTxt =~ s/$find/$replace/ee;
}

If I manually set my $replace = '"$1 stuff"' the replace works as expected. I have played around with every single/double quoting and /e combination I can think of.

Upvotes: 0

Views: 763

Answers (2)

mpapec
mpapec

Reputation: 50647

Why regex replacement when you already have your values in @findRep

while( my $line = <$file>) {
    my @findRep = split(/:/, $line);
    $findRep[0] = $findRep[2];
    my $allTxt = join(":", @findRep);
}

Upvotes: 1

RobEarl
RobEarl

Reputation: 7912

You're using single quotes so $findRep[2] isn't interpolated. Try this instead:

my $replace = qq{"$findRep[2]"};

Upvotes: 2

Related Questions