Recuperer le code retour de system()

Bonjour

Je cherche comment récupérer le code retour de system() que j'utilise pour executer des commandes dans mon script perl ainsi que pour inserer des données en base via sql loader.

Donc le but est de recuperer le code retour pour relancer le traitement si jamais ça a planté.

merci

Bonjour

Tu peux essayer avec $? tout simplement
ou bien avec

Code:

---

1 2 3

@args=("commande","agr1","arg2"); system(@args)==0 or die "system @args a echoue : $?";

---

system() renvoie le code de retour de la commande.

--
Jedaï

system() tout court me donne à chaque fois -1 que la fin soit normale ou pas .

Code:

---

my $code_retour = system( "cmd" );

---

Ce code marche, si tu obtiens toujours -1, c'est que cmd ne s'est même pas exécutée, pour une raison quelconque (probablement une faute dans le nom du programme). Par ailleurs il est légèrement mensonger de dire que $code_retour est le retour de la commande quand elle est exécutée avec succès, en effet il s'agit plutôt du code de retour d'un wait() attendant pour le fils que system a créé, pour tous les détails, voir perlfunc (`perldoc -f system`).

--
Jedaï