forcer un exit

Slt tlm !

La question a déjà dûe être posée mais comme je n'arrive pas à vraiment trouver mon bonheur, je pose la mienne :
Je veux faire un script perl qui, à un moment donné, me fait ca :

Code:

---

1 2 3

system("mv $fic_src $fic"); exit $?;

---

Je veux que mon script, me crache le code erreur, mais pas les insultes, cad que lorsque par exemple je n'ai ni $fic_src ni $fic présent il doit pouvoir me donne le code mais pas le

Citation:

---

mv : 0653-401 Impossible de renommer /tmp/test1 par /tmp/test2 :
Un fichier ou un répertoire du chemin d'accès n'existe pas.

---

pour le moment, le meilleur résultat obtenu est en faisant ceci :

Code:

---

1 2 3 4

open MV, "mv $fic_src $fic |"; close (MV); print $?;

---

mettre un die aurait pu être sympa si je n'avais pas le "at ./file ligne 8...", et bien sûr mon script fait un exit 0 si je le laisse avec un print...
Merci de m'aider ;)

@+
Mr6

je viens de voir que eval m'aiderait à résoudre mes soucis (ainsi que rename d'ailleurs...). qqun pourrait me montrer comment m'en servir à la rigueur (bah oui, j'ai jamais eu à utiliser cette fonction...) ;)

Salut

Si tu appelles des commandes shell sous Unix, je te conseille cette structure :

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl -w   use strict;   my $retour = system("mv toto.txt tata.txt >> /dev/null 2>&1"); print $retour; exit $retour;

---

L'avantage, c'est que tous les messages du shell (stdout et stderr) seront redirigés vers /dev/null.
Entre parenthèses, il est possible de faire un mv en Perl pûr avec la commande rename.

@++

vi, j'avais apercu le rename.
Le soucis là, c'est qu'une fois le script exécuté, si je fais un echo $? dans le shell, j'ai 0, et non 256 par exemple si mes fichiers n'existent pas...

Je te recommande aussi cette lecture : http://perl.developpez.com/faq/?page...nC2#sectionC21
Mais typiquement, c'est plus un problème de redirection stdout/stderr que tu avais. Avec mon écriture, ça devrait aller mieux.

@++

Merci ! en fait, après relecture, c'est le exec qui me correspond le mieux car il s'agit de la dernière commande de mon script ;)

Oki. Si c'est bon, n'oublies pas le tag Résolu.

@++