Discussion :

[djibril]

reessaye ça et dis si qq chose s'affiche

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
 
#!/usr/bin/perl
use warnings;
use strict;
use Carp;
use Net::FTP::Recursive;
 
my $host = "ftp.ensembl.org";
my $rep = "/pub/current_genbank";
my $ftp = Net::FTP::Recursive->new($host, Debug => 0) or die "Cannot connect to $host: $@";
my ($login,$password) = ("anonymous","anonymous");
$ftp->login($login,$password) or die "Cannot login ($login)", $ftp->message;
$ftp->cwd($rep) or die "impossible de changer de repertoire : $rep ", $ftp->message;
$ftp->binary;
 
print  "telechargement en cours\n\n";
$ftp->rget( MatchDirs  => ".*" ) or warn "impossible de telecharger ", $ftp->message;
$ftp->quit;
print  "Fini\n";

[kargero]

Voici le message qu'il m'envoie :

telechargement en cours

impossible de télécharger Cannot connect to 138.48.24.76:10972 - timed out

Fini

Puis-je t'envoyer en privé les paramètres de connexion ?

reessaye ça et dis si qq chose s'affiche

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
 
#!/usr/bin/perl
use warnings;
use strict;
use Carp;
use Net::FTP::Recursive;
 
my $host = "ftp.ensembl.org";
my $rep = "/pub/current_genbank";
my $ftp = Net::FTP::Recursive->new($host, Debug => 0) or die "Cannot connect to $host: $@";
my ($login,$password) = ("anonymous","anonymous");
$ftp->login($login,$password) or die "Cannot login ($login)", $ftp->message;
$ftp->cwd($rep) or die "impossible de changer de repertoire : $rep ", $ftp->message;
$ftp->binary;
 
print  "telechargement en cours\n\n";
$ftp->rget( MatchDirs  => ".*" ) or warn "impossible de telecharger ", $ftp->message;
$ftp->quit;
print  "Fini\n";

[djibril]

si tu veux.

[kargero]

Tu ne vas pas le croire, mais c'était un problème de firewall,

Je viens de demander au service informatique de desactiver le firewall, et ça marche.

Merci mille fois.

Maintenant je vais voir comment une fois les fichiers téléchargés seront décompressés et et fusionnés dans un seul fichier pour chaque répertoire.

A+

Toutefois, je t'envois les paramètres (en privé) de mon compte au cas où j'aurais besoin de toi.

si tu veux.

[djibril]

Bon bah c'est bien. Je me doutais que ça pouvait bien venir de là.
Met ton thread en résolu et si tu as d'autres soucis de decompression ou autre, tu en créera d'autres.