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

ref: http://perldoc.perl.org/perlretut.html#Search-and-replace