如何在保留原始字符串的同时对字符串执行Perl替换？

在Perl中，有什么好方法可以使用正则表达式对字符串进行替换并将值存储在不同的变量中，而无需更改原始值？

我通常只是将字符串复制到新变量，然后将其绑定到s///对新字符串进行替换的正则表达式，但是我想知道是否有更好的方法来做到这一点？

$newstring = $oldstring;
$newstring =~ s/foo/bar/g;

这是我惯常使用的成语，无需更改原始字符串即可获得字符串的修改后的副本：

(my $newstring = $oldstring) =~ s/foo/bar/g;

在perl 5.14.0或更高版本中，可以使用新的/r 非破坏性替换修饰符：

my $newstring = $oldstring =~ s/foo/bar/gr; 

注意：以上解决方案g无法正常工作。它们还可以与任何其他修饰符一起使用。

该声明：

(my $newstring = $oldstring) =~ s/foo/bar/g;

等效于：

my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

另外，从Perl 5.13.2开始，您可以/r用来进行非破坏性替换：

use 5.013;
#...
my $newstring = $oldstring =~ s/foo/bar/gr;

在下use strict，说：

(my $new = $original) =~ s/foo/bar/;

代替。

单行代码解决方案比起好的代码更有用。好的Perl编码人员会知道并理解它，但是它比您刚开始的两行复制和修改对联的透明度和可读性要差得多。

换句话说，执行此操作的一种好方法是您已经执行的操作。以可读性为代价的不必要的简洁并不是胜利。

另一个5.14之前的解决方案：http ://www.perlmonks.org/?node_id=346719（请参阅japhy的帖子）

正如他的方法所使用的map，它也适用于数组，但是需要级联map以生成一个临时数组（否则将修改原始数组）：

my @orig = ('this', 'this sucks', 'what is this?');
my @list = map { s/this/that/; $_ } map { $_ } @orig;
# @orig unmodified

我讨厌foo和bar ..谁反正在编程中梦见了这些非描述性术语？

my $oldstring = "replace donotreplace replace donotreplace replace donotreplace";

my $newstring = $oldstring;
$newstring =~ s/replace/newword/g; # inplace replacement

print $newstring;
%: newword donotreplace newword donotreplace newword donotreplace

如果使用编写Perl use strict;，那么即使声明了该语法，也将发现单行语法无效。

带有：

my ($newstring = $oldstring) =~ s/foo/bar/;

你得到：

Can't declare scalar assignment in "my" at script.pl line 7, near ") =~"
Execution of script.pl aborted due to compilation errors.

相反，您一直在使用的语法（一行较长）是使用的正确语法use strict;。对我来说，使用use strict;现在只是一种习惯。我会自动执行。大家应该。

#!/usr/bin/env perl -wT

use strict;

my $oldstring = "foo one foo two foo three";
my $newstring = $oldstring;
$newstring =~ s/foo/bar/g;

print "$oldstring","\n";
print "$newstring","\n";