Re: $1 in variable regex replacement string

[tadman]

in reply to Re: Re: Re: $1 in variable regex replacement string
in thread $1 in variable regex replacement string

I'm not sure why you're using a hash there when this should do the trick:

sub safeswitch
{
        no strict 'refs';
        my @P = map { $$_ } 0..@+;
        $_[0] =~ s/\$(\d+)/$P[$1]/g;
        $_[0];
}

As far as I can tell, you're only using %seen to count?

[belden]

Good point. I originally wrote it using a hash, then a few minutes later discovered almost the exact same thing when I followed jsprat's link in this node. I thought about updating my code, but then decided it was buried so deep nobody would find it anyway ;)

blyman
setenv EXINIT 'set noai ts=2'