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