perl中的内联正则表达式替换

Question

有没有办法用正则表达式内联替换文本,而不是从变量中取出文本并将其存储在变量中？

我是初学者.我经常发现自己写作

my $foo = $bar;
$foo =~ s/regex/replacement/;
doStuff($foo)

我真的很想写的地方

doStuff($bar->replace(s/regex/replacement/));

或者类似,而不是使用临时变量和三行.

有没有办法做到这一点？显然,当正则表达式足够复杂时,将它拆分出来以便更好地解释是有意义的,但是当它只是s/\s//g用其他变量使代码混乱时感觉是错误的.

Answer 1

你真的不能做你想要的,因为替换函数返回一个1if if working或者一个空字符串,如果它不起作用.这意味着如果你这样做:

doStuff($foo =~ s/regex/replacement/);

该doStuff函数将使用任一1或空字符串作为参数.没有理由为什么替换函数不能返回结果字符串而不是只返回1它是否有效.然而,这是Perl早期的设计决定.否则,这会发生什么？

$foo = "widget";
if ($foo =~ s/red/blue/) {
    print "We only sell blue stuff and not red stuff!\n";
}

结果字符串仍然存在widget,但替换实际上失败了.但是,如果替换返回结果字符串而不是空字符串,则if仍然为真.

然后,考虑这种情况:

$bar = "FOO!";
if ($bar =~ s/FOO!//) {
   print "Fixed up \'\$bar\'!\n";
}

$bar现在是一个空字符串.如果替换返回结果,则返回空字符串.然而,替换实际上成功了,我希望我if是真的.

在大多数语言中,替换函数返回结果字符串,您必须执行以下操作:

if ($bar != replace("$bar", "/FOO!//")) {
   print "Fixed up \'\$bar''!\n";
}

因此,由于Perl设计决策(基本上是为了更好地模仿awk语法),没有简单的方法来做你想要的.但是你可以做到这一点:

($foo = $bar) =~ s/regex/replacement/;
doStuff($foo);

这将在$foo没有首先为其赋值的情况下进行到位设置$bar.$bar会保持不变.

Answer 2

use Algorithm::Loops "Filter";

# leaves $foo unchanged
doStuff( Filter { s/this/that/ } $foo );

Answer 3

从perl 5.14开始,您可以使用非破坏性替换来实现所需的行为.

使用/r修饰符可以这样做:

doStuff($bar=~s/regex/replacement/r);