¿Cómo realizo una sustitución Perl en una cadena mientras mantengo el original?

La declaración:

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

Que es equivalente a:

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

Alternativamente, a partir de Perl 5.13.2 puede usar /r para hacer una sustitución no destructiva:

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

En use strict, diga:

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

En su lugar.

La solución de una línea es más útil como shibboleth que un buen código; los buenos codificadores de Perl lo sabrán y lo entenderán, pero es mucho menos transparente y legible que el pareado de copia y modificación de dos líneas con el que está comenzando.

En otras palabras, una buena manera de hacer esto es la forma en que ya lo estás haciendo. La concisión innecesaria a costa de la legibilidad no es una victoria.

Odio foo y bar .. ¿quién inventó estos términos no descriptivos en la programación de todos modos?

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

Otra solución pre-5.14: http://www.perlmonks.org/?node_id=346719 (ver el post de japhy)

Como su enfoque utiliza map, también funciona bien para matrices, pero requiere en cascada map para producir una matriz temporal (de lo contrario, el original sería modificado):

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

Si escribe Perl con use strict;, entonces encontrará que la sintaxis de una línea no es válida, incluso cuando se declara.

Con:

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

Obtienes:

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

En cambio, la sintaxis que ha estado utilizando, mientras que una línea más larga, es la forma sintácticamente correcta de hacerlo con use strict;. Para mí, usar use strict; es solo un hábito ahora. Lo hago automáticamente. Todos deberían.

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