Wie führe ich eine Perl-Substitution an einer Zeichenkette durch und behalte dabei das Original bei?

Question

Wie kann man in Perl eine Zeichenkette mit einem regulären Ausdruck ersetzen und den Wert in einer anderen Variablen speichern, ohne das Original zu verändern?

Normalerweise kopiere ich die Zeichenkette einfach in eine neue Variable und binde sie dann an die s/// regex, die die Ersetzung auf die neue Zeichenfolge, aber ich frage mich, ob es einen besseren Weg, um dies zu tun?

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

Answer 1

Dies ist die Redewendung, die ich immer verwendet habe, um eine modifizierte Kopie einer Zeichenkette zu erhalten, ohne das Original zu verändern:

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

In Perl 5.14.0 oder später können Sie die neue /r nicht-destruktiver Substitutionsmodifikator :

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

---

HINWEIS:
Die oben genannten Lösungen funktionieren ohne g auch. Sie funktionieren auch mit allen anderen Modifikatoren.

ALSO SEHEN:
perldoc perlrequick : Schnellstart für reguläre Ausdrücke in Perl

Answer 2

Die Erklärung:

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

Das ist gleichbedeutend mit:

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

Alternativ können Sie ab Perl 5.13.2 auch /r um eine nicht destruktive Substitution durchzuführen:

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

Answer 3

Unter use strict , sagen:

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

stattdessen.

Answer 4

Die Einzeiler-Lösung ist eher ein Schibboleth als guter Code; gute Perl-Programmierer werden sie kennen und verstehen, aber sie ist viel weniger transparent und lesbar als das zweizeilige Copy-and-modify-Couplet, mit dem Sie beginnen.

Mit anderen Worten, ein guter Weg, dies zu tun, ist der Weg, den Sie bereits es zu tun. Unnötige Prägnanz auf Kosten der Lesbarkeit ist kein Gewinn.

Answer 5

Eine weitere Lösung aus der Zeit vor 5.14: http://www.perlmonks.org/?node_id=346719 (siehe Japhys Beitrag)

Da sein Ansatz auf map Es funktioniert auch gut für Arrays, erfordert aber eine Kaskadierung map um ein temporäres Array zu erzeugen (andernfalls würde das Original verändert werden):

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