in reply to Advanced (or not) regular expression

First, you should be using $1 on the right-hand side, not \1.

Second, you need to be trickier. Here's one way: 

my $from = "my (mom)";  # UPDATE: was '"my (mom")'
my $to = "our \$1";
$content =~ s/$from/qq{qq{$to}}/ee;

[download]
It's a bit difficult to explain, but it's two layers of evaluation. The first layer turns qq{qq{$to}} into qq{our $1}, and the second layer interpolates $1.

Or, you could use DynScalar: 

use DynScalar;
my $from = "my (mom)";
my $to = dynamic { "our $1" };
$content =~ s/$from/$to/;

[download]
It's magic.
_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re: Re: Advanced (or not) regular expression
by kvale (Monsignor) on Apr 23, 2004 at 02:54 UTC
    Hmm, that first chunk of code won't compile. Here is an alternative solution: 
    use strict;
use warnings;

my $content = "my mom";
my $from = qr|my (mom)|;
my $to = '"our ".$1';
$content =~ s/$from/$to/ee;
print "$content\n";

    [download]

    -Mark

[reply]
[d/l]

In Section Seekers of Perl Wisdom