FAQ PerlConsultez toutes les FAQ

('a', 'chaîne a', 'b', 'chaîne b', 'zz', 'chaîne zz')

('a', 'chaîne a'), ('b', 'chaîne b'), ('zz', 'chaîne zz')

('a' => 'chaîne a', 'b' => 'chaîne b', 'zz' => 'chaîne zz')

(a => 'chaîne a', b => 'chaîne b', (A => 'chaîne A', B => 'chaîne B', C => 'chaîne C'), a => '2eme chaîne a');

my %association = (1 => 'aaa', 2 => 'bbb', 3 => 'ccc');

1
2
3
4
5
6
7
8
9
10
11
%hash = (); #pour vider un tableau de hachage. 
%hash = (1 => 'premier', 2 => 'deuxieme', 3 => 'troisieme'); # pour affecter une nouvelle liste associative. 
%hash = %list; # pour affecter le contenu d'un tableau associatif à un autre tableau de hachage (attention, il s'agit d'une duplication du contenu). 
  
# pour affecter le contenu de trois tableaux associatifs dans un autre. Les clefs présentes dans plusieurs tableaux  
# simultanément ne se retrouveront qu'en un exemplaire dans le hachage résultant avec pour valeur associée la dernière valeur rencontrée. 
%hash = (%hash1, %hash2, %hash3);  
  
# pour affecter une liste simple à une liste associative. Les éléments de la liste simple sont pris  
# par paires, le premier de chaque paire étant utilisé comme clef, le second comme valeur. 
%hash = @list;

1
2
3
4
5
6
7
8
9
10
11
12
my %identite = ( 
  nom    => 'dupond', 
  prenom => 'jean', 
); 
  
if ( exists $identite{nom} ) { 
  print "Nom : $identite{nom}\n"; 
} 
  
if ( exists $identite{age} ) { 
  print "Age : $identite{age}\n"; 
}

Nom : dupond

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
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my %hash = ( 
  'Nom'        => 'Dupond', 
  'Prenom'     => 'Jean', 
  'Adresse'    => '10 rue de Rome', 
  'Ville'      => 'Paris', 
  'CodePostal' => '75000' 
); 
  
print "Utilisation des clefs\n"; 
foreach my $clef ( keys %hash ) { 
  print "$clef : $hash{$clef}\n"; 
} 
  
print "\nUtilisation de each\n"; 
while ( my ( $clef, $valeur ) = each %hash ) { 
  print "$clef : $valeur\n"; 
} 
  
print "\nAffichage uniquement des valeurs\n"; 
foreach my $valeur ( values %hash ) { 
  print "$valeur\n"; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Utilisation des clefs 
Ville : Paris 
Adresse : 10 rue de Rome 
CodePostal : 75000 
Prenom : Jean 
Nom : Dupond 
 
Utilisation de each 
Ville : Paris 
Adresse : 10 rue de Rome 
CodePostal : 75000 
Prenom : Jean 
Nom : Dupond 
 
Affichage uniquement des valeurs 
Paris 
10 rue de Rome 
75000 
Jean 
Dupond

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
27
28
29
30
31
32
33
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my %hash = ( 
  'Nom'        => 'Dupond', 
  'Prenom'     => 'Jean', 
  'Adresse'    => '10 rue de Rome', 
  'Ville'      => 'Paris', 
  'CodePostal' => '75000' 
); 
  
print "\nListons le contenu du hash\n"; 
while ( my ( $clef, $valeur ) = each %hash ) { 
  print "$clef : $valeur\n"; 
} 
  
# supprimons localement 2 éléments 
{ 
  delete local $hash{Nom}; 
  delete local $hash{CodePostal}; 
  
  print "\nListons localement le contenu du hash\n"; 
  while ( my ( $clef, $valeur ) = each %hash ) { 
    print "$clef : $valeur\n"; 
  } 
  
} 
  
print "\nListons le contenu du hash - version 2\n"; 
while ( my ( $clef, $valeur ) = each %hash ) { 
  print "$clef : $valeur\n"; 
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Listons le contenu du hash 
Ville : Paris 
Adresse : 10 rue de Rome 
CodePostal : 75000 
Prenom : Jean 
Nom : Dupond 
 
Listons localement le contenu du hash 
Ville : Paris 
Adresse : 10 rue de Rome 
Prenom : Jean 
 
Listons le contenu du hash - version 2 
Ville : Paris 
Adresse : 10 rue de Rome 
CodePostal : 75000 
Prenom : Jean 
Nom : Dupond

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl 
use strict; 
use warnings; 
  
my @liste = ( 1 .. 10 ); 
my @tranche_liste = @liste[ 2, 4, 0 ]; 
print "Tranche de liste : @tranche_liste\n"; 
  
my %liste_associative = ( 
  nom     => 'dupond', 
  prenom  => 'jean', 
  age     => '22', 
  sexe    => 'masculin', 
  langage => 'perl', 
); 
my @tranche_liste_associative = @liste_associative{ 'prenom', 'age', 'langage' }; 
print "Tranche de liste associative : @tranche_liste_associative\n";

1
2
Tranche de liste : 3 5 1 
Tranche de liste associative : jean 22 perl

delete $h{clef}

@l = sort { $a cmp $b } keys %t;

@l = sort { $a cmp $b } values %t;

@l = sort { $t{$a} cmp $t{$b} } keys %t;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# Préparation des données 
my %moyennes = ( 
	'Valentine' => 8, 
	'Chloé' => 16, 
	'Sophie' => 19, 
	'Olivier' => 12, 
	'Jérôme' => 6, 
	'Samuel' => 15 
); 
  
# Fin de la préparation... 
# Relevé des notes permettant le passage en classe supérieure 
# et liste des élèves admis, traitement simultané 
my @passent = grep { $moyenne{$_} >= 10 } keys %moyennes;