Accès à un tableau dans un objet.

Un problème tout simple pour un programmeur perl chevronné, mais j'ai cherché et je ne trouve pas, et ça ne s'execute pas comme il faut.

J'ai 2 classes quasiment similaire.

une classe grille qui possède deux attributs une chaine de caractère et un tableau de 2 éléments.
le tableau {M} est construit comme suit

Code:

---

1 2 3 4 5 6 7 8

$i=0; foreach $tab (@grilletab) { ($x,$y)= ($tab =~ m/^\n*(.+)\s*-\s*(.+)/ ); $this->{M}[$i]=[$x,$y]; $i++; }

---

et

une classe prono qui possède deux attributs une chaine de caractère et un tableau de 2 éléments.
le tableau {M} est construit comme suit

Code:

---

1 2 3 4 5 6 7 8

$i=0; foreach $tab (@pronotab) { ($x,$y,$a,$b)= ($tab =~ m/^\n*(.+)\s*-\s*(.+)\s*(\d+)\s*[-\/]\s*(\d+)/ );   $this->{M}[$i]=[$x,$y,$a,$b]; $i++; }

---

A priori ne pause pas de problème car je retrouve mes tout mes petits.
Dans mon programme principale avec une instance de la classe grille et une liste de la classe prono. Aucun problème.

J'arrive à parcourir la liste de prono et à récupérer toutes les valeurs.
Mais je voudrais indépendament récuperer le tableau M de la dernier case de la liste de prono comme un tableau , et récupérer le tableau M de la grille comme un tableau mais je n'y arrive pas


J'ai essayé :

Code:

---

my @tabgrille = @{$grille->{M}};

---

==> mais dans dans $tabgrille[0], j'ai un ARRAY et dans $tabgrille[1] je n'ai rien.

Code:

---

my @tabresult = $listprono[-1]->{M};

---

==> ça je sais que c'est faux.

Je voudrais parcourir ensuite ces 2 tableaux. Si quelqu'un pouvait me guider pour ce point précis pour récuperer, sous formede tableau, un tableau dans un objet.

Merci

Les balises CODE sont dans le signe dièse placé à l'extrême droite de la seconde barre d'outils juste au dessus de la fenêtre où tu écris ton message.

Je ne connais pas bien l'orienté objet mais cela ressemble à un hash de array. Essaie un peu.

Code:

---

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

# tableau contenant la totalité des valeurs my @tabgrille; for (my $i = 0; $i< @{$grille->{M}}; $i++){ push (@tabgrille , @{$grille->{M}[$i]}); }   # affichage map {print "$_\n"} @tabgrille;     # tableau contenant les valeur du dernier index my @tabresult = @{$listprono->{M}[-1]};   # affichage map {print "$_\n"} @tabresult;

---

C'est effectivement un hash contenant un tableau dans les 2 cas, et une chaine de caractère qui ne m'embete pas!!!

Il n'y pas moyen de récuperer les dits tableaux dans les hash correspondantes en utilisant des références ou je ne sais quoi???

Ce qui est étrange.... c'est que j'arrive parfaitement à récuperer les champs du tableau de prono quand je parcours la liste des prono avec un foreach puis et chaque tableau avec un foreach!!!?

Citation:

---

C'est effectivement un hash contenant un tableau dans les 2 cas, et une chaine de caractère qui ne m'embete pas!!!

Il n'y pas moyen de récuperer les dits tableaux dans les hash correspondantes en utilisant des références ou je ne sais quoi???

---

Tu voudrais supprimer le premier foreach et faire quelque chose sur une seule ligne du genre
my @tabgrille = 'ref vers tous les index de @{$grille->{M}}';
... je ne pense pas que cela soit possible

Tu peux par contre remplacer

Code:

---

1 2 3 4

for (my $i = 0; $i< @{$obj1->{M}}; $i++){   push (@tabgrille , @{$obj1->{M}[$i]}) }

---

par

Code:

---

map {push (@tabgrille , @{$_});} @{$obj1->{M}};

---

Citation:

---

Ce qui est étrange.... c'est que j'arrive parfaitement à récuperer les champs du tableau de prono quand je parcours la liste des prono avec un foreach puis et chaque tableau avec un foreach!!!?

---

Qu'y a-t'il d'étrange à cela?

Je trouve étrange que qu'en parcourtant la liste de prono, @listprono, avec un foreach, et en récupérant à chaque fois la variable de parcours, et en la "castant" dans un tableau, j'accède à tout les champs.
par exemple :

Code:

---

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

foreach $ligneprono (@listprono) { @Tabprono = @($ligneprono);   ..   foreach $ {     }   }

---

Alors qu'en essayant "d'attaquer" un indice particulier ou juste une instance, le comportement me semble différent.

Si l'écriture sans index te dérange

Code:

---

1 2 3 4

foreach $ligneprono (@listprono) { my @Tabprono = @{$ligneprono}; }

---

cela revient au même de faire

Code:

---

1 2 3

for (my $i = 0; $i< @listprono; $i++){ my @Tabprono = @{$ligneprono[$i]}; }

---

Code:

---

foreach $ligneprono (@listprono)

---

tu places dans $ligneprono les valeurs de @listprono.

Code:

---

for (my $i = 0; $i< @listprono; $i++)

---

tu parcours un à un les index de @listprono et tu accèdes aux valeurs via $listprono[$i]

ok merci!

J'ai rajouté une petite explication afin que tu comprennes mieux

Code:

---

foreach $ligneprono (@listprono)

---

tu places dans $ligneprono les valeurs de @listprono.

Code:

---

for (my $i = 0; $i< @listprono; $i++)

---

tu parcours un à un les index de @listprono et tu accèdes aux valeurs via $listprono[$i]

Citation:

---

Envoyé par Jasmine80

Les balises CODE sont dans le signe dièse placé à l'extrême droite de la seconde barre d'outils juste au dessus de la fenêtre où tu écris ton message.

Je ne connais pas bien l'orienté objet mais cela ressemble à un hash de array. Essaie un peu.

Code:

---

1 2 3 4 5 6 7 8

# tableau contenant la totalité des valeurs my @tabgrille; for (my $i = 0; $i< @{$grille->{M}}; $i++){ push (@tabgrille , @{$grille->{M}[$i]}); }   # affichage map {print "$_\n"} @tabgrille;

---

---

j'arrive à récupérer la bonne valeur dans $tabgrille[0], mais $tabgrille[1] est vide.

Citation:

---

Envoyé par Jasmine80

Code:

---

1 2 3 4 5 6

# tableau contenant les valeur du dernier index my @tabresult = @{$listprono->{M}[-1]};   # affichage map {print "$_\n"} @tabresult;

---

---

ça n'a pas l'air de marcher.

Je vais faire des tests complémentaires demain.

Je débute en OO. J'avais crée



Val_obj.pm

Code:

---

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

#!/usr/bin/perl       #------------- Val_obj.pm ----------------#   use strict; use warnings;   package Val_obj;     sub new { my ($class, $name) = @_; my $self = {}; $self->{M}[0]=['a b c d', 'e f g h', 'i j k l']; $self->{M}[1]=['1 2 3', '4 5 6', '7 8 9']; bless ($self, $class); return $self; }         1;

---

Val_obj.pl

Code:

---

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

#!/usr/bin/perl   use strict; use warnings;   use Val_obj;     my $obj1 = Val_obj->new ("Test1");     # tableau contenant la totalité des valeurs my @tabgrille;   for (my $i = 0; $i< @{$obj1->{M}}; $i++){   push (@tabgrille , @{$obj1->{M}[$i]}) }   map {push (@tabgrille , @{$_});} @{$obj1->{M}};   # affichage map {print "$_\n"} @tabgrille;   print "\n\n";   # tableau contenant les valeur du dernier index my @tabresult = @{$obj1->{M}[-1]};   # affichage map {print "$_\n"} @tabresult;

---

Cela fonctionnait ... adapte les à ton cas