FAQ PerlConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl 
use warnings; 
use strict; 
use Carp; 
my $mon_texte = "Il fera beau d'ici 15 heures 30"; 
if ( $mon_texte =~ /fera/ ) { 
    print "$&\n"; 	# $& = "fera" 
    print "$`\n";	# $` = "Il ", attention, l'espace est aussi récupéré 
    print "$'\n";       # $' = " beau d'ici 15 heures 30" 
} 
if ( $mon_texte =~ /\d$/ ) { 
    print "$mon_texte\n"; 	# Il fera beau d'ici 15 heures 30 
} 
if ( $mon_texte =~ /[0-9]$/ ) {	# Ecriture semblable à la précédente 
    print "$mon_texte\n"; 	# Il fera beau d'ici 15 heures 30 
} 
if ( $mon_texte =~ /[a-z]$/ ) { 
    print "OK\n"; 	 
} 
else { 
    print "Pas de bol\n";	# Pas de bol (car ma chaîne ne se termine pas par un caractère alphabétique)	 
}

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl 
use warnings; 
use strict; 
use Carp; 
my $chaine = "La/les maison(s) en Normandie "; 
  
# Pour empêcher que Perl interprète "/ ( )" dans ma chaîne comme des métacaractères, 
# on utilise le "\" 
if ( $chaine =~ /^La\/les maison\(s\)/ ) { 
  print " La ligne est $chaine ";    # => La/les maison(s) de Normandie 
}

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine  = "La/les maison(s) en Normandie coûte 200 000 euros"; 
my $pattern = "La/les maison(s)"; 
$pattern = quotemeta($pattern); 
  
if ( $chaine =~ /^$pattern/ ) { 
  print " la ligne est $chaine "; 
}

1
2
mon pattern : La\/les\ maison\(s\) 
 la ligne est La/les maison(s) en Normandie coûte 200 000 euros

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine = "les maisons valent 5000000 euros"; 
if ( $chaine =~ /\s(\d+\seuros)$/ ) { 
  my $prix = $1; 
  print "il coute donc $prix\n";    #il coute donc 5000000 euros 
}

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine = "les maisons valent 5000000 euros"; 
my ($prix, $monnaie) = $chaine =~ /\s(\d+)\s+(euros)$/; 
if ( defined $prix ) { 
  print "Il coute donc $prix $monnaie\n";    # Il coute donc 5000000 euros 
}

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine = "les maisons valent 5000000 euros"; 
if ( $chaine =~ /\s(?<prix>\d+)\s+(?<monnaie>euros)$/ ) { 
  print "Il coute donc $+{prix} $+{monnaie}\n";    # Il coute donc 5000000 euros 
} 
  
foreach my $nom_capture ( keys %+ ) { 
  print "$nom_capture : ", $+{$nom_capture},"\n"; 
}

1
2
3
Il coute donc 5000000 euros 
monnaie : euros 
prix : 5000000

1
2
3
if ( $toto =~ /expr/msogix ) {  
  # ... 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine = "atgccATCccca"; 
if ( $chaine =~ /[atgcATGC]/ ) { 
  print "OK sans utiliser l'option i\n";    #=> OK sans utiliser l'option i 
} 
if ( $chaine =~ m/[atgc]/i ) { 
  print "OK avec utiliser l'option i\n";    #=> OK avec utiliser l'option i 
} 
if ( $chaine =~ /(atc)/gi ) { 
  print "motif $1 trouvé\n";               #=> motif ATC trouvé 
} 
  
my $mon_texte = "il fait jour\nIl fait nuit\nBonsoir"; 
if ( $mon_texte =~ /jour$/ ) { 
  print "$mon_texte\n";                     #=> rien 
} 
if ( $mon_texte =~ /jour$/m ) { 
  print "$mon_texte\n";                     #=> il fait jour 
  
  #   Il fait nuit 
  #   Bonsoir 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $chaine = "les maisons valent 5000000 euros\nl'hôtel coute 100000 dollars\n"; 
my (?ta) = $chaine =~ m{       # m => signifie match 
                        ^[^\n]+  # ligne commence par tout sauf un \n jusqu'à l'espace   
                         \s      # Reconnait un espace 
                         (\d+)   # capture un nombre 
                         \s*     # suivi de plusieurs espaces ou non 
                         (\w+)   # suivi d'un mot capturé 
                         $       # Fin d'une ligne 
                          }gmxs;    # m => multiligne 
                                    # x permet d'ignorer les blancs et les \n et 
                                    # les commentaires via # 
                                    # s => le point reconnait maintenant le \n 
                                    # g => plusieurs occurrences 
if (?ta) { 
  foreach ( keys ?ta ) { 
    print "$_ : $data{$_}\n"; 
  } 
}

$chaine =~ s/motif/remplacement/;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl 
use warnings; 
use strict; 
my @fruits = qw (banane pomme melon); 
  
foreach (@fruits) { 
  s/e$/es/; 
} 
print "@fruits\n";    #bananes pommes melon 
  
my $tel = "01.12.22.44.99"; 
$tel =~ s{ 
         0         # le 0 sera remplacé 
         ([^\n]+)  # numero à capturer 
          } 
         {\+(00\.33) $1}xms; 
print "$tel\n";       #+(00.33) 1.12.22.44.99 
my $arbres = "manguier pommier cerisier"; 
$arbres =~ s/(\w+)ier/arbres à $1es,/g; 
print "list: $arbres\n";    #=> list: arbres à mangues, arbres à pommes, arbres à cerises, 
$arbres =~ s/,$/./; 
print "list: $arbres\n";    #=> list: arbres à mangues, arbres à pommes, arbres à cerises.

1
2
3
4
5
6
7
8
9
10
11
12
# tr 
$name =~ tr/A-Z/a-z/;    # Transforme toutes les majuscules en minuscules 
$name =~ tr/er/ab/;      # Transforme les e en a et les r en b 
  
# split 
$a = "1:2:3:4::5"; 
@list = split( /:/, $a );    #=> ("1","2","3","4","","5") 
  
# join 
$valeur = "+"; 
@list   = ( "1", "2", "3", "4" ); 
$res    = join( $valeur, @list );    #=> ("1+2+3+4+")