[web] rapatrier un document via HTTP

Version imprimable

03/04/2003, 11h08
ddhia

[web] rapatrier un document via HTTP

Salut
je veux savoir si on peut rapatrier le contenu d'un document dans un fichier texte par HTTP : cad l'URL me donne accée à un fichier texte et non HTML, je veux rapatrier ce fichier dans ma machine.

si tu es sous linux, tu peux utiliser un appel system avec Lynx (mais c'est pas tres propre).
La meilleure solution est d'utiliser le module CPAN Net::HTTP.
exemple tire de la doc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/bin/perl
use strict;
use Net::HTTP;
my $s = Net::HTTP->new(Host => "www.perl.com") || die $@;
$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
#my($code, $mess, %h) = $s->read_response_headers;
 
while (1) {
   my $buf;
   my $n = $s->read_entity_body($buf, 1024);
   die "read failed: $!" unless defined $n;
   last unless $n;
   print $buf;
}

08/04/2003, 11h01
ddhia

[RESOLU]
Salut j'ai trouvé une solution plus facile : Elle consiste à ouvrir le fichier à partir de son URL et de le copier directement sur un autre fichier local :
Code:

1 2 3 4 5 6 $url = "http://www.url.com"; $file = "./fic.txt"; open(OUTFILE, '>'.$file) || die "Can't open $file\n"; print OUTFILE (get $url) || die "Can't open $url\n";