我需要传递一个正则表达式替换为一个变量：
sub proc {
my $pattern = shift;
my $txt = "foo baz";
$txt =~ $pattern;
}
my $pattern = 's/foo/bar/';
proc($pattern);
这当然不行。我试着评估替代：
eval("$txt =~ $pattern;");
但是也没有。我在这里错过了什么可怕的明显的事？
I need to pass a regex substitution as a variable
你做？为什么不通过代码引用？例：
sub modify
{
my($text,$code) = @_;
$code->($text);
return $text;
}
my $new_text = modify('foo baz',sub { $_[0] =~ s/foo/bar/ });
一般来说，当你想通过“某事做某事”到一个子程序(在你的问题的情况下是一个正则表达式替换)，答案是通过一个代码的引用。 Higher Order Perl是一本关于这个话题的好书。
