package fait maison

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 :

Code:

---

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); }

---

et le fichier location.pl :

Code:

---

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";

---

Ca me met l'erreur suivante :

Code:

---

1 2	voiture.pm did not return a true value at location.pl line 2

---

Merci d'avance à tous.

++

Normalement, un module doit retourner true à la fin de son exécution pour bien montrer que tout s'est bien passé, pour cela, on ajoute toujours à la fin d'un module une petite ligne :

Code:

---

1 2

1;

---

Ca m'étonne que ça n'ait pas été dans ton tutorial.

--
Jedaï

Ben bien pour être honête, dans le tuto du code que j'ai donné, ca n'y est pas, par contre dans d'autre tutos que j'ai ça y est, mais je n'aviat pas compris que ca servait à ça.

Un grand merci à toi Jedaï et que la force continu à être en toi !

++

Je te pose une autre question Jedaï pour tester ta grande connaissance :

maitenant j'ai l'erreur :

Code:

---

1 2	Can't locate voiture.pm in @INC <@INC contains: C:/Perl/lib C:Perl/site/lib .> at ./classes/loocation.pl line 2.

---

Je préfère te poser la question car il n'y a pas un tuto qui dise la même chose... comme tu as pu le voir précédement !

merci d'avance.

++

Perl ne trouve pas ton fichier voiture.pm, ce qui signifie qu'il ne se trouve pas dans un des dossiers listés par @INC. Pour rajouter proprement un dossier à @INC, on utilise use lib :

Code:

---

1 2 3 4 5 6 7 8

#!C:\Perl\bin\perl.exe use lib '/mon/repertoire/ou/se/trouve/voiture'; use voiture;   $voit1 = voiture->nouvelle('verte','citroen');   print "couleur voiture 1 = ".$voit1->couleur()."\n";

---

(En fait c'est presque la même chose que de rajouter directement ton dossier à @INC, au début de @INC plus précisément)

--
Jedaï

un tag resolu si tout est ok

Merci les gars, ca marche !

Dsl pour le retard j'était partis.

++