Discussion :

[ddhia]

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.

[arthurr]

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 :

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

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;
}

[ddhia]

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 :

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

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";