Passage de variable en parametre

Bonjour,
J'aimerais passer la valeur d'une variable en parametre d'une fonction, par exemple

Code:

---

1 2 3 4 5 6 7 8 9

open(LOGXSL,$logxsl); while (<LOGXSL>) { my $txt=$_; $txt =~ s/file/$logfile/; WLOG(eval($txt)) } close(LOGXSL);

---

Sachant que :

Code:

---

$_="MES001,file,erreur"

---

et que WLOG attend 3 paramètres (les 3 contenus dans la variable $_)

Pouvez vous m'aider ?
J'ai essayé avec eval(...) mais cela ne fonctionne pas...


Merci d'avance

Citation:

---

J'aimerais passer la valeur d'une variable en parametre d'une fonction

---

Regarde sur la FAQ, tout y très bien expliqué
http://perl.developpez.com/faq/?page...B5#sectionB514

Tu peux passer $_ en unique paramètre puis faire un split(/,/) dessus afin de récupérer 3 variables indépendantes.

Citation:

---

Envoyé par Jasmine80

Regarde sur la FAQ, tout y très bien expliqué
http://perl.developpez.com/faq/?page...B5#sectionB514

Tu peux passer $_ en unique paramètre puis faire un split(/,/) dessus afin de récupérer 3 variables indépendantes.

---

Merci Jasmine pour ta réponse.
Mais utiliser le split reviendrait à toucher à ma fonction WLOG... Or je ne peux pas.


EDIT : Han quelle cruche !! :S faut le faire avant !! Bref, quand on est borné, on a du mal à bien comprendre les choses :P merci jasmine

Citation:

---

Mais utiliser le split reviendrait à toucher à ma fonction WLOG... Or je ne peux pas.

---

Aucun problème, dans ce cas fais le split avant la fonction afin de créer 3 variables à lui passer.

Bon je ne veux pas spammer...

Mais en fait ça ne peut pas marcher...
J'ai oublié de donner une information :oops: en voulant simplifier

Ma fonction WLOG peut avoir au minimum 3 variables +1 tableau en paramètres.

Le problème est que je ne connais pas sa taille (du tableau), je ne pourrais donc pas faire :

Code:

---

1 2 3 4 5 6

while (<LOGXSL>) { my @txt=split(/,/,$_); WLOG($txt[0],$fileout,$txt[2],$txt[3])...... }

---

C'est pour ca que j'avais pas trouvé dans la faq :oops:

Primo, il est très facile de connaître la taille d'un tableau

Code:

---

my $taille = @tableau

---

Secundo, cela n'est pas nécessaire. Tu peux passer le tableau en paramètre ou sa référence (préférable pour un tableau volumineux).

Code:

---

1 2	WLOG(@txt); WLOG(\@txt); #ref

---

Merci Jasmine !!!