pb pour passer des arguments à un prg en utilisant "sys

Salut à tous :wink:

Voici mon problème :

Code:

---

1 2	system("perl momo.pl ./TOTO/$momo/$momo.ktr ./TOTO/$momo/$momo.tfg 50 0.5");

---

Je programme un pipeline en perl, mon prg perl appel un autre prg perl etc...

Problème : Dans momo.pl : ARGV[0]---> ./TOTO/TK21/
ARGV[1]--> ./TOTO/TK21/

Pourquoi le suite du chemin n'est pas passeé au programme suivant (momo.pl) ?? :evil:

C'est bizard car mon programme fonctionne sur windows en invite de commande et sur le serveur linux 1 mais pas dans cygwin ni dans le serveur linux 2 !!!!
Or moi je dois faire fonctionner ce prg sur le serveur linux 2 car il est plus puissant ....

Quelqu'un aurait une idée :idea: :?:

Merci :D

Bizarre en effet :?

Et ton programme momo.pl, as-tu la possibilité de le transformer en package ?

Salut !

J'ai mieux localisé le problème !!!!
Voici mon constat :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl open (H, "liste_beta_A.txt"); $ak=0; @liste=(); while (<H>) {chomp; $liste[$ak]=$_; $ak++;} close H;   $momo='CR18'; system ("perl momo.pl ./MOMO/$momo/$momo.ktr ./MOMO/$momo/$momo.tfg");   foreach $momo (@liste){ system ("perl momo.pl ./MOMO/$momo/$momo.ktr ./MOMO/$momo/$momo.tfg"); }

---

momo.pl

Code:

---

1 2	print "1->$ARGV[0]\n2->$ARGV[1]\n";

---

liste_beta_A.txt contient :

• tk21
  VMR58

voila le résultat sur le serveur :

• 1->./MOMO/CR18/CR18.ktr
  2->./MOMO/CR18/CR18.tfg
  1->./MOMO/tk21
  2->/tk21
  1->./MOMO/VMR58
  2->/VMR58

Par contre si j'exécute le programme sur l'invite de commande windows, j'ai le bon résultat :

• 1->./MOMO/CR18/CR18.ktr
  2->./MOMO/CR18/CR18.tfg
  1->./MOMO/tk21/tk21.ktr
  2->./MOMO/tk21/tk21.tfg
  1->./MOMO/VMR58/VMR58.ktr
  2->./MOMO/VMR58/VMR58.tfg

Quelqu'un comprend pourquoi sur mon serveur (et sur cygwin aussi !), les arguments sont mal passés lorsque c'est dans une boucle foreach.... et ça le fait pas sur un autre serveur ni sur invite de commande ....

Essayer ces programmes chez vous pour voir les résultats :!:

moi ça me rend fou :evil:

pour répondre à Arioch :
package = .pm ??
comment tu fais ??

:arf:

Tu as essayé la concaténation plutôt que l'interpolation ?

--
Jedaï

Salut Jedaï !

J'ai essayé de transmettre le chemin en argument de plusieurs façons:

Code:

---

1 2 3 4 5

foreach $momo (@liste){ $chemin="./MOMO/$momo/$momo.ktr"; system ("perl momo.pl $chemin"); }

---

Apparemment, lorsque qu'on utilise "system" dans un boucle "foreach", si les arguments du programme appellé sont des chemins, ceci sont mal transmit au programme suivant l'ordinateur ..... voilà ma conclusion !!! :cry:
ça dépend pas de la version de perl ni de l'OS !!!!!

Quelqu'un a essayé sur son ordi mon code ??

A force de chercher on trouve !!!!! :D

Mon problème se produit uniquement lorsque c'est la version 64bit de perl sous linux!!!

Notre ancien serveur linux est un 32bit ça marche ! :D
le nouveau est un 64bit, ça marche pas ! :evil:

sur mon ordi :
- activeperl (invite de commande) (version 32bit) ça marche :D
- cygwin (version de perl en 64bit) ça marche pas :evil:
et c'est la version 5.8.7 sur les 2 !!

Je viens d'essayer sur un sunfire6800 version 64bit (perl en 64bit), ça marche :D mais c'est pas linux, c'est SunOS 5.9 .......

SVP, quelqu'un pourrait -t- il me confirmer ça ?? :hola:
j'ai pas envie de toucher à la version de perl du nouveau serveur pour rien :sm: