FAQ PerlConsultez toutes les FAQ

my @list = (1, $toto, 'Hello World', "Histoire de $toto", 3.1415);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my @exemple1 = ( 5 .. 15 ); 
my @exemple2 = ( -5 .. 5 ); 
my @exemple3 = ( 'a' .. 'f' ); 
my @exemple4 = ( 'A' .. 'F' ); 
my @exemple5 = ( 'a' .. 'F' ); 
my @exemple6 = ( 'aa' .. 'dd' ); 
print "@exemple1\n";    # 5 6 7 8 9 10 11 12 13 14 15 
print "@exemple2\n";    # -5 -4 -3 -2 -1 0 1 2 3 4 5 
print "@exemple3\n";    # a b c d e f 
print "@exemple4\n";    # A B C D E F 
print "@exemple5\n";    # a b c d e f g h i j k l m n o p q r s t u v w x y z 
print "@exemple6\n";    # a b c d e f g h i j k l m n o p q r s t u v w x y z 
# aa ab ac ad ae af ag ah ai aj ak al am an ao ap aq ar as at au av aw ax ay az ba bb bc bd be bf bg bh 
# bi bj bk bl bm bn bo bp bq br bs bt bu bv bw bx by bz ca cb cc cd ce cf cg ch ci cj ck cl cm cn co cp c 
# cr cs ct cu cv cw cx cy cz da db dc dd

1
2
3
4
5
6
7
8
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my @exemple1 = ( 'A' x 3, 'B' x 2, 'C' ); 
my @exemple2 = ( ('A') x 3, ('B') x 2, 'C' ); 
print "@exemple1\n";    # AAA BB C 
print "@exemple2\n";    # A A A B B C

1
2
3
4
5
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my @liste_vide = ();

my @tableau = (1, 2, 3);

1
2
3
4
5
6
7
8
9
10
11
12
13
@tableau = ();             # pour vider un tableau 
@tableau = ( 1, 2, 3 );    # pour affecter une liste à un tableau 
  
# pour affecter le contenu d'un tableau à un 
# autre tableau (attention, il s'agit d'une duplication du contenu) 
@tableau = @list; 
  
# pour affecter le contenu de trois tableaux dans un autre 
@tableau = ( @liste1, @liste2, @liste3 ); 
  
# pour ajouter des listes ou des tableaux à un 
# tableau, avant et après les valeurs actuelles 
@tableau = ( @liste_avant, @tableau, @liste_apres );

$i = @tableau;

$contenu = "@tableau";

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my @fruits = qw/ Orange Mangue Fraise Pomme Kiwi Ananas Prune/; 
  
print "Utilisation des foreach\n"; 
foreach my $fruits (@fruits) { 
  print "$fruits\n"; 
} 
  
print "\nUtilisation de for\n"; 
for ( my $i = 0; $i < scalar(@fruits); $i++ ) { 
  print "$fruits[$i]\n"; 
} 
  
print "\nUtilisation de each (unique depuis perl 5.12)\n"; 
while ( my ( $indice, $valeur ) = each @fruits ) { 
  print "$indice : $valeur\n"; 
}

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
26
Utilisation de foreach 
Orange 
Mangue 
Fraise 
Pomme 
Kiwi 
Ananas 
Prune 
 
Utilisation de for 
Orange 
Mangue 
Fraise 
Pomme 
Kiwi 
Ananas 
Prune 
 
Utilisation de each (uniquement depuis perl 5.12) 
0 : Orange 
1 : Mangue 
2 : Fraise 
3 : Pomme 
4 : Kiwi 
5 : Ananas 
6 : Prune

my $nbr = scalar @tableau;

1
2
3
my @tableau = ( 1, 56, 'ClaudeLELOUP' ); 
my $indice_de_fin = $#tableau; 
print $indice_de_fin; # 2

1
2
my @liste = ( 1 .. 5 ); 
$liste[10] = 1;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
($v1, $v2, $v3) = (10, 20, 30); # est une affectation de trois valeurs, simultanément. Notez que si vous avez plus d'éléments  
# dans la liste de gauche de l'affectation que dans celle de droite, les éléments en trop à gauche recevront la valeur undef.  
# Inversement, si vous avez plus d'éléments à droite du signe égal qu'à gauche, les dernières valeurs à droite seront ignorées. 
  
($v1, $v2, $v3) = ($v2, $v3, $v1); # est une façon intéressante de mélanger/permuter des valeurs de variables scalaires, que vous en  
# ayez 2, 3, ou n à échanger (enfin, pas trop, quand même, pour que ça reste lisible et maintenable). 
  
($valeur, @tableau) = @tableau; # est une très jolie façon de supprimer la première valeur d'un tableau, tout en la récupérant. 
  
(@tableau, $valeur) = @tableau; # ne sert à rien, car le tableau en début de liste récupére toutes les valeurs de l'affectation.  
# Il ne reste rien pour remplir $valeur, qui vaudra alors undef. 
  
($v1, $v2) = @tableau; # met dans $v1 et $v2 les deux premiers scalaires contenus dans le tableau (sans modifier celui-ci),  
# ce qui est à rapprocher du premier exemple donné ici. 
  
($v1, undef, $v2, undef, undef, $v3) = @tableau; # met dans $v1 la première valeur du tableau, dans $v2 la troisième et dans $v3 la sixième.  
# Les autres scalaires du tableau sont ignorés. 
  
my ($a, $b, $c); # et  
my ($a, $b, $c) = (1, 2, 3); # sont les seules façons correctes de faire des déclarations multiples et simultanées de variables.

1
2
@l = ('a', 'b', 'c', 'd', 'e', 'f')[2,4,0]; # remplit @l avec la liste ('c', 'e', 'a') 
@l = ('a', 'b', 'c', 'd', 'e', 'f')[0, 2..4]; # remplit @l avec la liste ('a', 'c', 'd', 'e')

1
2
@l = ('a', 'b', 'c', 'd', 'e', 'f'); 
@sl = @l[2,4,0];

1
2
@l = ('a', 'b', 'c', 'd', 'e', 'f'); 
@l[2,4,0]=(1,2,3);

1
2
@l = qw(a b c d e f); 
@l[1..3]=(1,2,3);

1
2
3
4
5
6
7
8
@l = qw(a b c d e f); 
  
# modifie la liste @l pour qu'elle vaille ('a', 'b', 'c', 1, 2, 3, 'e', 'f') 
# en gros, on remplace l'élément d'indice 3 par la liste (1, 2, 3). 
@l = ( @l[ 0 .. 2 ], ( 1, 2, 3 ), @l[ 4 .. 5 ] ); 
  
@l = qw(a b c d e f); 
@l = ( @l[ 0 .. 1 ], @l[ 4 .. 5 ] );    # supprime 'c' et 'd' dans le tableau @l..

@l = qw /Cela est beau et bon/;

@l = ('Cela', 'est', 'beau', 'et', 'bon');

1
2
3
4
my @mois = qw/ mars avril septembre decembre/; 
my $dernier = pop @mois;  
# $dernier =  decembre 
# @mois    =  mars avril septembre

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl 
use strict; 
use warnings; 
  
my @mois = qw/ mars avril septembre décembre/; 
  
print 'Il y a ', scalar @mois, " élément dans le tableau\n"; 
delete $mois[1];  # Supprimera avril, MAIS, le remplacera par undef 
print 'Il y a ', scalar @mois, " élément dans le tableau\n"; 
print "\n\n\n"; 
  
# Le tableau ressemble à qw/ mars undef septembre décembre / 
foreach my $elt ( @mois ) { 
  print "- $elt\n"; 
}

1
2
3
4
5
6
7
8
Il y a 4 élément dans le tableau 
Il y a 4 élément dans le tableau 
 
- mars 
Use of uninitialized value $elt in concatenation (.) or string at xxxx\test.pl line 14. 
- 
- septembre 
- décembre

1
2
split / \t\n/, "chaîne à découper";       # effectue le même travail que qw sur la "chaîne à découper". 
split /:/, "root:password:0:0:/bin/bash"; # effectue le découpage d'une ligne de fichier de mots de passe *n*x selon les différents champs séparés par des ":".

1
2
3
4
5
6
7
8
9
10
my @mois = qw/ mars avril septembre décembre/; 
print 'Il y a ', scalar @mois, " élément dans le tableau\n"; 
splice @mois,1,2;  # Supprimera définitivement avril et septembre 
print 'Il y a ', scalar @mois, " élément dans le tableau\n"; 
print "\n"; 
  
# Le tableau ressemble à qw/ mars undef septembre décembre / 
foreach my $elt ( @mois ) { 
  print "- $elt\n"; 
}

1
2
3
4
5
Il y a 4 élément dans le tableau 
Il y a 2 élément dans le tableau 
 
- mars 
- décembre

my @tableau = (1, 2, "trois", 4, 5, "six"); # copie la liste à droite dans le tableau à gauche

1
2
3
my @tableau = qw /1 2 3/; 
push @tableau, 4; 
print "@tableau"; " imprime : 1 2 3 4

push (1, 2, 3), 4; # !! ne marche pas

Type of arg 1 to push must be array (not constant item)

1
2
3
my @tableau = (11, 12, 13, 14, 15, 16); 
my $size = @tableau; # évaluation en contexte scalaire 
print $size; # imprime 6, le nombre d'éléments du tableau

1
2
my @tableau = (11, 12, 13, 14, 15, 16); 
print scalar @tableau; # imprime aussi 6

1
2
my $var =  (11, 12, 13, 14, 15, 16); 
print $var; # imprime 16

print scalar (11, 12, 13, 14, 15, 16); # imprime 16

print scalar ("toto", "tutu");

1
2
3
my @tableau = (1, 2, "trois", 4, 5, "six"); 
my $tab_ref = \@tableau; # $tab_ref est une référence, une variable pointant sur l'adresse mémoire du tableau 
print  $tab_ref ; # affiche : ARRAY(0x80359c08), ce qui nous dit que $tab_ref est une référence sur un tableau dont l'adresse mémoire est 0x80359c08

my $list_ref = \(1, 2, "trois", 4, 5, "six"); # !! ne fonctionne pas

1
2
print $list_ref ; # imprime   SCALAR(0x8034f940) 
print $$list_ref ; # imprime "six"

my $second = (1, 2, 3, 4)[1]; #second vaut maintenant 2

my @mots = split / /, "La contrepèterie est l'art de décaler les sons.";

my ($mot2, $mot5) = @mots[1, 4]; # le "sigil" à employer ici est bien @ (et non $) parce que l'on récupère non pas un scalaire, mais une collection de deux scalaires

my ($mot2, $mot5)  = (split / /, "La contrepèterie est l'art de décaler les sons.")[1, 4];

print $_, " * 5 = ", $_ * 5, "\n" for 1..10;

1
2
3
4
5
6
7
8
9
10
1 * 5 = 5 
2 * 5 = 10 
3 * 5 = 15 
4 * 5 = 20 
5 * 5 = 25 
6 * 5 = 30 
7 * 5 = 35 
8 * 5 = 40 
9 * 5 = 45 
10 * 5 = 50

printf "%2d%s%2d%s", $_, " x 5 = ", $_ * 5, "\n" for 1..10;

1
2
3
4
5
6
7
8
9
10
1 x 5 =  5 
 2 x 5 = 10 
 3 x 5 = 15 
 4 x 5 = 20 
 5 x 5 = 25 
 6 x 5 = 30 
 7 x 5 = 35 
 8 x 5 = 40 
 9 x 5 = 45 
10 x 5 = 50

1
2
3
4
5
open my $FH, "<", $file_in or die "Impossible d'ouvrir le fichier $file_in $!"; 
<$fh> for 1..6; # on jette les six premières lignes 
while (my $line = <$fh>) { 
     # traitement des lignes de données ... 
}

1
2
3
4
my @mois = qw /undef jan feb mar apr may jun jul aug sep oct nov dec/; # première valeur à undef pour que les mois aillent de 1 à 12 (et non 0 à 11) 
for (my $i = 1; $i ++; $i <= 12) { 
     print "Le mois numéro $i de l'année est $mois[$i]\n"; 
}

1
2
3
for my $i (1..12) { 
     print "Le mois numéro $i de l'année est $mois[$i]\n"; 
}

print "Le mois numéro $_ de l'année est $mois[$_]\n" for (1..12);

print $_, "\n" foreach sort split / /,  "la contrepèterie est l'art de décaler les sons.";

1
2
3
4
5
6
7
8
contrepèterie 
de 
décaler 
est 
l'art 
la 
les 
sons.

1
2
my @mois       = qw/ mars avril septembre decembre/; 
my @mois_tries = sort @mois;                           # avril decembre mars septembre

my @mois_tries = sort @mois;

my @mois_tries = sort { $a cmp $b } @mois;

my @mois_tries = reverse sort @mois;

my @mois_tries = sort { $b cmp $a } @mois;

@l = sort { $a <=> $b } @t;

@l = sort { $tableau[$a] <=> $tableau[$b] } @t;

@l = sort { mafonction($a, $b) } @t;

@l = map { $_ + 1 } @t;

@l = map { ($_) x 3 } @t;

1
2
$i=0; 
@l=map { $i += $_ } @t;

@l = map { $_ .= '+' } @t;

1
2
3
4
5
6
7
8
9
my @mois = qw/ mars avril septembre decembre/; 
my @mois_tries = map { suffix($_); } @mois; 
  
# @mois_tries contiendra =mars= =avril= =septembre= =decembre= 
sub suffix { 
  my $argument = shift; 
  $argument = '=' . $argument . '='; 
  return $argument; 
}

@l = grep { $_ != 0 } @t;

@l = grep { /mot-clef/ } @t;

1
2
3
4
5
6
7
8
9
# Préparation des données 
my @eleves  = qw /Valentine Chloé Sophie Olivier Jérôme Samuel/; 
my @notes   = qw/ 8 16 19 12 6 15/; 
my @indices = (0..$#eleves); 
# Fin de la préparation... 
# Relevé des notes permettant le passage en classe supérieure 
my @passage = grep { $notes[$_]>=10 } @indices; 
# liste des élèves admis 
my @passent = map { $eleves[$_] } @passage;