Discussion :

[gwinyam]

Bonjour,

Voilà, je suis en train de bosser sur perl et donc là je découvre le développement objet sous Perl (pas de façon générale pour autant, j'ai quelques années de poo dans le dos ).

En gros voilà mon "module/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
package client;
 
sub new #constructeur
{
   my ($classe, $ssn, $mutuelle, $idcs, $idcm, $valable) = @_;
   my $this = {"ssn"=>"$ssn","mutuelle"=>"$mutuelle","id_cs"=>"$idcs","id_cm"=>"$idcm","valable"=>"$valable"};
   bless ($this,$classe);
   print "Num : $this->{ssn} construction ok\n\n";
   return $this;
}
 
sub test
{
    my ($this, $testa) = @_;
    print "Num : $this->{ssn} et $testa \n\n";
}
 
1;

voilà mon script d'utilisation:

Code :

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

1
2
3
4
use client;
 
client->new("0","1","2","3","4");
client->test("aaa");

et ça me retourne ça:

Code :

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

1
2
3
Num : 0 construction ok
 
Num : $this->{ssn} et aaa

Je ne comprends pas pourquoi il ne récupère pas la valeur de $this->{ssn}, pourtant j'ai beau cherché, je vois pas

Je comprends pas

Merci d'avance

[Jasmine80]

Essaie cela

Code :

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

1
2
my $client = client->new("0","1","2","3","4");
$client ->test("aaa");

Cela me retourne

Num : 0 construction ok

Num : 0 et aaa

Jasmine,

[gwinyam]

Ouais merci, je venais justement de trouver le problème

Merci quand même