prob avec utilisation de package

rebonjour la liste,

:cry: Je me trouve à nouveau face à un petit problème, trivial soit,

je crée un package test comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

package test;   sub new { my ($nom,$prenom,$age)=@_; my $test={}; $test->{nom}=$nom; etc...   return bless $test; } 1;

---

je l'utilise dans mon programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

use test;   sub ajout { print "Entrez le nom : ";my $nom=<STDIN>;chomp($nom); etc...   $test = new test($nom,$prenom,$age); #inscription dans un fichier open (FILE, ">>test.txt") or die "..."; printf (FILE "$test\n); close FILE; }   &

---

ce qui ne va pas c'est qu'il inscrit "HASH...." dans le fichier, pourquoi ?
dois-je faire un réferencement ? je ne sais plus vraiment comment...

d'avance merci.

ne pas tenir compte de l'erreur de frappe à :

Code:

---

printf...

---

Il faut afficher les elements de ta classe.
Il faut faire comme cela :

Code:

---

1 2 3

print $test->{nom} print ${$test}{nom}

---

donc il faut que je fasse un printf pour chaque élement de la classe ?

Autant faire un hachage !!
à quoi ca sert alors la classe ? je ne saisi pas l'interet

Citation:

---

Envoyé par martijan

Autant faire un hachage !!
à quoi ca sert alors la classe ? je ne saisi pas l'interet

---

Essaye de faire la meme chose avec un hachage provenant d'un package.
Il te faudra rajouter bon nombre lignes de code. Notamment pour l'exportation des variables.

Cependant je ne suis pas un specialiste de la POO sous perl. Mais tu dois avoir un bon nombre de possibilites quand tu approfondis l'utilisation. (Heritage, ...).

Euh... Tu as déjà essayé d'imprimer un pointeur en C ??
Il faut souvent le répèter, mais un objet en Perl est une simple référence qui sait ce qu'elle est, elle a donc quelques comportements particuliers (en particulier, elle peut avoir des "méthodes", notons d'ailleurs que si l'objet est une référence, la classe est un simple paquetage, qui peut hériter d'autres paquetages). Quand on imprime une référence dans Perl, on imprime le nom de la structure de donnée pointée par la référence, puis son adresse mémoire, pour imprimer son contenu, il faut la déréférencer, ici par exemple tu pourrais faire :

Code:

---

1 2 3

#pourquoi utilises tu printf et pas print, il n'y a pas de format dans ta string ?? print FILE "%{$test}";

---

Ca ne t'imprimera pas un truc très utile cependant, juste les couples clé valeur, dans le désordre... Pour obtenir un truc propre, il vaut effectivement mieux faire élément par élément, dans l'ordre que tu veux :

Code:

---

1 2 3 4 5 6

foreach( qw(nom prenom age) ) { print FILE $test->{$_}; # ou si tu veux imprimer aussi les clés : # print FILE "$_ : " . $test->{$_} . "\n": }

---

Evidemment, dans la programmation orientée objet, il est considéré comme préférable d'intégrer la transformation d'un objet en string dans une méthode, de façon à pouvoir la réutiliser tant qu'on veux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

package test;   sub new { my ($nom,$prenom,$age)=@_; my $test={}; $test->{nom}=$nom; etc...   return bless $test; }   sub to_string { my $self = shift; my $str = ""; foreach( qw(nom prenom age) ) { $str .= "$_ : " . $test->{$_} . "\n": } return $str; } 1;

---

puis :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

use test;   sub ajout { print "Entrez le nom : ";my $nom=<STDIN>;chomp($nom); etc...   $test = new test($nom,$prenom,$age); #inscription dans un fichier open (FILE, ">>test.txt") or die "..."; print FILE $test->to_string() ; close FILE; }

---

:D

OK merci pour les trucs

moi je ne comprends pas pourquoi il faut référencer !

quand je vois ta sub to_string(), je me rends compte que j'ai pas mal de chemin à faire...

peux-tu me la commenter ligne par ligne, stp ?
d'avance merci.

principalement :

Code:

---

1 2	foreach( qw(nom prenom age) ) { $str .= "$_ : " . $test->{$_} . "\n":

---

Citation:

---

Envoyé par martijan

principalement :

Code:

---

1 2	foreach( qw(nom prenom age) ) { $str .= "$_ : " . $test->{$_} . "\n":

---

---

en traduction romancée :roll: :

Code:

---

foreach( qw(nom prenom age) ) {

---

pour chacun des éléments suivants : nom, prenom, age

Code:

---

$str .= "$_ : " . $test->{$_} . "\n":

---

$str = $str concaténé à "$_ : " concaténé à "$test->{$_}" avec un retour à la ligne à la fin

Si par exemple, tu as ces valeurs là :
nom = TOTO
prenom = Pouet
age = 2

$str aura cette tronche là :

Code:

---

1 2 3

nom : TOTO prenom : Pouet age : 2

---

ces deux façons de procéder ci-dessous se valent :

Code:

---

foreach( qw(nom prenom age) ) {

---

Code:

---

foreach( "nom", "prenom", "age" ) {

---

qw (signifiant quote word) met juste des " " pour chaque valeur qu'il reçoit en arguments, ici nom, prenom et age.

d'accord merci.

encore une question concernant le sujet initial du message.

la destruction d'une classe sert à vider la reservation mémoire ? O/N

si je n'opérait pas de destruction, meme après l'arret du programme si je rappel ces variables, les données sont elles concervées ?

J'suis pas trop calé en programmation objet, j'aime pas vraiment ça :D

Mais tout ce que je peux te dire, c'est qu'à la fin d'un programme Perl, Perl rend la mémoire qu'il a utilisé au système d'exploitation, mais il lui est difficile de rendre la mémoire occupée par des objets consacrés via des méthodes (classes). Ceci expliquant pourquoi chaque classe doit comporter un constructeur (new) et un destructeur (destroy).

Disons que ça fait plus propre de killer les objets avant de quitter ton programme.

OK c'est clair, merci