[web] Sauvegarder une page HTML

Salut,

pour m'entrainer, j'ai voulu créer un module et l'utiliser.
Voici le fichier MonModule.pm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

package MonModule; use strict;   sub TableMult{ my($n) = @_; for my $i(1..$n){ for my $j(1..$n){ printf("%5d",$i*$j); } printf("\n"); }   1;

---

et le fichier Exo.pl

Code:

---

1 2 3 4 5

#!/usr/bin/perl -w use strict; use MonModule;   MonModule::TableMult(4);

---

A la compilation, j'ai ce message :

Code:

---

1 2 3 4 5

~$ ./Exo.pl Missing right curly or square bracket at MonModule.pm line 14, at end of line syntax error at MonModule.pm line 14, at EOF Compilation failed in require at ./Exo.pl line 3. BEGIN failed--compilation aborted at ./Exo.pl line 3.

---

il te manque un crochet dans la 2ème boucle for
"Missing right curly or square bracket at MonModule.pm line 14" te le dit
essaye avec ça ça marchera mieux

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

package MonModule; use strict;   sub TableMult{ my($n) = @_; for my $i(1..$n){ for my $j(1..$n){ printf("%5d",$i*$j); } } printf("\n"); }   1;

---

Merci.
ESt-ce que quelqu'un pourrait m'indiquer comment faire pour sauvegarde sur disque une page web avec ses images

regarde les modules LWP!

Citation:

---

Merci.
ESt-ce que quelqu'un pourrait m'indiquer comment faire pour sauvegarde sur disque une page web avec ses images

---

Module LWP

Code:

---

1 2 3 4 5 6 7 8

use LWP::UserAgent; # Module LWP   $ua = LWP::UserAgent->new(agent => "Monagent/1.0",timeout=>30); #On crée un objet agent my $req = HTTP::Request->new(GET => "http://google.fr"); # on crée un objet request (méthode http + url) my $res = $ua->request($req); # on fait la requete grâce à la méthode request() if($res->is_success){ # Si réponse 200 OK print $res->{_content}; # on affiche la page }

---

Ce code permet de récuperer le contenu de la page http://google.fr :)
Si tu veux la sauvegarder tu ouvres un fichier et tu écrit le code dedans.

Code:

---

1 2 3

open(DATA,'> google.html') || die("Erreur"); print DATA, $res->{_content}; close(DATA);

---

Pour récuperer ce qui t'interesse tu devras parser la page avec des regex.
Sinon il existe un module HTML :: Parser


@+