Re: Interpolation of capture buffers not working when regex stored in variable

You're confusing string literals (code) and strings (values).

In the source, "$2$1" is a string literal. It results in a string made up of the values of $1 and $2.

my $p = "$2$1";       # my $p = $2.$1;
                      # Doesn't change the value of $2 or $1.
[download]

In the source, "$ARGV[0]" is a string literal. It results in a string made up of the value of $ARGV[0].

my $p = "$ARGV[0]";   # my $p = "".$ARGV[0];
                      # Doesn't change the value of $ARGV[0].
[download]

If you want process the value of a variable for $1 and $2 and replace them, you are trying to implement a templating system. There's a one that matches your specs called String::Interpolate.

use String::Interpolate qw( interpolate);

my $t = '$1$2';
  or 
my $t = $ARGV[0];

my $p = interpolate($t);
[download]

Comment on Re: Interpolation of capture buffers not working when regex stored in variable Select or Download Code

Replies are listed 'Best First'.
Re^2: Interpolation of capture buffers not working when regex stored in variable by jacklh (Initiate) on Jun 06, 2013 at 00:58 UTC
Thank you very much! String::Interpolate worked in conjunction with "replace()" code used by methods 4 & 5. We new about the string literal vs string value, but we didn't know how to "cast" it (not mentioned in any of the docs), so we'd hoped Perl would figure it out from context like it does for so many other type conversions. You have saved us. Many thanks again.	[reply]
Re^3: Interpolation of capture buffers not working when regex stored in variable by jacklh (Initiate) on Jun 06, 2013 at 01:10 UTC
Here's the modified code for others reference: `use String::Interpolate qw( interpolate ); ...[snip]... # Method 4: worked! (not global) #my ($before, $after) = $regex =~ m{/(.)/(.)/}; #$filename = replace($filename, $before, sub {interpolate($after)},0); # Method 5: worked! (global) my ($before, $after) = $regex =~ m{/(.)/(.)/}; $filename = replace($filename, $before, sub {interpolate($after)},1);` [download]	[reply] [d/l]