Re: Help with Regexp substitution using variables

The following works, but you risk injecting commands into your script. To do it properly, you'd have to do the variable interpolation yourself.

my ($reg, $reg2) = @ARGV;
my $string = "how1=on&how2=on";

$string =~ s/$reg/ eval "\"$reg2\"" /eg;
print $string;
[download]

Comment on Re: Help with Regexp substitution using variables Download Code

Replies are listed 'Best First'.
Re^2: Help with Regexp substitution using variables by Roy Johnson (Monsignor) on Jan 20, 2005 at 17:41 UTC
Or `$string =~ s/$reg/qq{qq{$reg2}}/eeg;` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^3: Help with Regexp substitution using variables by ikegami (Patriarch) on Jan 20, 2005 at 19:26 UTC
I like making the `eval EXPR` evident over adding a second /e, because of the inheritant risks to using them.	[reply] [d/l]