Discussion :

[ram-0000]

Bonjour,

J'ai une méthode de classe (method1) qui appelle une autre méthode (method2) de la même classe.

Ces 2 méthodes récupère le paramètre $this ainsi que les param utilisateur de manière classique.

Par contre, dans la méthode2, le parametre $this n'est pas présent dans les paramètres. Est ce qu'il faut le passer de manière explicite lors de l'appel dans method1 ?

le code de mon programme

Code :

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

1
2
3
4
5
6
7
#!/usr/bin/perl -w
use warnings;
use strict;
use TestPackage;
 
   my $var = TestPackage->new();
   $var->method1("toto");

Le code de ma classe

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
package TestPackage;
use warnings;
use strict;
 
sub new
{
   my($classe) = @_;
   $classe = ref($classe) || $classe;
 
   my $this = {};
 
   bless($this, $classe);
   return $this;
}
 
sub method1
{
   my($this, $Name) = @_;
   print "Method1 : this=", $this, "\n";
   print "Method1 : Name=", $Name, "\n";
   die() unless defined($this);
   die() unless defined($Name);
 
   method2($Name, "tata");
}
 
sub method2
{
   my($this, $Name1, $Name2) = @_;
   print "Method2 : this=", $this, "\n";
   print "Method2 : Name1=", $Name1, "\n";
   print "Method2 : Name2=", $Name2, "\n";
   die() unless defined($this);
   die() unless defined($Name1);
   die() unless defined($Name2);
 
   print("It works !!\n");
}
 
1;                # Important, ne pas oublier

Le résultat généré

Code :

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

1
2
3
4
5
6
7
8
[root@centos report]# ./test.pl
Method1 : this=TestPackage=HASH(0xdab52a0)
Method1 : Name=toto
Method2 : this=toto
Method2 : Name1=tata
Use of uninitialized value in print at TestPackage.pm line 32.
Method2 : Name2=
Died at TestPackage.pm line 35.

On voit bien $this n'arrive pas dans method2

Merci de votre aide ou de vos éclaircissements

[djibril]

Bonsoir,

Petit conseil :

Code :

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

#!/usr/bin/perl -w

à remplacer par

Code :

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

#!/usr/bin/perl

Le -w est obsolète et remplacé par l'appel à

Code :

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

use warnings;

Pour la POO, je te recommande mon tutoriel : Perl et la programmation orientée objet

[ram-0000]

Code :

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

#!/usr/bin/perl -w

à remplacer par

Code :

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

#!/usr/bin/perl

Le -w est obsolète et remplacé par l'appel à

Code :

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

use warnings;

c'est noté (et appliqué)

Pour la POO, je te recommande mon tutoriel : Perl et la programmation orientée objet

Justement, tu penses bien que je l'ai lu mais je n'ai pas trouvé dedans d'exemple de methode d'instance qui appelle une autre méthode de la même instance.

A ce sujet d'ailleurs, je n'ai pas noté de différence dans l'écriture d'une methode de classe (équivalent à static en C++) et d'une méthode d'instance (qui fonctionne donc avec le param $this). Il y en a une extérieurement (je ne parle pas du code de la fonction) ?

[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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
package TestPackage;
use warnings;
use strict;
 
sub new {
	my ($classe) = @_;
	$classe = ref($classe) || $classe;
 
	my $this = {};
 
	bless( $this, $classe );
	return $this;
}
 
sub method1 {
	my ( $this, $Name ) = @_;
	print "Method1 : this=", $this, "\n";
	print "Method1 : Name=", $Name, "\n";
	die() unless defined($this);
	die() unless defined($Name);
 
	$this->method2( $Name, "tata" );
}
 
sub method2 {
	my ( $this, $Name1, $Name2 ) = @_;
	print "Method2 : this=",  $this,  "\n";
	print "Method2 : Name1=", $Name1, "\n";
	print "Method2 : Name2=", $Name2, "\n";
	die() unless defined($this);
	die() unless defined($Name1);
	die() unless defined($Name2);
 
	print "It works !!\n";
}
 
1;    # Important, ne pas oublier
__END__

[ram-0000]

Merci M'sieur, faut tout simplement être explicite