FAQ PerlConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
my @tab1 = (1, 2, 3); 
my @tab2 = ('a', 'b', 'c'); 
  
affiche(@tab1, @tab2); 
  
sub affiche { 
  my ( @recup1, @recup2 ) = @_; 
  print "Voici votre tableau tab1 récupéré dans ma fonction : @recup1\n"; 
  print "Voici votre tableau tab2 récupéré dans ma fonction : @recup2\n"; 
  
  return; 
}

1
2
Voici votre tableau tab1 récupére dans ma fonction : 1 2 3 a b c 
Voici votre tableau tab2 récupére dans ma fonction :

$ref_tab = \@tab;

1
2
3
4
my $ref_tableau  = \@mon_tableau; 
my $ref_hash     = \%mon_hash; 
my $ref_fonction = \&ma_fonction; 
my $ref_handle   = \*FILE;

1
2
3
my @mon_tableau = ( 1, 2, 3 ); 
my $ref_tab = \@mon_tableau; 
print $ref_tab;

1
2
3
4
5
6
7
my $ref_tab = [ 1, 2, 3 ]; 
my $ref_hash = { 
  "cle1" => "valeur1", 
  "cle2" => "valeur2", 
}; 
print $ref_tab; 
print $ref_hash;

1
2
3
4
5
6
7
8
9
# Déclaration de mon tableau 
my @mon_tableau = ( 1, 2, 3 ); 
  
# Déclaration de la référence de mon tableau 
my $ref_tab = \@mon_tableau; 
  
print @{$ref_tab};    #ou print @$ref_tab; 
  
#  et vous obtiendrez : 123

1
2
3
4
5
my @tableau = ( 1, 2, 3 ); 
my $ref_tableau = \@tableau; 
  
my %hash = ( "cle1" => "valeur1", "cle2" => "valeur2" ); 
my $ref_hash = \%hash;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my @tab1 = ( 1,   2,   3 ); 
my @tab2 = ( 'a', 'b', 'c' ); 
  
# On donne en argument à la fonction affiche les références à nos tableaux. 
affiche( \@tab1, \@tab2 ); 
  
sub affiche { 
  
  # On récupère les références 
  my ( $ref1, $ref2 ) = @_; 
  
  # Affichage 
  print "Voici votre tableau tab1 récupéré dans ma fonction : @{$ref1}\n"; 
  print "Voici votre tableau tab2 récupéré dans ma fonction : @{$ref2}\n"; 
}

1
2
3
4
5
résultat : 
 
Voici votre tableau tab1 récupéré dans ma fonction : 1 2 3 
Voici votre tableau tab2 récupéré dans ma fonction : a b c 
Magique, non !!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my @tab1 = ( 1,   2,   3 ); 
my @tab2 = ( 'a', 'b', 'c' ); 
  
# On donne en argument à la fonction affiche les références à nos tableaux. 
affiche( \@tab1, \@tab2 ); 
  
print "Voici votre tableau tab1 récupéré dans ma fonction : @tab1\n"; 
print "Voici votre tableau tab2 récupéré dans ma fonction : @tab2\n"; 
  
sub affiche { 
  
  # On récupère les références 
  my ( $ref1, $ref2 ) = @_; 
  
  push @{$ref1}, "dudu"; 
  push @{$ref2}, "dudu"; 
}

1
2
3
4
résultat : 
 
Voici votre tableau tab1 récupéré dans ma fonction : 1 2 3 dudu 
Voici votre tableau tab2 récupéré dans ma fonction : a b c dudu

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
............ 
............ 
print "Voici votre tableau tab1 récupéré dans ma fonction : @tab1\n"; 
print "Voici votre tableau tab2 récupéré dans ma fonction : @tab2\n"; 
  
sub affiche { 
  
  # On récupère les références 
  my ( $ref1, $ref2 ) = @_; 
  
  # Copie de mes tableaux pour que la modification ne soit appliquée que dans la procédure. 
  my @tableau1_interne = @{$ref1}; 
  my @tableau2_interne = @{$ref2}; 
  push @tableau1_interne, "dudu"; 
  push @tableau2_interne, "dudu"; 
}

1
2
3
4
résultat : 
 
Voici votre tableau tab1 récupéré dans ma fonction : 1 2 3  
Voici votre tableau tab2 récupéré dans ma fonction : a b c

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use strict; 
use Carp; 
use warnings; 
  
my %HashReferenceComplex = ( 
  'niv1' => 'valeur 1', 
  'niv2' => [ 'case0', 'case1', 'case2', 'case3' ], 
  'niv3' => { 
    'niv3-1_a' => 'valeur3-1', 
    'niv3-1_b' => [ 'case0-1', 'case1-1', 'case2-1', 'case3-1' ], 
    'niv3-1_c' => { 'niv3-2_a' => 'test', }, 
  }, 
  'niv4' => \&FonctionBonjour, 
); 
  
sub FonctionBonjour { 
  my $prenom = shift; 
  print "Bonjour $prenom\n"; 
}

1
2
# Afficher bonjour via le hachage 
$HashReferenceComplex{'niv4'}->('djibril');

1
2
3
4
5
6
7
8
9
10
11
12
13
# Afficher bonjour via le hachage 
$HashReferenceComplex{'niv4'}->('djibril'); 
  
# Afficher valeur3-1 
print $HashReferenceComplex{'niv3'}{'niv3-1_a'}, "\n"; 
  
# Afficher case0-1 
print $HashReferenceComplex{'niv3'}{'niv3-1_b'}->[0], "\n"; 
  
# Afficher case0 à case3 
foreach my $niveau ( @{ $HashReferenceComplex{'niv2'} } ) { 
  print "\t- $niveau\n"; 
}

my @tab2tab = ([1,2], ["a","b"],["toto","tete"],["djibril","Stoyak","vous"]);

1
2
3
my $ref1 = $tab2tab[0]; # c'est-à-dire $ref1 = [1,2]; 
my $ref4 = $tab2tab[3]; # c'est-à-dire $ref4 = ["djibril","Stoyak","vous"]; 
# =>Rappel : la première case d'un tableau a pour indice 0.

1
2
my @tab2tab = ([1,2], ["a","b"],["toto","tete"],["djibril","Stoyak","vous"]); 
my $ref4 = $tab2tab[3];

1
2
3
4
5
6
7
8
9
10
11
print ${$ref4}[1];      #=> "Stoyak" 
  
print $$ref4[1];        #=> "Stoyak" 
  
print ${$tab2tab[3]}[1];#=> "Stoyak" 
print $$tab2tab[3][1];  #=> ne fonctionnera pas (explication ci-dessous) 
  
# Cas particulier des tableaux à plusieurs dimensions, on peut écrire simplement ainsi 
print $tab2tab[3][1];   #=> "Stoyak" 
  
print $tab2tab[3]->[1]; #ou print $ref4->[1]; => "Stoyak"

Global symbol "$tab2tab" requires explicit package name at .............

print ${$tab2tab[3]}[1]; #=> "Stoyak"

1
2
my $ref4 = $tab2tab[3]; #on déclare bien la référence $ref4 
print $$ref4[1];        #=> "Stoyak" et c'est Ok.

1
2
my @tab2tab = ([1,2], ["a","b"],["toto","tete"],["djibril","Stoyak","vous"]); 
print $tab2dimension[3][1];#=> Stoyak

@tab2dimension => $tab2dimension[LIGNE][COLONNE]

1
2
3
4
5
6
([1,2], ["a","b"],["toto","tete"],["djibril","Stoyak","vous"]) correspond à  
 
ligne0 -->   1      2      
ligne1 -->   a      b      
ligne2 -->   toto   tete      
ligne3 -->   djibril    Stoyak     vous

1
2
3
4
my $ref_tableau = \@tableau; 
my $ref_hash    = \%hash; 
print ref $ref_tableau;    # ARRAY 
print ref $ref_hash;       # HASH

1
2
3
ma_fonction(@tab1, @tab2); 
ou 
ma_fonction(%hash1, %hash2);

1
2
3
ma_fonction(\@tab1, \@tab2);  
ou  
ma_fonction(\%hash1, \%hash2);

1
2
3
4
5
6
my $ref; 
{ 
	my $var = "Salut"; 
	$ref = sub {return "$var @_";}; 
} 
print $ref->("Larry"); # affiche Salut Larry, alors que $var n'existe plus !

1
2
3
4
5
6
7
8
9
sub ferm { 
  my ($var) = @_; 
  my $ref = sub { return "$var @_"; }; 
  return $ref; 
} 
my $ref = ferm("Salut"); 
  
#plus tard 
print $ref->("Larry");    #affiche Salut Larry

1
2
3
4
5
6
7
foreach my $champ (qw(fic1 fic2)) 
{ 
	my $handle = uc $champ; # met $champ en majuscule 
	no strict 'refs'; #Autorise les références symboliques 
	*$champ = sub {print $handle "@_";}; # affecte la fermeture en question au typeglob 
} 
fic1("Salut !"); #écrit salut dans FIC1