Comment effectuer une substitution Perl sur une chaîne tout en conservant l'original?

En Perl, quel est le bon moyen d'effectuer un remplacement sur une chaîne à l'aide d'une expression régulière et de stocker la valeur dans une variable différente, sans changer l'original?

Habituellement, je copie simplement la chaîne dans une nouvelle variable, puis la lie à l' s///expression régulière qui effectue le remplacement sur la nouvelle chaîne, mais je me demandais s'il existe une meilleure façon de le faire?

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

C'est l'idiome que j'ai toujours utilisé pour obtenir une copie modifiée d'une chaîne sans changer l'original:

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

Dans perl 5.14.0 ou version ultérieure, vous pouvez utiliser le nouveau /r modificateur de substitution non destructive :

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

Remarque: les solutions ci-dessus fonctionnent sans gtrop. Ils fonctionnent également avec tous les autres modificateurs.

La déclaration:

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

Ce qui équivaut à:

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

Alternativement, à partir de Perl 5.13.2, vous pouvez utiliser /rpour faire une substitution non destructive:

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

Sous use strict, dites:

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

au lieu.

La solution à une seule ligne est plus utile comme shibboleth que comme bon code; les bons codeurs Perl le sauront et le comprendront, mais c'est beaucoup moins transparent et lisible que le couplet de copie et de modification à deux lignes avec lequel vous commencez.

En d'autres termes, une bonne façon de faire est la façon dont vous le faites déjà . Une concision inutile au détriment de la lisibilité n'est pas une victoire.

Une autre solution pré-5.14: http://www.perlmonks.org/?node_id=346719 (voir l'article de japhy)

Comme son approche l'utilise map, cela fonctionne également bien pour les tableaux, mais nécessite une cascade mappour produire un tableau temporaire (sinon l'original serait modifié):

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

Je déteste foo et bar .. qui a imaginé ces termes non descriptifs dans la programmation de toute façon?

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

Si vous écrivez Perl avec use strict;, vous constaterez que la syntaxe d'une ligne n'est pas valide, même lorsqu'elle est déclarée.

Avec:

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

Vous obtenez:

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

Au lieu de cela, la syntaxe que vous avez utilisée, bien qu'une ligne plus longue, est la manière syntaxiquement correcte de le faire use strict;. Pour moi, utiliser use strict;n'est plus qu'une habitude maintenant. Je le fais automatiquement. Tout le monde devrait.

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