regex - Perl 同时替换多个字符串

Question

有没有办法替换一个字符串中的多个字符串？
例如，我有字符串 hello world what a lovely day我想更换 what和 lovely用别的东西..

$sentence = "hello world what a lovely day";
@list = ("what", "lovely"); # strings to replace
@replist = ("its", "bad"); # strings to replace with
($val = $sentence) =~ "tr/@list/@replist/d";
print "$val\n"; # should print "hello world its a bad day"..

任何想法为什么它不起作用？

谢谢。

Answer 1

首先，tr不能那样工作；咨询 perldoc perlop欲知详情，但 tr做音译，和代换有很大的不同。

为此，更正确的替换方法是

# $val
$val =~ s/what/its/g;
$val =~ s/lovely/bad/g;

请注意，“同时”更改相当困难，但我们可以这样做，例如，

%replacements = ("what" => "its", "lovely" => "bad");
($val = $sentence) =~ s/(@{[join "|", keys %replacements]})/$replacements{$1}/g;

(当然，用元字符替换字符串可能需要转义。)

这仍然只是从一个非常松散的意义上来说是同时的，但在大多数情况下，它确实表现得好像替换是在一次传递中完成的。

另外，替换 "what"更正确与 "it's" , 而不是 "its" .