Discussion :

[Premium]

Salut,

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

Code :

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

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 :

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

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

A la compilation, j'ai ce message :

Code :

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

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.

[rcageot]

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 :

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

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;

[Premium]

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

[rcageot]

regarde les modules LWP!

[Girzi]

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

Module LWP

Code :

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

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 :

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

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


@+