PERL : push dans un tableau ou hash Résolu/Fermé

Question

Bonjour,

Je ne comprend pas pourquoi le code ci-après me renvois des doubles dans le tableau malgrés la commande exists ...



#!/usr/bin/env perl
my $raison="";
my %tableau;

for(my $cpt=0; $cpt <= 5; $cpt++){
	$token = "token ".$cpt;
	if ($cpt == 2) { $token = "token 1"; }
	print "compteur : $cpt
";
	print "mot : $token
";
	print "hash avant : 
	@tableau";
	push @tableau, $token unless exists $tableau{$token};
	print "
";
	print "hash apres : 
	@tableau";
	print "

";
}



Résultat : 



compteur : 0
mot : token 0
hash avant : 
	
hash apres : 
	token 0

compteur : 1
mot : token 1
hash avant : 
	token 0
hash apres : 
	token 0 token 1

compteur : 2
mot : token 1
hash avant : 
	token 0 token 1
hash apres : 
	token 0 token 1 token 1

compteur : 3
mot : token 3
hash avant : 
	token 0 token 1 token 1
hash apres : 
	token 0 token 1 token 1 token 3

compteur : 4
mot : token 4
hash avant : 
	token 0 token 1 token 1 token 3
hash apres : 
	token 0 token 1 token 1 token 3 token 4

compteur : 5
mot : token 5
hash avant : 
	token 0 token 1 token 1 token 3 token 4
hash apres : 
	token 0 token 1 token 1 token 3 token 4 token 5

lami20j · Answer

Salut,

C'est à cause de if ($cpt == 2) { $token = "token 1"; }
Quand tu as "token 2" pour l'affichage il sera remplacer par "token 1".

@tableau n'est pas un hash.

En fait @ tableau contiens une liste
%tableau contiens aussi une liste, mais les éléments sont par paire.
Si tu affecte %tableau à @tableau tu ne fait que mettre une liste à plat, mais le hash est perdu.

lami20j@debian:~/trash$ cat sbouli.pl
#!/usr/bin/perl
use strict;use warnings;

my $raison="";
my %tableau;
my @tableau;

for(my $cpt=0; $cpt <= 5; $cpt++){
        my $token = "token ".$cpt;
#if ($cpt == 2) { $token = "token 1"; }
        print "compteur : $cpt
";
        print "mot : $token
";
        print "hash avant : 
	@tableau";
        push @tableau,$token unless exists  $tableau{$token};
        print "
";
        print "hash apres : 
	@tableau";
        print "

";
}
__END__
lami20j@debian:~/trash$ perl sbouli.pl
compteur : 0
mot : token 0
hash avant :

hash apres :
        token 0

compteur : 1
mot : token 1
hash avant :
        token 0
hash apres :
        token 0 token 1

compteur : 2
mot : token 2
hash avant :
        token 0 token 1
hash apres :
        token 0 token 1 token 2

compteur : 3
mot : token 3
hash avant :
        token 0 token 1 token 2
hash apres :
        token 0 token 1 token 2 token 3

compteur : 4
mot : token 4
hash avant :
        token 0 token 1 token 2 token 3
hash apres :
        token 0 token 1 token 2 token 3 token 4

compteur : 5
mot : token 5
hash avant :
        token 0 token 1 token 2 token 3 token 4
hash apres :
        token 0 token 1 token 2 token 3 token 4 token 5

P.S. Tu n'a rien à me dire?!

lami20j · Answer

Re,

alors fait comme çalami20j@debian:~/trash$ cat sbouli.pl
#!/usr/bin/perl
use strict;use warnings;

my $raison="";
my %tableau;
my @tableau;

for(my $cpt=0; $cpt <= 5; $cpt++){
        my $token = "token ".$cpt;
        if ($cpt == 2) { $token = "token 1"; }
        print "compteur : $cpt
";
        print "mot : $token
";
        print "hash avant : 
	@tableau";
        unless (exists  $tableau{$token}) {
          push @tableau,$token if $cpt!=2;
        }
        print "
";
        print "hash apres : 
	@tableau";
        print "

";
}
__END__
lami20j@debian:~/trash$ perl sbouli.pl
compteur : 0
mot : token 0
hash avant :

hash apres :
        token 0

compteur : 1
mot : token 1
hash avant :
        token 0
hash apres :
        token 0 token 1

compteur : 2
mot : token 1
hash avant :
        token 0 token 1
hash apres :
        token 0 token 1

compteur : 3
mot : token 3
hash avant :
        token 0 token 1
hash apres :
        token 0 token 1 token 3

compteur : 4
mot : token 4
hash avant :
        token 0 token 1 token 3
hash apres :
        token 0 token 1 token 3 token 4

compteur : 5
mot : token 5
hash avant :
        token 0 token 1 token 3 token 4
hash apres :
        token 0 token 1 token 3 token 4 token 5
mais c'est inutile puisque le même résultat tu l'obtiens avec#!/usr/bin/perl
use strict;use warnings;

my @tableau;

for(my $cpt=0; $cpt <= 5; $cpt++){
        my $token = "token ".$cpt;
        if ($cpt == 2) { $token = "token 1"; }
        print "compteur : $cpt
";
        print "mot : $token
";
        print "hash avant : 
	@tableau";
        push @tableau,$token if $cpt!=2;
        print "
";
        print "hash apres : 
	@tableau";
        print "

";
}
__END__

lami20j · Answer

Re,

Alors tu fait comme çalami20j@debian:~/trash$ cat sbouli.pl
#!/usr/bin/env perl
my $raison="";
my %tableau;

for(my $cpt=0; $cpt <= 5; $cpt++){
        $token = "token ".$cpt;
        if ($cpt == 2) { $token = "token 1"; }
        print "compteur : $cpt
";
        print "mot : $token
";
        print "hash avant : 
	@tableau";
        push @tableau, $token unless grep { /$token/ } @tableau;
        print "
";
        print "hash apres : 
	@tableau";
        print "

";
}
lami20j@debian:~/trash$ perl sbouli.pl
compteur : 0
mot : token 0
hash avant :

hash apres :
        token 0

compteur : 1
mot : token 1
hash avant :
        token 0
hash apres :
        token 0 token 1

compteur : 2
mot : token 1
hash avant :
        token 0 token 1
hash apres :
        token 0 token 1

compteur : 3
mot : token 3
hash avant :
        token 0 token 1
hash apres :
        token 0 token 1 token 3

compteur : 4
mot : token 4
hash avant :
        token 0 token 1 token 3
hash apres :
        token 0 token 1 token 3 token 4

compteur : 5
mot : token 5
hash avant :
        token 0 token 1 token 3 token 4
hash apres :
        token 0 token 1 token 3 token 4 token 5
je te rappelle que tu dois tester les éléments du tableau et pas celle d'un hash qui n'existe pas
pour te convaincre tu peux ajouter à la fin, après la boucle 
print scalar keys %tableau, "
"; et tu verras le résultat

La fonction grep permet de vérifier si le tableau contient déjà un token

sbouli · Answer

ok, je suis pas sûr de moi donc je poursuis, imaginons que je travail sur un hash désormais et pas sur un tableau. L'ensemble clef valeur sous la forme :

    ( 
       clef token  1 valeur 2,
       clef token  3 valeur 1,
       clef token  4 valeur 1,
       clef token  5 valeur 1
    ) 


j'imagine un truc dans ce gout là ...

#!/usr/bin/env perl
my $raison="";
my %monhash;

for(my $cpt=0; $cpt <= 5; $cpt++){
	$token = "token ".$cpt;
	if ($cpt == 2) { $token = "token 1"; }
	print "compteur : $cpt
";
	print "mot : $token
";
	print "hash avant : 
	";
	print %monhash;
if (exists $monhash{$token})  {
    $monhash{$token}++;
} else {
    push %monhash, $token
}
	print "
";
	print "hash apres : 
	";
	print %monhash;
	print "

";
}

lami20j · Answer

Re,

On ne peux pas faire push sur un hash
En revanche tu peux avoir un hash de tableau qui veut dire que pour chaque clé la valeur est un tableau anonyme
Par exemplepush @{$hash{$token}},$token

lami20j · Answer

Re,

Pour avoir une image d'un hash de tableau%hash = {
          cle1 => [ "val1", "val2"],
          cle2 => [ "a"   , "b"   ],
};

sbouli · Answer

J'ai réussi en faisant : 


if ( exists $internautes{$addr} ) {
            $internautes{$addr}[2]++;
} else {
            @$temp_internaute=($addr,$raisons{$raison},1,&datetime, "$revMsgDateStr $msgHr:$msgMin:00", 'null');
            $internautes{$clef}=$temp_internaute;
            undef $temp_internaute;}

PERL : push dans un tableau ou hash

7 réponses

Discussions similaires