Module net::http récupérer un fichier

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:

---

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:

---

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 :)

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:

---

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ï

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

Code:

---

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

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ï

Bonjour Jedai, Bon week end ?

Pour en revenir à notre sujet ( :aie: ). 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 :)

Code:

---

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__

---

:king: Super t'es le meilleur :king: