Discussion :

[suxxa]

Bonjour,

Je viens de commencer le perl mais je suis confronté à un problème.

J'étais sur un projet, mais j'ai décidé de recréer le problème sous la forme la plus simple possible afin de le régler moi même et je ne vois pas de solution.

Je suis sous Linux, j'ai crée un dossier test dans le répertoire /usr/lib/.
Dans ce dossier se trouvent deux fichiers que j'ai crée

/usr/lib/test/test.pl

Code :

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

1
2
3
#!/usr/bin/perl -w
use Test;
my $dupond = Test->new();

/usr/lib/test/Test.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
#!/usr/bin perl
package Test;
use strict;
use warnings;
 
sub new{
	my($classe)=@_;
	my $this = {};
	bless($this,$classe);
	$this->{nom}	= "testnom";
	$this->{prenom}	= "testprenom";
	$this->{age}	= 20;
	return $this;
}
 
1;

Lorsque j'execute mon fichier test.pl, une erreur m'est retourné.

Code :

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

Can't locate object method "new" via package "Test" at test.pl line 3.

Le constructeur new n'est pas trouvé dans mon fichier de classe.

> J'ai essayé de changer de nom de constructeur.
> J'ai essayé un constructeur par défaut, mais également par paramètres
> J'ai essayé avec d'autres noms de classe

Mais rien n'y change...

Si vous avez une solution, merci d'avance.

Cordialement.

[djibril]

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
package Test;
use strict;
use warnings;
 
sub new {
  my ( $classe ) = @_;
 
  # Vérifions la classe
  $classe = ref($classe) || $classe;
 
  # Création de la référence anonyme de hachage vide (futur objet)
  my $this = {};
  $this->{nom}	= "testnom";
  $this->{prenom}	= "testprenom";
  $this->{age}	= 20;
 
  # Liaison de l'objet à la classe
  bless $this, $classe;
 
  return $this;
}

[suxxa]

Bonjour Djibril,

Merci de ta réponse, je pensais que la vérification était facultative et j'avais décidé de la zapper à la création de mes fichiers de test.

Cependant j'ai malheureusement toujours le même problème...

En fait j'ai du mal à comprendre le système d'erreur de perl qui persiste à me renvoyer que ma fonction n'existe pas, plutôt que de me renvoyer qu'il y a un problème dans ma fonction.

[Philou67430]

Renomme ton package, Test étant déjà un package du Core de perl.

Ensuite, quand tu auras corrigé cela, ajoute ceci dans ton fichier test.pl

Code :

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

1
2
3
4
 
use strict;
use warnings;
use lib qw(.);

[suxxa]

C'était bien ça!

Merci à vous deux pour votre aide