EXPRESSIONS REGULIERES

Perl offre la même puissance de manipulation d'expressions régulières que la commande "egrep" d'Unix. On utilise l'opérateur conditionnel =~ qui signifie en gros "contient". Syntaxe: chaîne =~/expression/

Exemple:
if ($nom =~ /^[Dd]upon/) {print "OK !";}


=> Ok si nom est 'dupont', 'dupond', 'Dupont-Lassoeur'
^ signifie « commence par »
On peut rajouter « i » derrière l'expression pour signifier qu'on ne différencie pas les majuscules des minuscules.
Le contraire de l'opérateur =~ est !~ (ne contient pas ...)
if ($nom !~ /^dupon/i) {print "Non...";}

Options:
chaîne =~/expression/g
recherche toutes les occurences, et non pas seulement la premiere

chaîne =~/expression/i
insensible aux majuscules/minuscules

1. Rappels
   
   
   • [a-z] tout caractère alphabétique
   • [aeiouy] toute voyelle
   • .tout caractère sauf fin de ligne
   • [a-zA-Z0-9] tout caractère alphanumérique
   • le caractère ^ au début d'un ensemble signifie « tout sauf »
   • ([^0-9] : tout caractère non numérique)
   • (toto|titi|tata): toto ou titi ou tata
   • Un caractère spécial: \n, « retour-chariot», \t : tabulation, ^ : début de ligne, $ : fin de ligne
   • \w signifie « un mot », \s signifie « un espace », \W « tout sauf un mot », \S « tout sauf un espace » , \d « un chiffre », \D « tout sf un chiffre »

   Remarque :Si l'on veut qu'un carcatère spécial apparaisse tel quel, il faut le précéder d'un « anti- slash » (\), les caractères spéciaux sont :
   « ^ | ( ) [ ] { } \ / $ + * ? .»
   
   
   

2. Exemples
   
   
   print 'Etes vous d\'accord?';
   $reponse = <STDIN>
   if ($reponse =~ /^O/i{
    print "alors on contine...\n";
   }
   
   
   
   while ($ligne = <F>) {
    if ($ligne =~ /([0-9][0-9]\.)+) /{ #si la ligne est de la forme 04.91...
     print $ligne;
    }
   }

   Les parenthèses permettent de récupérer des parties de l'expression dans les variables $1, $2, etc...
   Par exemple:
   $chaine = " ORGANISM Mycoplasma genitalium";
   $chaine =~ /ORGANISM\s+(\S+)\s+(\S+)/
   print "genre: $1, espece: $2\n"
   

   
   
   
3. Remplacements
   
   
   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:
   
   $seq =~ s/U/T/; #remplace les U par des T
   
   $tel =~ s/^91\./04\.91\./;
   
   

   options :
   s/exp/remp/i; => Indifférenciation minuscules/majuscules
   s/exp/remp/g; => Remplace toute occurrence (pas seulement la première)
   

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

   \U$1 signifie $1 en majuscules