[PERL] - Code retour commande par system

Fermé
jamel972 - 31 mars 2011 à 14:40
 jamel972 - 31 mars 2011 à 15:02
Bonjour,

J'ai un petit souci avec Perl et surtout le code retour de la commande system.

Voici mon code :
@args=($ENV{"JAVA_HOME"}."/bin/java","-jar",$ENV{"EBICS_CLT_HOME"}."/bin/commandLineTool.jar","--action",$action,"--bank",$bank,"--orderType",$ENV{"OrderTypeBL"},"--fileName",$ENV{"EBICS_CLT_DATA"}."/".$ENV{"RouteFromXfer"});
$cmd=system(@args);

La commande fonctionne mais je souhaite trapper le code retour du programme Java que j'exécute et non le code retour du wait system.


Comment puis je récupérer le code retour du programme java que je lance via la commande system (ou autre)?

Merci d'avance
A voir également:

1 réponse

J'ai également testé avec cette commande mais j'ai exactement le même code retour :
open CMD, "@args|";
close CMD;
$cmd=$?;
0