Discussion :

[Girzi]

Bonjour,

J'explique mon problème.

J'ai créé une classe :
package test;

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
 
use LWP;
$objet = test->new("http://google.fr");
 
package test;
sub new {
$class = shift;
$url = @_;
$self = {};
$self->{UA} = LWP::UserAgent->new(
agent => "test/1.0",timeout => 30);
$self->{URL} = $url;
bless($self);
return $self;
}
sub test {
$ua = $self->{UA};
$req = HTTP::Request->new(GET => "$self->{URL}");
$res = $ua->request($req);
print $res;
}
 
1;

Mais ce code ne fonctionne pas à cause de

* LWP::UserAgent->new(

* $res = $ua->request($req);


Pourquoi ? Ne peut-on pas utiliser des modules à l'intérieur d'une classe que l'on crée ? Y a il une synthaxe que je ne connais pas ?

Merci pour votre aide

[pospos]

à priori le probleme à de fortes chances de venir de l'absence d'un "package main;" en haut de ton code.
et aussi tu ne fait pas de use des modules que tu utilise (LWP et HTTP::Request) au bon endroit

En regles generale on prefere mettre le module à part du script (chaque module==un fichier .pm et le script à part en .pl).

On prefere egalement que la premiere lettre du nom du module soit en majuscule, et il faut que le nom soit exactement le meme que le nom+chemin du fichier, y compris au niveau de la casse.

ensuite dans ton new il faut que tu utilise la version deux argument de bless (je ne sais pas ou tu a vu cette frome à un seul argument, mais si c'est dans tutorial je te conseil d'en changer car elle est fortement deconseillée).

bless $self equivaut à bless $self, __PACKAGE__ et interdit donc l'heritage de ta classe.

utilise plutot bless $self, $class;

autre chose egalement, si tu fait cela:
$url = @_;

alors tu evalue un array (@_) en contexte scalair ($url) et donc ce que tu va recuperer dans $url c'est le nombre d'elements de @_.

ce que tu veux c'est ca:

($url) = @_;

et meme plutot
my ($url) = @_;

utilise use strict et use warnings partout !

et soigne ton indentation aussi

et dans ta sub test il faut aussi que tu recupere $self en premier argument (il est automatiquement passé à ta sub à l'appel de la methode)

En gros voila ce que donnerais ton module+script :

ton module Test.pm (dans le meme rep que le script)

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
package Test;
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request;
 
sub new {
	my $class = shift;
	my ($url) = @_;
	$self = {};
	$self->{UA} = LWP::UserAgent->new(
		agent	=> "test/1.0",
		timeout	=> 30,
	);
	$self->{URL} = $url;
	return bless $self, $class;
}
 
sub test {
	my $self = shift;
	my $ua = $self->{UA};
	my $req = HTTP::Request->new(GET => $self->{URL});
	my $res = $ua->request($req);
	print $res->content;
}
 
1;

ton script .pl :

Code :

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

1
2
3
4
5
6
use strict;
use warnings;
use Test;
 
my $objet = Test->new("http://google.fr") or die;
$object->test;

[Girzi]

Merci pour ton aide et tes détails precieux !
En effet mon problème venait de return bless $self, $class;

Aurais tu des liens, documents sur la programmation orienté objet en Perl à me conseiller ? (a part la faq)

Merci encore !