Discussion :

[Olivier.p]

Bonjour,

Je cherche à récupérer un fichier via http. J'ai lu la doc net::http mais je ne vois pas comment faire...

Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
 
#!/usr/bin/perl
use Net::HTTP;
print "connection en cours...\n";
$http = Net::HTTP -> new(Host => "xxx.xxx.xxx.xxx") or die "connection failed ", $@;
print "connection OK ! :)\n";
$http -> write_request(GET => "/dossier1/dossier2/fichier.Z", "D:\dl") or die "Get failed ", $@;
print "Get OK ! :)\n";

Bon il marche parce qu'en retour j'ai :

Code :

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

1
2
3
4
 
connection en cours...
connection OK ! :)
Get OK ! :)

Je pense que Get me dis que le fichier existe puis c'est tout... Comment pourrais je récupérer le fichier fichier.Z à l'adresse xxx.xxx.xxx.xxx"/dossier1/dossier2 et le copier dans le répertoire D:\dl ?

Merci beaucoup

[Jedai]

N'utilise pas Net::HTTP, c'est un module de relativement bas niveau, mieux vaut utiliser directement LWP, ou même pour les tâches simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; use warnings;
 
use LWP::Simple qw/is_error getstore/;
 
my $code = getstore('http://www.google.com', 'index_page.html');
 
if( is_error($code) ) {
  die "Oups...\n";
}
 
__END__

--
Jedaï

[Olivier.p]

Il me retourne l'erreur "Oups..."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict; use warnings;
 
use LWP::Simple qw/is_error getstore/;
 
my $code = getstore('http://xxx.xxx.xxx.xxx/dossier1/dossier2/fichier.Z', 'D:\\dl');
 
if( is_error($code) ) {
  die "Oups...\n";
}
 
__END__

Par curisoité, quelle est l'utilité du __END__ à la fin ?
Merci

[Jedai]

Si l'adresse est correcte, ce script devrait s'exécuter sans erreur, lis le code d'erreur pour savoir la cause du problème. L'une des possibilités serait que le serveur refuse une requête venant d'un User-Agent s'identifiant comme LWP, il faudrait alors ajouter une ligne pour changer cet user-agent, par exemple pour celui d'un browser récent.

Le __END__ signale la fin du script, tout ce que tu pourrais mettre après ce marqueur ne serait pas considéré par l'interpréteur perl et son contenu serait accessible par le handle DATA.

--
Jedaï

[Olivier.p]

Bonjour Jedai, Bon week end ?

Pour en revenir à notre sujet ( ). La valeur de $code est 500 est la valeur retournée est "Bad file descriptor".

Le chemin d'accès est bon. Comme explorateur j'utilise IE 7 pour récupérer mes ficheirs à la main.

Je n'ai aucune idée de comment modifier mon user-agent. Il est possible que la page web soit protégée contre les scripts (ça serait dommage mais bon...).

Peux tu me dire comment modifier l'user agent ou bien récupérer mes fichiers ?

Merci pour le temps que tu consacres à mon problème

[Jedai]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict; use warnings;
 
use LWP::Simple qw/is_error getstore $ua/;
 
$ua->agent('Mozilla/5.0');
 
my $code = getstore('http://xxx.xxx.xxx.xxx/dossier1/dossier2/fichier.Z', 'D:\\dl');
 
if( is_error($code) ) {
  die "Oups...\n";
}
 
__END__

[Olivier.p]

Super t'es le meilleur