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

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.

Comment on Re^2: Interpolation of capture buffers not working when regex stored in variable

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

Re^3: Interpolation of capture buffers not working when regex stored in variable
by jacklh (Initiate) on Jun 06, 2013 at 01:10 UTC

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]