push pop sur reference

**sone47** · 20/08/2009, 15h02

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 :

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
 
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

**Jasmine80** · 20/08/2009, 15h10

Tu dois 'déférencer' :

Code :

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

@{$ref_table_start_task}

FAQ : références

**sone47** · 20/08/2009, 15h23

Merci beaucoup,

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

Code :

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

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

**Jasmine80** · 20/08/2009, 15h37

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.