Bonjour à tous,

Je suis abonné au journal lemonde.fr et j'aimerai faire un script perl me permettant de télécharger la version pdf automatiquement.

Après quelques recherches, je me suis lancé dans la création d'un script perl utilisant la librairie Mechanize.

Voici ou j'en suis :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
use WWW::Mechanize;
use Crypt::SSLeay;
 
my $login = "monMail@xxx.com";
my $password = "monMotDePasse";
my $url = 'http://www.lemonde.fr/journalelectronique/donnees/protege/20101002/Le_Monde_20101002.zip';
 
$bot = WWW::Mechanize->new();
$bot->cookie_jar(
        HTTP::Cookies->new(
            file           => "cookies.txt",
            autosave       => 1,
            ignore_discard => 1,
        )
);
 
$response = $bot->get($url);
 
$bot->form_number(1);
$bot->field( login => $login );
$bot->field( password => $password );
$response =$bot->click();
 
my $response = $bot->get($url);
my $filename = $response->filename;
 
if (! open ( FOUT, ">$filename" ) ) {
    die("Could not create file: $!" );
}
print( FOUT $bot->response->content() );
close( FOUT );
En sortie j'aimerai avoir l'archive zip, mais j'ai un fichier html avec un contenu qui n'a rien a voir.

Etant donné que je débute avec perl, est-ce que vous pourriez m'aider en me disant ce qui peut poser problème dans mon script.

Merci d'avance,