in reply to Interpolating $1 within a variable

Er, I'm confused:
$_ = q(ab cdefg);
$x = q($1,);
s/(^\w+)/qq("$x")/ee;
print;

[download]
produced:
ab, cdefg

What do you mean by: it worked!, but unfortunately puts "" around regular strings. Any suggestions on how I can interpolate $1 inside of a variable with out any side effects similar to qq("")? What side effects?

Charles K. Clarkson

Replies are listed 'Best First'.
Re: Interpolating $1 within a variable
by s0ttle (Scribe) on Oct 29, 2001 at 14:43 UTC
    What I meant was that when $x=q(ab,); the output was: "ab," cdefg
    but I found out why it was doing this. I had forgotten to add the extra /e and so I kept running:
    perl -le '$_=q(ab cdefg);$x=q(ab,);s/(^\w+)/qq("$x")/e;print;'

    [download]
    But the problem is fixed now. Thank you monks.

    -tengo mas que aprender
[reply]
[d/l]

In Section Seekers of Perl Wisdom