[PERL] - Code retour commande par system

jamel972 -  
 jamel972 -
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

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