元の文字列を維持しながら、文字列に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プログラマーはそれを知って理解しますが、最初の2行のコピーと変更のカプレットよりもはるかに透過的で読みにくいです。

言い換えれば、これを行うための良い方法は、すでにそれを行っている方法です。読みやすさを犠牲にして不必要に簡潔にすることは勝ちではありません。

5.14より前の別のソリューション：http : //www.perlmonks.org/? node_id=346719 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;で記述した場合、宣言されていても、1行の構文が無効であることがわかります。

と：

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.

代わりに、これまで使用してきた構文は、1行長くなりますが、で構文的に正しい方法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";