Perl

Probleme de socket dans petit script sftp Perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme de socket dans petit script sftp Perl

betsamee

Asterisk Zeperyl

Bonjour
J'ai concocte un petit script ne perl (je connaissait rien a perl mais c'est le seul outil me permettant de faire ce que je veux cad recuperer des fichiers sur un serveur distant via sftp).
Je veux encainer 2 connexions successives mais pour la deuxieme ca me fait une erreur:
Net::SSH: Can't bind socket to port 1023: Adresse déjà utilisée at /usr/lib/perl5/site_perl/5.8.0/Net/SFTP.pm line 36
comme si la premiere connexion etait toujours active.
en fait j'aimerais trouver comment fermer ma premiere connexion avant d ouvrir la 2eme mais je n'ai pas trouve de fonction pour
quelqu'un aurait peut etre une idee , voici mon code:

Code :

#!/usr/bin/perl
use Net::SSH::Perl;
use Net::SFTP;
my %sftp_args = (user =>'user1',password =>'password1');
my %sftp_argspremium = (user =>'user2',password =>'password2');
my $sftp = Net::SFTP->new('17.17.17.17', %sftp_args)
or die "Cannot connect to Host ";
print "CONNECTED\n";
$sftp->get('remotefichier1','localfichier1');
my $sftp2 = Net::SFTP->new('17.17.17.17', %sftp_argspremium)
or die "Cannot connect to Host ";
print "CONNECTED\n";
$sftp2->get('remotefichier2','localfichier2');

merci de votre aide

Publicité

betsamee

Asterisk Zeperyl

j'ai resolu mon pb d'une maniere assez crade (j'ai pas trouve mieux).
une fois que j'ai fini mon premier import je lance un script shell qui boucle tant que netstat -tpa |grep 1023 renvoie quelque chose
quand rien n'est renvoye cela veut dire que le port est libre et je lance la deuxiemem connexion.
Ca fonctionne mais le temps d'attente est trop long entre les 2.

pospos

essai simplement $sftp = undef;
ou réutilise la meme variable pour ton 2eme new:

my $sftp = Net::SFTP->new('17.17.17.17', %sftp_args)
...
$sftp = Net::SFTP->new('17.17.17.17', %sftp_argspremium)

dans les deux cas le résultat est le meme: comme il n'y a plus aucune reference vers l'objet, Perl fait un garbage collector et le detruit, ce qui doit entrainer la fermeture du socket

betsamee

Asterisk Zeperyl

j'avais essaye ca marche po.
toujours le meme probleme
en gros le port est en STATUS TIME_WAIT pendant une dizaine de secondes et je ne peux rien faire tant qu'il est pas libere

pospos

il faudrait pouvoir fermer le socket, mais Net::SFTP ne donne aucune methode pour faire ca, ni meme pour le recuperer...

essai ca:
close($sftp->{ssh}->sock);

betsamee

Asterisk Zeperyl

ca marche pas non plus
Merci mille fois pour ton aide

matafan

Pourquoi il essaie systématiquement de se binder au même port (1023) sur ta machine ?

betsamee

Asterisk Zeperyl

je ne sais pas , le faire choisir un autre port serait egalement une bonne solution
Mais comment faire?

pospos

bon allez, on va encore tenter un truc:

Code :

#!/usr/bin/perl
use Net::SSH::Perl;
use Net::SFTP;
use Socket;
my %sftp_args = (user =>'user1',password =>'password1');
my %sftp_argspremium = (user =>'user2',password =>'password2');
my $sftp = Net::SFTP->new('17.17.17.17', %sftp_args)
or die "Cannot connect to Host ";
make_reusable($sftp);
print "CONNECTED\n";
$sftp->get('remotefichier1','localfichier1');
close_ssh($sftp);
my $sftp2 = Net::SFTP->new('17.17.17.17', %sftp_argspremium)
or die "Cannot connect to Host ";
make_reusable($sftp2);
print "CONNECTED\n";
$sftp2->get('remotefichier2','localfichier2');
close_ssh($sftp2);
sub make_reusable {
setsockopt($_[0]->{ssh}->sock, SOL_SOCKET,SO_REUSEPORT,1);
}
sub close_ssh {
close($_[0]->{ssh}->sock);
}

ca doit rendre le prot réutilisable apres que le socket ait été fermé

betsamee

Asterisk Zeperyl

Merci beaucoup de ton aide (desole d'avoir reagi si tard j'etais a l'etranger).
cpendant j'ai le message d'erreur suivant:

Code :

Your vendor has not defined Socket macro SO_REUSEPORT, used at essai.pl line 27

Merci d'avance

Publicité

pospos

bha tu dois etre sous windows... ya moyen de recuperer la valeur de cette constante qq part mais bon...
de toutes facon ca marchera pas à mon avis car il faut faire ca avant le bind, la ca doit deja etre trop tard.

bon en fouillant un peu dans le code des modules j'ai peut etre trouvé ce qu'il te fallait:
en fait le module ssh scan les port libre (au lieu de demander à l'os de lui en donner un...) et passe au suivant quand il recoit un message qui match /Address already in use/. Il plante si il recoit un autre message, disant qu'il ne peu pas binder (le message d'erreur que tu a). Le probleme c'est que ton systeme est en francais, et du coup kand le port est deja bindé il dit "adresse deja utilisée" au lieu de "adress already in use" !!!
du coup ce connard de module ssh croit que c'est une autre erreur!!
faudrait signaler ce bug à l'auteur du module.
En attendant il te faut patcher ta lib toi meme (ligne 235 de Net/SSH/Perl.pm).

bon en fait il semblerait qu'il y a une option pour laisser l'os choisir le port lui meme: privileged => 0 dans le new de SSH.
donc voila comment faire:

Code :

#!/usr/bin/perl
use Net::SSH::Perl;
use Net::SFTP;
my %sftp_args = (ssh_args => {privileged => 0}, user =>'user1',password =>'password1');
my %sftp_argspremium = (ssh_args => {privileged => 0}, user =>'user2',password =>'password2');
my $sftp = Net::SFTP->new('17.17.17.17', %sftp_args)
or die "Cannot connect to Host ";
print "CONNECTED\n";
$sftp->get('remotefichier1','localfichier1');
my $sftp2 = Net::SFTP->new('17.17.17.17', %sftp_argspremium)
or die "Cannot connect to Host ";
print "CONNECTED\n";
$sftp2->get('remotefichier2','localfichier2');

tu passe ssh_args => {privileged => 0} en param à ton new, et SFTP passera ce param à SSH quant il le crera.

J'ai pas testé, mais ca devrait marcher

betsamee

Asterisk Zeperyl

je ne le repeterais jamais assez merci de ta precieuse aide
cependant cela ne fonctionne toujours pas j'ai la chose suivante:

Code :

Not an ARRAY reference at /usr/lib/perl5/site_perl/5.8.0/Net/SFTP.pm line 36.

je tourne sous Red Hat 9.0
je ne vois pas trop quoi essayer
merci

pospos

ok! tu dois avoir la version 0.8 (ou inferieur). j'ai regardé le code de la version 0.9 qui peu prendre une hash en param pour ssh_args et la convertie en array...

donc ca ca devrait marcher avec toutes les versions (avec une array ref au lieu d'une hash ref) :

Code :

my %sftp_args = (ssh_args => [privileged => 0], user =>'user1',password =>'password1');
my %sftp_argspremium = (ssh_args => [privileged => 0], user =>'user2',password =>'password2');

betsamee

Asterisk Zeperyl

ca marche!
Merci beaucoup pour ton aide
je vois que tu taquines en Perl (moi perso c'est mon premier module en perl)
A bientot

FORUM HardWare.fr

Programmation

Perl

Probleme de socket dans petit script sftp Perl

Sujets relatifs
Probleme sur javascript adresse ip en	Probleme avec la fonction exif_read_data()
Problème JAVA dans PHP	Probleme appeller procedure...
Problème sur le bon vieux quickBasic!!!	Probleme Buffer ??
Probleme d'accent dans un fichier batch	Problème d'impression CSS sous IE
Problème input type='hidden'
Plus de sujets relatifs à : Probleme de socket dans petit script sftp Perl

Page générée en 0.057 secondes