POO en perl, l'etat de l'art

**Super_carotte** · 22/11/2010, 09h49

Bonjour tout le monde,
Je suis en train d'essayé de voir comment fonctionne le perl en objet.

Je me suis donc créé deux fichiers:
Un "Personne.pm
et un "Test_PERL.pl"

Cependant, quand j'execut mon script sur eclipse, voila ce que je reçois comme retour:

$VAR1 = bless( {
'prenom' => 'Dupont',
'nom' => 'Pierre',
'frere' => [
'paul',
'jack'
],
'age' => 30
}, 'Personne' );

Pierre a dit : "Hello world!"
prenom => Dupont
nom => Pierre
frere => ARRAY(0x187ae8c)
age => 30

Mon array s'affiche mal.
J'aurai 2 questions:
Comment afficher correctement mon array?
Et est-ce que ce code vous parait etre fait dans les regles de l'art de la Poo perl car je vais m'inspirer de cet exemple pour touts mes travaux a venir.

Merci,
Cordialement,
Benjamin

Voic mes codes:
Personne.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
package Personne;
use strict;
 
my $nb = 0;          #variable de classe
 
sub constpers {
 
	# on passe les données au constructeur
	my ( $classe, $nom, $prenom, $age, @frere ) = @_;
	my $this = {
		"nom"    => $nom,
		"prenom" => $prenom,
		"age"    => $age,
		"frere"  => [ "Simon", "Jacques" ]
	};
	$this->{"frere"} = \@frere if @frere;
 
	#lie la référence à la classe
	bless( $this, $classe );
 
	#on retourne la référence consacrée
	return $this;
}
 
sub parler    #méthode d'instance
{
	my ( $this, $parole ) = @_;
	print "$this->{nom} a dit : \"$parole\"\n";
}
 
sub afficher
{
   my ($this) = @_;
 
   foreach(keys(%$this))
   {
      print "$_ => $$this{$_}\n";
   }
}
 
1;              #Attention ! Obligatoire lors de la création d'un module !

Et Test_PERL.pl:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
 
use strict;
use Data::Dumper;
use Personne;
 
my $pers = Personne->constpers("Pierre", "Dupont", 30, "paul", "jack");
 
print Dumper($pers) . "\n";
 
$pers->parler("Hello world!");
 
$pers->afficher();

Encore merci

**Philou67430** · 22/11/2010, 10h09

Dans ton code, tu n'affiches pas le contenu du tableau, mais la référence du tableau (le scalaire $$this{$_} ; je préfère d'ailleurs l'écriture $this->{$_}, qui est strictement équivalente).
Pour afficher le tableau, s'il c'est un tableau, tu dois l'écrire explicitement :

Code :

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

1
2
3
4
 
if (ref($this->{$_}) eq "ARRAY") {
  print @{$this->{$_}};
}

**Super_carotte** · 22/11/2010, 10h50

Merci de ta réponse.
J'ai essayé de l'appliquer pour l'affichage d'un autre exemple, mais il y a apparemment un problème:

Not a HASH reference at D:/Appli portable/Eclipse_3.5.1/Data/workspace/Chat_PERL/Chat1.pm line 28.

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
 
package Chat1;
use strict;
 
my $nb = 0;       #variable de classe
use IO::Socket;
 
sub sock {
	my ( $classe, $localHost, $localPort, $proto, $listen, $reUse ) = @_;
	my $sock = new IO::Socket::INET(
		"localHost" => $localHost,
		"localPort" => $localPort,
		"proto"     => $proto,
		"listen"    => $listen,
		"reUse"     => $reUse,
	);
	bless( $sock, $classe );
 
	#on retourne la référence consacrée
	return $sock;
}
 
 
sub afficher2 {
 
	my ($sock) = @_;
 
 
	if ( ref( $sock->{$_} ) eq "ARRAY" ) {
		print @{ $sock->{$_} };
	}
}
 
1;    #Attention ! Obligatoire lors de la création d'un module !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use IO::Socket;
use strict;
use Data::Dumper;
use Chat1;
 
my $pers = Chat1->sock( "10.146.232.100", "7070", "tcp", 1, 1);
 
#print Dumper($pers) . "\n";
 
#$pers->parler("Hello world!");
 
$pers->afficher2();

Auriez vous une idée pour que l'affichage fonctionne?

Merci,
Cordialement,
Benjamin

**djibril** · 22/11/2010, 11h21

Dans ta méthode afficher2 :

Code :

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

1
2
3
4
5
6
7
8
9
sub afficher2 {
 
	my ($sock) = @_;
 
 
	if ( ref( $sock->{$_} ) eq "ARRAY" ) {
		print @{ $sock->{$_} };
	}
}

$sock->{$_} n'a pas de sens car ne correspond à rien.
Attention, les premiers arguments de tes méthodes doivent être ta classe. Donc pour éviter toute confusion, tu devrais choisir les bons noms de variables.
Lis également ce tutoriel : http://djibril.developpez.com/tutoriels/perl/poo/

Code :

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

1
2
3
4
5
6
sub MesMethodes { 
	my ($this, ) = @_;
 # ....
 
  return;
}

Prend de bonnes habitudes en utilisant le mot new comme constructeur, cela permet d'avoir un code propre et compréhensible à la relecture. Perl est permissif, mais il faut prendre les bonnes habitudes.
Donc ta classe devrait ressembler à ceci :

Chat1.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
package Chat1;
use strict;
 
my $nb = 0;       #variable de classe
use IO::Socket;
 
sub new {
  my ( $classe, $localHost, $localPort, $proto, $listen, $reUse ) = @_;
 
  # Vérifions la classe
  $classe = ref($classe) || $classe;
 
  # Création de la référence anonyme de hachage vide (futur objet)
  my $this = {};
 
  # Liaison de l'objet à la classe
  bless( $this, $classe );
 
  my $sock = new IO::Socket::INET(
		"localHost" => $localHost,
		"localPort" => $localPort,
		"proto"     => $proto,
		"listen"    => $listen,
		"reUse"     => $reUse,
	);
 
  $this->{_SOCK} = $sock;
 
  return $this;
}
 
 
sub afficher2 { 
	my ($this, $argument) = @_;
 
	my $sock = $this->{_SOCK};
  unless ( defined $argument ) {
    print "Aucun argument passe\n";
  }
 
  return;
}

test.pl

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
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
 
use Data::Dumper;
use Chat1;
 
my $pers = Chat1->new( "10.146.232.100", "7070", "tcp", 1, 1);
 
#print Dumper($pers) . "\n";
 
#$pers->parler("Hello world!");
 
$pers->afficher2();

Tu as une bonne base pour continuer.

**Philou67430** · 22/11/2010, 13h31

Envoyé par djibril

$sock->{$_} n'a pas de sens car ne correspond à rien.

C'est $_ qui n'a pas de sens ici, $sock étant bien l'objet considéré (j'aime le nommer $self, ce qui enlève toute ambiguité).

Attention, les premiers arguments de tes méthodes doivent être ta classe.
...

Code :

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

1
2
3
4
5
6
sub MesMethodes { 
	my ($classe, ) = @_;
 # ....
 
  return;
}

Euh... la classe pour le constructeur (et encore, on peut écrire le constructeur pour qu'il accepte un objet), mais pour toutes les autres méthodes, il s'agit de l'objet lui-même, pas de sa classe... ou bien ?

Prend de bonnes habitudes en utilisant le mot new comme constructeur, cela permet d'avoir un code propre et compréhensible à la relecture. Perl est permissif, mais il faut prendre les bonnes habitudes.

Entièrement d'accord.

**djibril** · 22/11/2010, 13h40

Envoyé par Philou67430

C'est $_ qui n'a pas de sens ici, $sock étant bien l'objet considéré (j'aime le nommer $self, ce qui enlève toute ambiguité).

Euh... la classe pour le constructeur (et encore, on peut écrire le constructeur pour qu'il accepte un objet), mais pour toutes les autres méthodes, il s'agit de l'objet lui-même, pas de sa classe... ou bien ?
Entièrement d'accord.

C'est plutôt l'objet pardon comme dans mon exemple ci-dessus

Code :

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

1
2
3
4
5
6
sub MesMethodes { 
	my ($this, ) = @_;
 # ....
 
  return;
}

**Super_carotte** · 22/11/2010, 18h39

Merci pour cette réponse bien détaillée.

J'ai essayé de la mettre en place et je suis parvenu a ce code:

Pour le Chat1.pl

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
41
42
43
44
45
#!/usr/bin/perl
 
#!/usr/bin/perl
 
use strict;
use warnings;
use IO::Socket;
 
use Data::Dumper;
use Chat1;
 
my $infoCo = Chat1->new( "10.146.232.100", "7070", "tcp", 1, 1 );
 
my $new_sock = $Chat1::sock->accept();
while (<$new_sock>) {
	print $_;
}
close($Chat1::sock);
 
 
#print Dumper($pers) . "\n";
 
#$pers->parler("Hello world!");
 
#$infoCo->afficher2();
 
=header
 
use IO::Socket;
my $sock = new IO::Socket::INET(
	LocalHost => '10.146.232.100',
	LocalPort => '7070',
	Proto     => 'tcp',
	Listen    => 1,
	Reuse     => 1,
 
);
die "Could not create socket: $!\n" unless $sock;
 
my $new_sock = $sock->accept();
while (<$new_sock>) {
	print $_;
}
close($sock);
=cut

(a noté, la partie commenté entre =header et =cut donne exactement le résultat recherché mais sans travaillé en objet. Or, je souhaite utilisé l'objet.)

Et le Chat1.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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
package Chat1;
use strict;
 
my $nb = 0;       #variable de classe
use IO::Socket;
 
sub new {
	my ( $classe, $localHost, $localPort, $proto, $listen, $reUse ) = @_;
 
	# Vérifions la classe
	$classe = ref($classe) || $classe;
 
	# Création de la référence anonyme de hachage vide (futur objet)
	my $this = {};
 
	# Liaison de l'objet à la classe
	bless( $this, $classe );
 
	my $sock = new IO::Socket::INET(
		"localHost" => $localHost,
		"localPort" => $localPort,
		"proto"     => $proto,
		"listen"    => $listen,
		"reUse"     => $reUse,
	);
	die "Could not create socket: $!\n" unless $sock;
 
	$this->{_SOCK} = $sock;
 
	return $this;
}
 
sub afficher2 {
	my ( $this, $argument ) = @_;
 
	my $sock = $this->{_SOCK};
	unless ( defined $argument ) {
		print "Aucun argument passe\n";
	}
 
	return;
}
1;

Toutefois, quand je lance ce code, je reçois le message suivant:

Can't call method "accept" on an undefined value at Chat1.pl line 14.

C'est surement due au code que j'ai ajouté dans Chat1.pl a savoir:

Code :

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

1
2
3
4
5
my $new_sock = $Chat1::sock->accept();
while (<$new_sock>) {
	print $_;
}
close($Chat1::sock);

Mais j'ai besoin de cette partie pour garder mon prompt en mode "écoute" (CF le code commenté en bloc qui fonctionne)

Si vous pouviez me donner votre avis,
Cordialement,
Benajmin

POO en perl, l'etat de l'art

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager