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

Question

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

我是一个 Perl 初学者。我经常发现自己写

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

在我真正想写的地方

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

或类似的地方，而不是使用临时变量和三行。

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

Answer 1

您确实无法执行您想要的操作，因为替换函数如果有效则返回 1 ，如果无效则返回空字符串。这意味着如果您这样做：

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 仍为 true。

然后，考虑这种情况：

$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

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

使用 /r 修饰符来执行此操作：

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

Answer 3

use Algorithm::Loops "Filter";

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

Answer 4

您可以使用 do { } 块来避免在当前作用域中创建临时变量：

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

Answer 5

这是你想要的吗？:

my $foo = 'Replace this with that';
(my $bar = $foo) =~ s/this/that/;
print "Foo: $foo\nBar: $bar\n";

打印:

Foo: Replace this with that
Bar: Replace that with that

Answer 6

还有另一种方法：编写您自己的函数：

sub replace (
    my $variable = shift;
    my $substring = shift;

    eval "\$variable =~ s${substring};";
    return $variable
}

doStuff(replace($foo, "/regex/replace/"));

这​​对于单个调用来说是不值得的，并且在这种情况下可能只会使您的代码更加混乱。但是，如果您执行此操作十几次左右，则编写自己的函数来执行此操作可能更有意义。