Discussion :

[danathane]

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.

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

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

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

[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

[djibril]

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 :

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

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

[djibril]

Voici un exemple très basique

Code :

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

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

[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

[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

[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

[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.