Discussion :

[kij]

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 :

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

et le fichier location.pl :

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

Ca me met l'erreur suivante :

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

Merci d'avance à tous.

++

[Jedai]

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 :

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

1
2
 
1;

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

--
Jedaï

[kij]

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 !

++

[kij]

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

maitenant j'ai l'erreur :

Code :

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

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.

++

[Jedai]

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 :

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

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ï

[djibril]

un tag resolu si tout est ok

[kij]

Merci les gars, ca marche !

Dsl pour le retard j'était partis.

++