substitutions multiples avec une seule expression régulière Perl

Question

Dire que je donne les résultats suivants en Perl:

my $string; 
$string =~ s/ /\\ /g; 
$string =~ s/'/\\'/g; 
$string =~ s/`/\\`/g; 

Vous pouvez effectuer les substitutions ci-dessus avec une expression régulière unique combinée au lieu de 3 séparés les?

Answer 1

$string =~ s/([ '`])/\\$1/g; 

Utilise un character class[ '`] pour correspondre à l'un de l'espace, 'ou `et utilise les supports () de se rappeler le caractère correspondant. $1 est ensuite utilisé pour inclure le caractère mémorisé dans le remplacement.

Answer 2

Des substitutions séparées peuvent être beaucoup plus efficaces qu'un seul complexe (par exemple lorsqu'on travaille avec des sous-chaînes fixes). Dans ce cas, vous pouvez rendre le code plus court, comme celui-ci:

my $string;  
for ($string) { 
    s/ /\\ /g; 
    s/'/\\'/g; 
    s/`/\\`/g; 
} 

Answer 3

Bien qu'il soit sans doute plus facile de lire la façon dont vous l'avez maintenant, vous pouvez effectuer ces substitutions à la fois en utilisant une boucle, ou en les combinant dans un expression:

# loop 
$string =~ s/$_/\\$_/g foreach (' ', "'", '`'); 

# combined 
$string =~ s/([ '`])/\\$1/g; 

par ailleurs, vous pouvez faire vos substitutions un peu plus facile à lire en évitant « penchant syndrome cure-dent », comme les différents opérateurs regex vous permettent d'utiliser une variété de délimiteurs:

$string =~ s{ }{\\ }g; 
$string =~ s{'}{\\'}g; 
$string =~ s{`}{\\`}g;