Como executo uma substituição Perl em uma string, mantendo o original?

No Perl, qual é uma boa maneira de executar uma substituição em uma string usando uma expressão regular e armazenar o valor em uma variável diferente, sem alterar o original?

Normalmente, apenas copio a string para uma nova variável e a s///vinculo ao regex que substitui a nova string, mas queria saber se existe uma maneira melhor de fazer isso?

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

Este é o idioma que eu sempre usei para obter uma cópia modificada de uma string sem alterar o original:

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

No perl 5.14.0 ou posterior, você pode usar o novo /r modificador de substituição não destrutivo :

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

Nota: As soluções acima gtambém funcionam sem . Eles também trabalham com outros modificadores.

A declaração:

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

O que equivale a:

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

Como alternativa, a partir do Perl 5.13.2, você pode usar /rpara fazer uma substituição não destrutiva:

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

Abaixo use strict, diga:

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

em vez de.

A solução de uma linha é mais útil como shibboleth do que como um bom código; bons codificadores Perl o conhecerão e entenderão, mas é muito menos transparente e legível do que o dístico de duas linhas para copiar e modificar com o qual você está começando.

Em outras palavras, uma boa maneira de fazer isso é como você já está fazendo. Concisão desnecessária ao custo da legibilidade não é uma vitória.

Outra solução anterior à 5.14: http://www.perlmonks.org/?node_id=346719 (consulte a publicação do japhy)

Como sua abordagem usa map, também funciona bem para matrizes, mas requer cascata mappara produzir uma matriz temporária (caso contrário, o original seria modificado):

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

Eu odeio foo e bar .. quem inventou esses termos não descritivos em programação?

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

Se você escrever Perl use strict;, verá que a sintaxe de uma linha não é válida, mesmo quando declarada.

Com:

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

Você obtém:

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

Em vez disso, a sintaxe que você está usando, enquanto uma linha mais longa, é a maneira sintaticamente correta de fazer isso use strict;. Para mim, usar agora use strict;é apenas um hábito. Eu faço isso automaticamente. Todo mundo deveria.

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