récupération fichier via http

Version imprimable

26/07/2010, 16h55
danathane

récupération fichier via http

Bonjour tout le monde,

Voilà mon soucis : j'ai un lien http pour récupérer un fichier mais je ne sais pas comment faire pour le récupérer via le perl. Est ce que vous auriez une idée?

Merci d'avance.
26/07/2010, 17h40
ours_en_pluche

re
bonjour,

soit tu passes par un module perl, comme : http://search.cpan.org/~johanl/Net-D...nload/Queue.pm

soit, en fonction de ton OS ( je ne parlerai donc que de linux, ne connaissant pas windows ni mac )

mais avec des fonctions natives tel que wget ou curl, tu peux t en sortir parfaitement.
exemple avec wget :
Code:

1 2 my $file = "http://<ton fichier>"; `cd <ton dossier de destination> && wget $file`;
la premiere solution reste la plus propre.
de plus, certains sites bloquent le wget via apache ( auquel cas, tu peux passer par curl et son --user-agent )

mes 2 centimes

ours_en_pluche
26/07/2010, 17h55
danathane

Salut Ours en peluche, je viens d'essayer la commande wget et je ne l'ai aps sur le serveur sur lequel je bosse. Pour ce qui est de CURL, je ne suis pas sur de l'avoir non plus :( est ce qu'il y a d'autre façon simple de télécharger les fichier en perl?

Merci
26/07/2010, 17h56
djibril
Citation:
Envoyé par ours_en_pluche

bonjour,

soit tu passes par un module perl, comme : http://search.cpan.org/~johanl/Net-D...nload/Queue.pm

soit, en fonction de ton OS ( je ne parlerai donc que de linux, ne connaissant pas windows ni mac )

mais avec des fonctions natives tel que wget ou curl, tu peux t en sortir parfaitement.
exemple avec wget :

Code:

1 2 my $file = "http://<ton fichier>"; `cd <ton dossier de destination> && wget $file`;

la premiere solution reste la plus propre.
de plus, certains sites bloquent le wget via apache ( auquel cas, tu peux passer par curl et son --user-agent )

mes 2 centimes

ours_en_pluche
Aucune des solutions n'est propre :aie: si le but est d'utiliser perl il faut utiliser le module LWP. Si c'est un fichier tout simple, la méthode mirror fera l'affaire (LWP::Simple).

Voici un exemple très basique

Code:

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
 
use LWP::Simple;
 
my $url = "http://www.ets.org/Media/Tests/TFI/pdf/TFI_Sample_Test.pdf";
my $fichier = "MONFICHIER.pdf";
if (mirror( $url, $fichier ) == RC_NOT_MODIFIED) {
  print "Fichier $fichier telecharge ($url)\n";
}

26/07/2010, 18h14
danathane

Merci djbril!

Ca ne marhciat pas mais c'est dû aux problème d'autorisation que j'ia sur les serveur. Je n'aurais plus qu'à essayer de voir avec tous els fichiers que 'jai à télécharger.

Danathane
27/07/2010, 11h23
danathane

Re bonjour!!! J'ai encore une question : le site sur lequel je doit télécharger les fichier nécessite une authentification login password mais je ne sais pas comment faire pour les donner en utilisant mirror(). Vous auriez des idées?

Merci
27/07/2010, 13h43
black_code

C'est quoi comme authentification, c'est du type .htaccess ou quoi ?
de toute les manière l'authentification et un mécanisme propre au site et à la navigation. pour le télécharement c'est autre chose.

Sinon pour l'authentification avec LWP voila un exemple ici
28/07/2010, 10h42
danathane

Bon alors, j'ai mis le ua->credentials en place masi j'ai toujorus le même problème. J'arrive à télécharger les fichier non protéger avec un mirror() mais totu ce qui se trouver derrirère une authentification je ne peut pas. est ce que vous auriez uen idée de comment? Merci d'avance.