Replacing text - problem with $1 variable

kr00z3r has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Replacing text - problem with $1 variable by matsmats (Monk) on Sep 03, 2003 at 09:52 UTC
Try either: `perl -pi -e 's/brad(.+?)bill/brian$1bob/gm;' .txt` or `perl -pi -e "s/brad(.+?)bill/brian\$1bob/gm;" .txt` Seems like $1 is interpolated before your code is run. Mats	[reply] [d/l] [select]
Re: Re: Replacing text - problem with $1 variable by kr00z3r (Initiate) on Sep 03, 2003 at 10:20 UTC
Woohoo! It works when changing " to '. Thanks! :) What I'm trying to do is replacing some code in some php-files from `$_GET["whatever"]` to `get("whatever)` and `$_POST["whatever"]` to `post("whatever")` so I can make some functions that handles all http-arguments with special characters like жшець by converting them to html-tags like ø Martin	[reply] [d/l] [select]
Re: Re: Re: Replacing text - problem with $1 variable by Hutta (Scribe) on Sep 03, 2003 at 12:33 UTC
`perl -pi -e 's/\$_(GET\|POST)\[([^\]]*)]/lc($1) . "($2)"/egm;' test.php` [download] Assuming there's no nested square brackets inside your argument list to `$_GET[]` and `$_POST[]`, that will work.	[reply] [d/l] [select]
Re: Replacing text - problem with $1 variable by broquaint (Abbot) on Sep 03, 2003 at 09:44 UTC
Seems to work here. Update: which is obvious since I'm using single quotes (non-interpolative) and you're using double-quotes (interpolative) so the `$1` is being interpolated and the replace part of `s///` actually looks like `brianbob`. Try something like this (i.e using single-quotes) and your code should work fine `perl -le '$_="brad123bill"; print; s/brad(.+?)bill/brian$1bob/; print' brad123bill brian123bob` [download] HTH `_________ broquaint`	[reply] [d/l]
Re: Replacing text - problem with $1 variable by jeffa (Bishop) on Sep 03, 2003 at 13:36 UTC
Looks like the problem is solved, but if you are wanting to grab digits into $1, why not grab digits instead? `s/brad(\d+)bill/brian$1bob/gm` [download] Also, i am still bummed out by the long-standing fact that this: `perl -le'$foo="bar";print $foo'` [download] only works for *NIX, while this: `perl -le"$foo='bar';print $foo"` [download] only works for Win32 ... it's not Perl's fault, which makes me think that we will never have naturally portable one-liners. :( jeffa L-LL-L--L-LL-L--L-LL-L-- -R--R-RR-R--R-RR-R--R-RR B--B--B--B--B--B--B--B-- H---H---H---H---H---H--- (the triplet paradiddle with high-hat)	[reply] [d/l] [select]