Re: Double interpolation of captured substrings

You can do away with the hash completely by passing the order as a list rather than a string.

#! perl -slw
use strict;

sub munge { 
    my( $str, $regex ) = ( shift, shift );
    my @matches = ( undef, $str =~ $regex );
    return join'', @matches[ @_ ];
}

print munge( 
    'one_two_three', 
    '^([^_]+)_([^_]+)_([^_]+)$', 
    2, 1, 3 
);
__END__
[10:24:12.59] P:\test>junk
twoonethree
[download]

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail "Time is a poor substitute for thought"--theorbtwo
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

Comment on Re: Double interpolation of captured substrings Download Code

Replies are listed 'Best First'.
Re^2: Double interpolation of captured substrings by Fletch (Bishop) on Nov 17, 2004 at 16:59 UTC
You could also allow for referencing the whole match as 0 with: `$str =~ $regex; my @matches = map substr( $str, $-[$_], $+[$_] - $-[$_] ), 0..$#-;` [download]	[reply] [d/l]