Connexion FTP avec écoute permanente

**tagada_tagada** · 22/12/2008, 11h59

Bonjour,

J'ai besoin de me connecter en FTP sur un serveur pour envoyer des archives .zip et vérifier que le transfert a été correctement effectué.
Pour la connection je n'ai pas de soucis mais c'est le fait d'écouter en permanence que je ne sais pas comment faire. De plus j'ai pensé à comparer les tailles des archives en local et sur le FTP pour vérifier qu'elles sont identiques et donc que le transfert a été effectué correctement...
Je souhaiterai savoir comment faire pour établir une connexion permanente ainsi que vérifié la validité du transfert.

Merci

**djibril** · 22/12/2008, 12h03

tu as une méthode size qui te permet de connaitre la taille du fichier sur le site ftp et ensuite, tu compare avec le fichier télécharger en local.

**tagada_tagada** · 22/12/2008, 13h35

Envoyé par djibril

tu as une méthode size qui te permet de connaitre la taille du fichier sur le site ftp et ensuite, tu compare avec le fichier télécharger en local.

Ok mais comment on fait pour écouter en permanence pour faire cette comparaison une fois le transfert terminé? D'ailleurs comment fait-on pour savoir que c'est fini et donc faire la comparaison?

**djibril** · 22/12/2008, 14h02

bah tu utilises le module Net::FTP

**tagada_tagada** · 22/12/2008, 15h10

Envoyé par djibril

bah tu utilises le module Net::FTP

Ca c'est ok maintenant j'aimerai savoir comment faire pour ne pas me déconnecter du serveur du moins pas tant que je l'aurai décidé... le faire tourner continuellement en gros

**djibril** · 22/12/2008, 15h14

Bah dans le module, c'est toi qui décide pour te déconnecter via la méthode close je crois
Tant que tu ne l'appelle pas ta connexion reste ouverte, sauf si le serveur ftp en question te déconnecte au bout d'un certains temps d'inactivité et là tu y peut rien.

**tagada_tagada** · 22/12/2008, 15h41

J'ai une dernière question. Je me connecte de la facon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
 
# use module
use strict;
use NET::FTP;
 
 
my ($hostname, $login, $passwd, $file) = ("xxx.xxx.xxx.xx", "test", "toto", "toto.txt");
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
 
my $ftp = Net::FTP->new($hostname, Debug => 0) or die "Cannot connect $hostname: $@";
 
$ftp->login($login, $passwd) or die "Cannot login ", $ftp->message;
 
#$ftp->cwd($home) or die "Cannot change working directory ", $ftp->message;
 
$ftp->put($file) or die "put failed ", $ftp->message;
 
my $file_size = $ftp->size($file);
 
if($size == $file_size)
{
	print "coucou";
}
else
{
	print "$size != $file_size\n";
}
 
$ftp->quit;

et en sortie, j'obtiens :

Code :

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

3441 !=

Il n'y a pas de taille d'associé au fichier sur le FTP alors que le fichier a bien été transféré...
C'est du a quoi? Comment corriger cela?

Merci

**djibril** · 22/12/2008, 15h58

rajoute un

Code :

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

use warnings;

et

Code :

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

$ftp->binary;

**tagada_tagada** · 22/12/2008, 16h13

Envoyé par djibril

rajoute un

Code :

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

use warnings;

et

Code :

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

$ftp->binary;

Ca corrige le probleme.
Merci bien

**tagada_tagada** · 22/12/2008, 16h33

J'ai une autre question aussi avant de cloturer le sujet. Est-il possible de de transférer par FTP des répertoires?
J'ai pas envie d'avoir a archiver mon répertoire pour le transfert mais envoyer le répertoire directement.

**djibril** · 22/12/2008, 16h49

à ma connaissance non.
A toi de configurer ton script pour le faire faire un à un, ou bien archiver ton repertoire

**tagada_tagada** · 22/12/2008, 16h53

Envoyé par djibril

à ma connaissance non.
A toi de configurer ton script pour le faire faire un à un, ou bien archiver ton repertoire

j'avais pensé a archiver mon répertoire mais comment on fait pour le décompresser sur le FTP ensuite?

**djibril** · 22/12/2008, 17h03

impossible.

En fait, c'est quoi le but de ton script concrètement ?

**tagada_tagada** · 22/12/2008, 17h04

Envoyé par djibril

impossible.

En fait, c'est quoi le but de ton script concrètement ?

Copier un répertoire sur un serveur et donc si je pars d'une archive comment je dois m'y prendre?

**djibril** · 22/12/2008, 17h21

Dans le module net::ftp, il n'existe pas d'équivalent de mget ou mput car il est facile de le reprogrammer soit même.

**djibril** · 22/12/2008, 17h33

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
sub mput {
    my ( $ftp, $pattern ) = @_;
    foreach my $file ( glob($pattern) ) {
       $ftp->put($file) or warn $ftp->message;
    }
}
 
sub mget {
    my ( $ftp, $pattern ) = @_;
    foreach my $file ( $ftp->ls($pattern) ) {
        $ftp->get($file) or warn $ftp->message;
    }
}

**tagada_tagada** · 22/12/2008, 18h14

Merci et comment fait-on pour déplacer le fichier toto.txt dans le répertoire toto sur le FTP?

**tagada_tagada** · 22/12/2008, 18h23

Ce que j'ai essayé de faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl
 
# use module
use strict;
use warnings;
use NET::FTP;
 
sub mput {
    my ( $ftp, $pattern ) = @_;
    foreach my $file ( glob($pattern) ) {
       $ftp->put($file) or warn $ftp->message;
    }
}
 
sub mget {
    my ( $ftp, $pattern ) = @_;
    foreach my $file ( $ftp->ls($pattern) ) {
        $ftp->get($file) or warn $ftp->message;
    }
}
 
my ($hostname, $login, $passwd, $rep) = ("xxx.xxx.xxx.xx", "login", "password", "toto");
#my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($file);
 
my $ftp = Net::FTP->new($hostname, Debug => 0) or die "Cannot connect $hostname: $@";
 
$ftp->login($login, $passwd) or die "Cannot login ", $ftp->message;
 
$ftp->binary();
 
$ftp->mkdir($rep);
 
foreach my $file (glob("$rep/*"))
{		
	mput($ftp,$file);
	$ftp->rename($file,"$rep\/$file");
}
 
$ftp->quit;

Mon répertoire toto a été crée, le fichier toto.txt a été transféré sur le ftp mais je n'arrive pas a le mettre dans le répertoire toto.