Discussion :

[mickael777]

Bonjour à tous ,

Voici mon problème :

- Je souhaiterais passer en paramètre à une fonction une table de hachage, mais je n'y arrive pas du tout... J'ai fais pas mal de recherche sur la FAQ mais ce cas précis n'est pas traité.


Voici l'un de mes essais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub Tri_Fichiers
{
   # On récupère le paramètre en entrée
   my %list_files_tr = ();
   my %list_files_tr = %_;
 
   print"\n list_files_tr = $list_files_tr[2] \n";
 
   ####### Je n'affiche rien #######
   foreach $key (keys(%list_files_tr))
   { 
      print"Salut $key";
   }
}
 
Tri_Fichiers(%list_files1);

Si quelqu'un peut m'aider... Merci .

Cordialement,

Mickael

[djibril]

Bonjour,

Si tu veux passer à une fonction un hash, la façon la plus propre est de lui passer une référence de ce hash.
Ensuite dans ta fonction, tu pourra travailler sur ce hash et même la modifier si tu le souhaites. Ou bien en faire une copie du hash et en faire par la suite ce que tu veux.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
my %list_files1 = (
  "bonjour" => "mickael777",
  "Au revoir" => "toto",
 
);
# Je passe en parametre une référence à mon hash
Tri_Fichiers(\%list_files1);
 
sub Tri_Fichiers {
  # Je récupère cette référence
  my ($RefDeMonHash) = @_;
 
  # soit je l'utilise directement
  print $RefDeMonHash->{"bonjour"},"\n";
  print $RefDeMonHash->{"Au revoir"},"\n";
 
 # Soit le modifie le hash original
 $RefDeMonHash->{"bonjour"} = "francois";
 
  # Soit je fais une copie histoire de pas toucher au hash original
  my %CopieDeMonHash = %{$RefDeMonHash};
  print $CopieDeMonHash{"bonjour"},"\n";
  print $CopieDeMonHash{"Au revoir"},"\n";
 
  return;
}

Regarde dans la FAQ la partie sur les références

[mickael777]

djibril,

Merci pour t'as réponse, qui est claire est simple d'utilisation