如何动态解析正则替换表达式

Perlvim

1. my $string = 's/$pattern/$replace/xmsg';
   
2. 
   
3. $text = parse_regexp($string, $text);

复制代码

动态生成了一组替换规则，$replace 里包含 $1, $2, $+{match} 等字符。
如何将这些字符串格式的规则应用于一个字符串的替换？

Perlvim

1. # -----------------------------------------------------------
   
2. # 不使用 eval 执行正则替换表达式
   
3. # ------------------------------------------------
   
4. sub eval_replace_expression {
   
5.     my ($text, $pattern, $replace) = @_;
   
6.     # 将一个替换字符串中的数字引用变量改为参数引用变量
   
7.     my $iter = create_iter();
   
8.     $pattern =~ s/(?<!\\)\((?!\?)/$iter->()/ge;
   
9.     $pattern = qr/$pattern/xms;
   
10.     $replace =~ s/(?<!\\)\$(\d+)\b/\$+{__$1}/g;
    
11.     if ($text =~ /$pattern/) {
    
12.         while (my ($key, $value) = each %+) {
    
13.             $replace =~ s/(?<!\\)\$\+\{$key\}/$value/g;
    
14.         }
    
15.     }
    
16.     $text =~ s/$pattern/$replace/xmsg;
    
17.     return $text;
    
18. }
    
19. # ----------------------------
    
20. # 创建一个迭代器用于正则表达式的处理
    
21. # ----------------------------------
    
22. sub create_iter {
    
23.     return sub {
    
24.         state $count = 1;
    
25.         my $replace = "(?<__$count>";
    
26.         $count++;
    
27.         return $replace;
    
28.     }
    
29. }
    

复制代码