Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Double interpolation of captured substrings

by gaal (Parson)
on Nov 17, 2004 at 09:59 UTC ( [id://408350] : note . print w/replies, xml ) Need Help??


in reply to Double interpolation of captured substrings

You might consider assigning your matches into an array, and subscripting that programmatically.

my %patterns = ( 123 => [ 1, 2, 3 ], 312 => [ 3, 1, 2 ] ); @matches = $string =~ /regexp/; $string = join "", @matches[ @{ $patterns{$patternkey} } ];
(You need error handling here, of course; and it probably makes sense to promote the scope of %patterns a bit so that it doesn't get constructed every time you enter the sub.)