Bonjours à tous, alors en ce début de semaine, une nouvelle question à 1000 euros pour vous cher lecteur
J'ai le soucis suivant : je me suis initier aux classes d'objets en Perl, et donc j'ai fait des classes de Requete sur base, de connexion, etc.. le problème c'est que quand je lance un script qui utilise ces package, il memettais come quoi le retour d'une des classe n'était pas "true".
Alors, j'ai repris un exemple de tuto dont voici le code afin de vérifier et voir ce que ca me mettais, et ca me met de nouveau la même erreur !!
Je ne comprend rien à rien décidément. Je me doute que pour vous ca va paraitre encore une erreur de débutant (ca je n'en doute pas) et c'est pourquoi je fais apel à vous
Voilà le code du tuto :
fichier voiture.pm :
et le fichier location.pl :
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 package voiture; BEGIN { @liste=(); } sub nouvelle { my ($class,$color,$marque) = @_; my $objptr = {}; $objptr->{'couleur'}=$color; $objptr->{'marque'}=$marque; bless ($objptr,$class); push(@liste,$objptr); return $objptr; } sub couleur { my ($objptr) = @_; return ($objptr->{'vouleur'}); } sub marque { my ($objpre) = @_; return ($objptr->{'marque'}); } sub total { return($#liste+1); }
Ca me met l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 #!C:\Perl\bin\perl.exe use voiture; $voit1 = voiture->nouvelle('verte','citroen'); print "couleur voiture 1 = ".$voit1->couleur()."\n";
Merci d'avance à tous.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 voiture.pm did not return a true value at location.pl line 2
++
Partager