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

Question

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

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

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

Answer 1

这是我一直用来在不更改原始字符串的情况下获取字符串的修改副本的习惯用法：

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

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

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

---

笔记：
上述解决方案也可以在没有g情况下工作。 它们还可以与任何其他修饰符一起使用。

也可以看看：
perldoc perlrequick : Perl 正则表达式快速perldoc perlrequick

Answer 2

该声明：

(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;

Answer 3

在use strict ，说：

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

反而。

Answer 4

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

doing it.换句话说，这样做的好方法是您在这样做。 以可读性为代价的不必要的简洁并不是一种胜利。

Answer 5

另一个 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

Answer 6

我讨厌 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

Answer 7

如果你用use strict;写 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; . 对我来说，使用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";

Answer 8

如果我只是在 oneliner 中使用它，那么sprintf("%s", $oldstring)