Les expressions régulières en Perl

Les classes de caractères

Les classes de caractères définies par POSIX, de syntaxe [:classe:], sont reconnues par le langage Perl. Voir le chapitre Les classes de caractères POSIX sur ce sujet pour une définition de ces classes.

Exemple de programme de recherche de correspondance

Le programme search.pl ci-dessous contient un exemple de recherche de correspondance entre une chaîne et une expression régulière :

#!/usr/bin/perl -w 
  
use strict;  
  
my $prgm       = `basename $0`; 
chop($prgm);  
  
sub Main  
{  
     print "ARGC = $#ARGV\n";  
  
     if ($#ARGV != 1) {  
          print STDERR "Usage: $prgm regex string\n"; 
          exit(1);  
     }  
  
     my $regex      = $ARGV[0];  
     my $str        = $ARGV[1];  
  
     print "EXPRESSION = $regex\n";  
     print "CHAINE     = $str\n";  
  
     if ($str =~ m/$regex/) {  
          print "OK\n";  
     }  
     else {  
          print "KO\n";  
     }  
  
     exit(0);  
}  
  
Main(); 
 

Exemple de programme de substitution

Le programme subst.pl ci-dessous contient un exemple de substitution de chaîne de caractères utilisant une expression régulière :

#!/usr/bin/perl -w  
  
use strict;  
  
my $compteur   = 0;  
my $prgm       = `basename $0`;  
chop($prgm);  
  
sub Main  
{  
     if ($#ARGV != 2) {  
          print STDERR "Usage: $prgm variable regex string\n"; 
          exit(1);  
     }  
  
     my $var        = $ARGV[0];  
     my $regex      = $ARGV[1];  
     my $str        = $ARGV[2];  
  
     print "VARIABLE      = \"$var\"\n";  
     print "EXPRESSION    = \"$regex\"\n";  
     print "CHAINE        = \"$str\"\n";  
  
     $var =~ s/$regex/$str/g;  
     print "RESULTAT      = \"$var\"\n";  
  
     exit(0);  
}  
  
Main();