Perl регулярное выражение динамического захвата

Question

Есть ли способ, чтобы установить блок для динамического захвата

my $pattern = '`(.*?)`'; 
$string =~ s{$pattern}{<code/>$1</code>}im; 

Но вместо передачи <code/>$1</code> непосредственно заменить, я хочу, чтобы сохранить его в качестве переменной (которая может отложить в зависимости от типа данные я хочу, чтобы захватить)

my $pattern = '`(.*?)`'; 
my $replace = '<code/>$1</code>'; #or my $replace = '<code/>$2</code>' 
$string =~ s{$pattern}{$replace}im; 

Answer 1

в this post, Jenda предлагает решение, которое может быть применимо к вашему делу. Он включает в себя создание подпрограммы, а затем оценку субрежима для регулярного выражения.

#!/usr/bin/perl 
use strict; 
use warnings; 

my $pattern = '`(.*?)`'; 
my $replace = '<code/>$1</code>'; 
my $code = 'sub {$_[0] =~ s{$pattern}{'. $replace . '}ig}'; 
my $re = eval $code; 

my $string = "Here `is` a string"; 
$re->($string); 

print $string; 

Печатается Here <code/>is</code> a string

Надеются, что это полезно.