Discussion :

[sohnic]

Bonjour,
Je cherche a comprendre le fonctionnement objet sous perl. J'arrive bien a recuperer les variables simples, mais pas les tableaux.

J'ai une classe, qui a l'air de faire le travail demandé :

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
 
#fichier explore_bl2seq.pm
package explore_bl2seq;
use strict;
sub explore
{
	my($class,$file)=@_;
	my $this={};
	bless($this,$class);
	my @tab;
	my $i;
	for($i=0;$i<10;$i++)
	{
		push(@tab,($i*11));
 
	}
	#print @tab; #renvoie bien toutes les valeurs du tableau
	$this->{FILEINI}=$file;
	$this->{FILEMODIF}=$file."truc";
	$this->{TABLEAU}=@tab;
	return $this;
}
1;

Et le script qui l'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
use strict;
use explore_bl2seq;
my $ficini;
my $ficmodif;
my @tableau;
my $f;
my $expl=explore_bl2seq->explore('fichier_blast');
$ficini=$expl->{FILEINI};
$ficmodif=$expl->{FILEMODIF};
@tableau=$expl->{TABLEAU};
print $ficini."\n".$ficmodif."\n"; #renvoie les valeurs attendues
print @tableau; #renvoie...10 (???!!)

Le probleme est que le script ne recupere pas le tableau, mais la valeur 10 (le nb d'elements du tableau) !

Qu'est-ce que je fais mal ?

Merci pour votre aide,
Sohnic

[Mr6]

mets plutôt ca :

Code :

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

1
2
 
$this->{TABLEAU}="@tab";

[sohnic]

Ben, ca j'aurais jamais trouvé toute seule !!
Mille mercis, c'est exactement ce que je voulais !!
Sohnic

[Jedai]

mets plutôt ca :

Code :

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

1
2
 
$this->{TABLEAU}="@tab";

Pas vraiment... parce que là ça va bien se passer tant que tu veux l'afficher (avec print), mais si tu essaies de récupérer un élément du tableau en particulier, ça ne va pas marcher du tout : en effet avec cette affectation, tu transforme @tab en string avant d'affecter cette string à $this->{TABLEAU}, ensuite quand tu le récupère, tu ne récupère en fait qu'une simple string, @tableau n'a donc qu'un seul élément, cette string. Comme dans ton cas tu ne fait qu'afficher @tableau, tu ne t'en aperçois pas, mais le problème demeure et risque d'émerger si tu modifies ton script.

La façon correcte de faire ça est d'utiliser des références sur @tab ("perldoc perlreftut" pour une explication pédagogique du concept et de la syntaxe afférente). Par ailleurs utiliser directement des accès hashs alors que tu utilises un objet pour abstraire ton code de l'implémentation n'est probablement pas une bonne idée... Si tu as vraiment la flemme de faire des getters/setters, tu peux utiliser des modules comme Class::Accessor qui le feront pour toi.

--
Jedaï

[sohnic]

Merci pour la subtilité ! Tu reponds du coup a mon interrogation : pourquoi le print @tab donne un resultat sans espaces si le print est dans la classe (vrai tableau) et avec espaces si le print est dans le script principal (donc une "vulgaire" chaine).

Dans l'absolu, je peux redecouper la chaine, mais si j'ai fais un tableau, c'etait pour me servir... d'un tableau.

Je vais donc regarder de plus pres les liens que tu me proposes. Je te tiens au courant.

Encore merci,
Sohnic

[Woufeil]

Juste pour info, c'est tout à fait normal que le script retourne le nombre d'élément et non le tableau lui même.
Je m'explique : en fait, c'est le module qui est mal définit : @tab est bien un tableau (on s'en serait pas douté ), si on l'affiche on affiche donc tous ces éléments. Mais le problème viens du fait qu'une table de hachage ne contient que des SCALAIRES ! L'affectation $this->{TABLEAU}=@tab; est donc évaluée en contexte scalaire, et @tab donc son nombre d'élément.

Comment faire pour faire une table de hachage contenant des tableaux ? En utilisant les références, qui elles sont des scalaires.
Dans le module, il aurait fallu écrire :

Code :

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

$this->{TABLEAU}=\@tab; #stocke une référence vers le tableau

Pour afficher les éléments de ce tableau, il suffit de faire :

Code :

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

1
2
my $reftab = $expl->{TABLEAU}; #stocke la référence vers le tableau
print @$reftab;

#déréférence $reftab : on accède donc au tableau

Voilou, en éspérant ne pas avoir trop mal expliqué

[Mr6]

mets plutôt ca :

Code :

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

1
2
 
$this->{TABLEAU}="@tab";

Pas vraiment...

Rôôôôôh !!!!! Honte à moi, j'ai vraiment pas les yeux en face des trous moi en ce moment... dsl de t'avoir trompé sur la marchandise sohnic

@+
Mr6

[sohnic]

Vous etes des as !!
Effectivement, hier je me suis penchée sur les liens de Jedai et ca m'a rappelé quelques cauchemars (genre pointeurs en C), mais ca semblait etre la bonne voie. Mais j'ai eu du mal a comprendre.

Et Woufeil est arrivé (tel Zorro), et tu peux etre rassuré, tu es un excellent professeur !

quant a Mr6, ton idée n'est pas si mauvaise, bien que non appropriée dans mon cas. En tout cas, j'aurais fait avec faute de mieux et comme je l'ai dit precedemment, je n'en aurais pas eu l'idée moi-meme.

Mille mercis a vous trois, vous m'avez, non seulement fait gagner du temps, mais appris de bien meilleure façon que tout tutorial comment passer ce type de propriétes.

Sohnic