[Cascavel-pm] Hash do hash :P

[Gabriel Vieira]

Opa Donato!

Valeu.. meu erro foi no S do keyS :~~~

Abração
----- Original Message ----- 
From: "Donato Azevedo" <donatoaz em gmail.com>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Thursday, February 09, 2006 10:43 AM
Subject: Re: [Cascavel-pm] Hash do hash :P


On 2/9/06, Gabriel Vieira <gabriel.vieira em gmail.com> wrote:
>
> Olá amigos,
>
> venho com  uma duvida... segue o código:
>
> <code>
> my %_Bla;
> $_Bla{13}{eu} = 1;
> $_Bla{13}{sou} = 2;
> $_Bla{13}{mais} = 3;
> $_Bla{13}{bonito} = 4;
> $_Bla{13}{do} = 5;
> $_Bla{13}{que} = 6;
> $_Bla{13}{voces} = 7;
>
> foreach my $x (each %{$_Bla{13}}){
>     print $x ."\n";
> }
> </code>
>
> Resultado:
> "bonito
> 4"
>
> eu queria que fossem impressos os keys do hash $_Bla{13} so q nao to
> conseguindo :T. Podem perceber que tentei várias formas já...
> O resultado deveria ser:
> "eu
> sou
> mais
> bonito
> do
> que
> vocês"
>
> Algum lamparina?

usa o Data::Dumper pra ver a estrutura melhor, dae voce vai perceber que:
$HASH1 = {
           '13' => {
                     'bonito' => 4,
                     'que' => 6,
                     'do' => 5,
                     'eu' => 1,
                     'voces' => 7,
                     'sou' => 2,
                     'mais' => 3
                   }
         };

logo, teria de ser:

foreach my $x (keys %{$_Bla{13}}){
    print $x ."\n";
}

--
------------------------------------------------------------------------
Donato Azevedo - UFMG - Eng Ctrl Aut
the first rule of Perl Club is you don't talk about Perl Club
Slackware user #390325
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm