Perl的等效PHP的preg_callback

Question

Perl中有preg_callback等价物吗？

比方说，我想匹配一些东西，并用匹配的东西调用的函数的返回值替换它。

Answer 1

使用s///e - 评估修改器，你可以把任意的Perl代码放在第二部分。

$x = "this is a test"; 
$x =~ s/(test)/reverse($1)/eg; 
print $x; 

//this is a tset 

裁判：http://perldoc.perl.org/perlretut.html#Search-and-replace