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