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