push pop sur reference

Bonjour a tous,

Petit probleme en Perl avec les functions push/pop, qui s'effectuent sur une table.
J'ai une fonction qui doit recevoir un tableau et dans laquelle je dois faire un push/pop:

Code:

---

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

sub func_tasks{ my $task = $_[0]; my $flag_task = $_[1]; my $ref_table_task = $_[2]; my $ref_table_start_task = $_[2]; my $ref_trace_param = $_[4]; my $temp; if ($flag_task == 4) { push(??ref_table_start_task, $task); } elsif ($flag_task == 5) { $temp = pop(??ref_table_start_task); print "\r\n o task : $temp\r\n"; } }

---

Le probleme est que ma reference n'est pas une table mais une reference..
Comment proceder sans faire une copie locale de ma table d'origine ?
N'y a t il pas une autre fonction permettant de faire ce push/pop ?

Merci beaucoup d'avance,

cdlt

Tu dois 'déférencer' :

Code:

---

@{$ref_table_start_task}

---

FAQ : références

Merci beaucoup,

Le problème est résolu j'ai utilisé:

Code:

---

1 2	pop (@{$xxxxx})

---

Je connaissais le déférencement via la deuxieme méthode,
Dans ce cas la (utilisation de pop/push), on ne peut utiliser que la premiere methode alors ?

${$ref_tableau}[0] --> pop(@{$ref_tableau})
$ref_tableau->[0] --> pop(@ref_tableau??)

Merci beaucoup

Citation:

---

Envoyé par sone47

Dans ce cas la (utilisation de pop/push), on ne peut utiliser que la premiere methode alors ?

${$ref_tableau}[0] --> pop(@{$ref_tableau})
$ref_tableau->[0] --> pop(@ref_tableau??)

---

Exactement, la seconde méthode est incorrecte.

Ok merci beaucoup !

De rien, si tu veux en savoir plus, voici un site très bien fait au sujet des tableaux et des références : lien.