相关疑难解决方法(0)

我需要将正则表达式替换作为变量传递:

sub proc {
    my $pattern = shift;
    my $txt = "foo baz";

    $txt =~ $pattern;
}

my $pattern = 's/foo/bar/';
proc($pattern);

当然,这不起作用.我试着评估替换:

eval("$txt =~ $pattern;");

但那也不起作用.我在这里错过了多么可怕的事情？