DESS TIMH

Introduction au langage Perl

2. Remplacement
   
   Comme le fait la commande « sed » en Unix, Perl permet de faire des remplacements sur
   une chaîne de caractère, en utilisant la syntaxe :
   $chaîne =~ s/motif/remplacement/;
   où motifest une expression régulière et remplacementce qui remplace.

Exemples:
$fruit =~ s/e$/es/;remplace un « e » final par « es »
$tel =~ s/^99\./02.99\./;remplace les numéros de téléphone par
numérotation

la

nouvelle

On peux référencer une partie du motif dans le remplacement avec $1 ($1 est une variable spéciale
: le contenu de la première parenthèse).
exemple :
Transformer automatiquement les noms d'arbre par « arbre à fruit»
$texte =~ s/([a-z]+)ier /arbre à $1es /;

'cerisier' sera traduit par 'arbre à cerises'
'manguier' => 'arbre à mangues' ...

(contenu de $1 => 'ceris')

Les options :
s/exp/remp/i;

s/exp/remp/g;

=> Indifférenciation minuscules/majuscules

=> Remplace toute occurrence (pas seulement la première)

Pour remplacer un texte par le même en majuscule (\U):
s/([a-z])/\U$1/g;

fait on met le premier mot
/»)

Si on appelle ce programme avec le fichier HTML suivant :

Il affichera :

http://www.med.univ-rennes1.fr/~poulique/cours/perl/

Page 22