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

Question

En Perl, ¿cuál es una buena manera de realizar un reemplazo en una cadena utilizando una expresión regular y almacenar el valor en una variable diferente, sin cambiar el original?

Por lo general, solo copio la cadena a una nueva variable y luego la ato a la expresión regular s/// que hace la sustitución en la nueva cadena, pero me preguntaba si hay una mejor manera de hacerlo.

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

Answer 1

Este es el idioma que siempre he utilizado para obtener una copia modificada de una cadena sin cambiar el original:

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

en Perl 5.14.0 o posterior, puede utilizar la nueva /rnon-destructive substitution modifier:

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

---

Nota: Las soluciones anteriores funciona sin g también. También funcionan con otros modificadores.

Answer 2

La declaración:

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

es equivalente a:

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

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

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

Answer 3

Si escribe Perl con use strict;, entonces verá que la línea de sincronización el impuesto no es válido, incluso cuando se declara.

Con:

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

que se obtiene:

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 se 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"; 

Answer 4

Bajo use strict, dicen:

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

lugar.

Answer 5

La solución de una línea es más útil como un código shibboleth que bueno; Los buenos programadores de Perl lo sabrán y lo entenderán, pero es mucho menos transparente y legible que el colet de dos líneas para copiar y modificar que está comenzando.

En otras palabras, una buena forma de hacerlo es la forma en que está ya haciendo. La concisión innecesaria a costa de la legibilidad no es una ganancia.

Answer 6

Odio foo and 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 

Answer 7

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

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

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