整个正则表达式字符串作为变量

Question

my $re = 's/foo/bar/g';
my $x = 'one two foo';

$x =~ $re;

怎么做？

my $re1 = 'foo';
my $re2 = 'bar';

my $x = 'one two foo';

$x =~ s/$re1/$re2/g;

......对我来说不是解决方案！非常感谢提前。

Answer 1

您可以在匿名函数

中使用替换

my $re = sub { s/foo/bar/g for @_ };

my $x = 'one two foo';
$re->($x);