Jak wykonać podstawianie Perla na łańcuchu przy zachowaniu oryginału?

Wypowiedź:

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

Co jest równoważne:

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

Alternatywnie, od wersji Perla 5.13.2 możesz użyć /r do wykonania nieniszczącej substytucji:

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

Pod use strict, powiedz:

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

Rozwiązanie Jednowierszowe jest bardziej przydatne jako shibbolet niż dobry kod; dobrzy koderzy Perla będą go znać i rozumieć, ale jest znacznie mniej przejrzysty i czytelny niż dwuwiersz kopiowania i zmiany w dwóch liniach, od których zaczynasz.

Innymi słowy, dobrym sposobem na to jest sposób, w jaki już to robisz. Niepotrzebna zwięzłość kosztem czytelności nie jest wygraną.

Nienawidzę foo i bar .. kto w ogóle wymyślił te nieopisowe terminy w programowaniu?

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

Inne rozwiązanie przed 5.14: http://www.perlmonks.org/?node_id=346719 (Zobacz post japhy)

Ponieważ jego podejście wykorzystuje map, działa również dobrze dla tablic, ale wymaga kaskadowania map do wytworzenia tymczasowej tablicy (w przeciwnym razie oryginał zostałby zmodyfikowany):

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

Jeśli napiszesz Perl za pomocą use strict;, to przekonasz się, że składnia jednej linii nie jest poprawna, nawet jeśli jest zadeklarowana.

Z:

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

Otrzymujesz:

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

Zamiast tego, składnia, której używasz, podczas gdy linia jest dłuższa, jest poprawnym składniowo sposobem na to za pomocą use strict;. Dla mnie używanie use strict; jest teraz tylko nawykiem. Robię to automatycznie. Każdy powinien.

#!/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";