Discussion :

[Stef_M]

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 ?

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï

[Stef_M]

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.

[Jedai]

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ï

[Stef_M]

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