[32510] in Perl-Users-Digest
Perl-Users Digest, Issue: 3775 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 10 03:09:19 2012
Date: Mon, 10 Sep 2012 00:09:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 Sep 2012 Volume: 11 Number: 3775
Today's topics:
Setting backreference inside of a string <jwcarlton@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 9 Sep 2012 23:41:40 -0700 (PDT)
From: Jason C <jwcarlton@gmail.com>
Subject: Setting backreference inside of a string
Message-Id: <e6880560-d84a-4316-b2d4-fcd467b5413b@googlegroups.com>
I'm doing a replace, like this:
$text = "Yes dear!";
$pattern = "(D|d)ear";
$replace = "$1eer";
$text =~ s/$pattern/$replace/gi;
That's just an example, of course; the real $pattern and $replace come from a database list, and $text comes from form data.
The problem I'm having is that the replace is replacing with a literal "$1eer", instead of setting the $1 to (D|d). Meaning, instead of printing:
Yes deer!
I'm printing:
Yes $1eer!
Any suggestions on how to make $1 in $replace refer to the first group in $pattern?
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 3775
***************************************
