Perl regex search and replace with $variable->function("args")

Question

Basically I'm trying to replace with whatever is returned from a function call from an object. But I need a return value from the regex search as the argument. It's a little tricky but the code should speak for itself:

while ( $token =~ s/\$P\(([a-z0-9A-Z_]+)\)/$db->getValue("params", qw($1))/e ) { }

The error I'm getting is that $1 is not getting evaluated to anything (the argument literally becomes "$1") so it screws up my getValue() method.

Cheers

amon · Accepted Answer · 2012-09-21 00:58:57Z

5

The qw() functions quotes "words". I.e. it splits a string at all whitespace characters and returns that list. It does not interpolate.

You can just use the variable "as is":

s/\$P\(([a-z0-9A-Z_]+)\)/$db->getValue("params", $1)/e

The qw() function is very different from

q(abc) (<=> 'abc'),
qq(abc) (<=> "abc"), and
qx(abc) (<=> `abc`) or
qr(abc) (<=> m/abc/):

qw(a b c) <=> ('a', 'b', 'c')

answered Sep 21, 2012 at 0:58

amon

57.8k2 gold badges93 silver badges152 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

JDS Over a year ago

You're right, I was using the qw() function incorrectly. Turns out I don't need it. Thanks bro.

Collectives™ on Stack Overflow

Perl regex search and replace with $variable->function("args")

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related