in reply to Replace after match in regex (key value subsitution)
I'd write that as (untested):
I assume non of the values of %main::fixers is undefined.$$text_ref =~ s{"http://\K([^/"]*)(?=["/]){$main::fixers{$1} // $1}eg;
|
---|
In Section
Seekers of Perl Wisdom