Passage d'arguments Fonction Perl

Bonjour à tous,

Après maintes recherches sur le web, je me tourne vers vous !
Je suis actuellement en train de plancher sur un projet en Perl et j'ai un souci avec un passage d'argument entre mon fichier source .pl et mon module .pm !

J'ai un hash de hashes (%hash) généré auparavant qui contient des valeurs dont je dois me servir pour un calcul. J'ai également une ligne de texte splittée auparavant contenue dans un tableau (@ligne).

Pour faire simple :
J'aimerai passer ces deux variables en argument issues de mon script .pl dans une fonction contenue dans mon module .pm, mais comment faire pour les envoyer puis pour les utiliser dans mon module ???
_________________________________________________
script.pl

&fonction(@ligne, %hash);
_________________________________________________

_________________________________________________
module.pm

sub fonction(@_, %_)
{
.................
}
_________________________________________________

Je ne vois vraiment pas comment faire!
Merci pour votre aide !

Code:

---

1 2 3 4 5 6 7 8 9

&fonction(\@ligne, \%hash);   ...   sub fonction { my ($ref_ligne, $ref_hash) = @_; # On récupère les réferences passées en arguments   }

---

Pour l'utilisation des références, je te conseil la lecture de notre FAQ sur les références.

Merci beaucoup djibril!!!!

J'ai mis du temps à comprendre mais çà y est mon tableau et mon hash de hashes passent de mon script vers mon module !
C'est vraiment puissant ! En faisant un print dans mon module, les valeurs contenues dans mon hash de hashes et mon tableau sont les bonnes!!!:ccool: