pb sur le lancement d'une commande tftp

Bonjour,

Je suis à la recherche d'une solution concernant l'envoi de ma commande dos dont l'analyse du résultat indique si un tftp est ouvert dans mon pc (windows xp):

$_ = `dir > temp.txt`;
$_= `tftp -i 127.0.0.1 put temp.txt`;
print '$_ = '."$_\n";

Dans ma fenetre dos je récupère ça:

si serveur tftp ouvert:
C:\backup>TFTP.pl
Erreur sur le serveur*: Not allowed to overwrite existing files.
$_ =

si pas de serveur tftp ouvert:
C:\backup>TFTP.pl
Délai d'attente dépassé
$_ =

C:\backup>



La première ligne passe nickel mais celle du tftp ne fait rien apparaitre dans $_, impossible de récupérer les messages "Erreur sur le serveur : Not allowed to overwrite existing files." ou "Délai d'attente dépassé" qui sont pourtant bien affichés car la commande est bien envoyée!!!

J'ai également testé avec system ("") et avec IO::pipe, sans succès.


Me serais-je trompé quelque part ?

:?

C'est parce que ces messages ne sont pas écrit sur la sortie standard du processus, mais sur sa sortie d'erreur. IPC::Open3 est la bonne façon de récupérer la sortie d'erreur d'un processus, mais ici, pourquoi ne pas plutôt utiliser le module Net::TFTP :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use strict; use warnings; use Net::TFTP;   my $tftp = Net::TFTP->new("localhost"); $tftp->put("fichier"); if( not $tftp->error ) { print "Serveur TFTP actif, transfert effectué\n"; } else { print $tftp->error }

---

--
Jedaï

Merci!

Mais avec le module tftp tel qu'indiqué ci dessus cela ne colle pas avec mon appli car je souhaite utiliser un serveur tftp 3CDaemon !

Je vais essayer avec IPC::Open3 et voir ce que ça donne.

Citation:

---

Envoyé par Stef_M

Mais avec le module tftp tel qu'indiqué ci dessus cela ne colle pas avec mon appli car je souhaite utiliser un serveur tftp 3CDaemon

---

Je ne vois pas le rapport ? Quel que soit le serveur, n'importe quel client implémentant le protocole TFTP convient.

--
Jedaï

Finalement, j'ai trouvé la solution:

use IPC::System::Simple qw(run);
eval {run("tftp -i 127.0.0.1 put temp.txt");};
if ($@) {print "Pas de tftp server $@\n";}

Merci de m'avoir aiguillé sur open3 qui m'a conduit à découvrir IPC::System::Simple

:D