[SP-pm] hash de hash

[Hernan Lopes]

vc se refere a estrutura de dados.
um hash é "chave --> valor" ( onde valor pode ser qualquer coisa)
array é uma lista de coisas.. pode ser uma lista de itens de compra, ou uma
lista de hash, etc

my $hash_frutas_cores = {
    banana => 'amarelo',
    abacate => 'verde',
    mamao => 'laranja',
};

my @lista_frutas = (
    'banana',
    'abacate',
    'mamao',
);

foreach my $fruta ( @lista_frutas ) {
    print "\nA cor da frutinha $fruta é: " . $hash_frutas_cores->{ $fruta }
;
}
print "\nhmm... frutinha....";


vc precisa aprender sobre scalars..
veja dois exemplos de array:

A. exemplo array1:

my @lista_frutas = (
    'banana',
    'abacate',
    'mamao',
);
foreach my $item ( @lista_frutas ) {
    print $item;
}

B. exemplo array2:
my $lista_frutas = [
    'banana2',
    'abacate2',
    'mamao2',
];
foreach my $item ( @{ $lista_frutas } ) {
    print $item;
}


Agora, 2 exemplos de hash:

A. exemplo de hash
my $hash_item = {
    banana => 'amarela',
    laranja => 'laranja',
};
foreach my $key ( keys %{ $hash_item } ) {
   print $hash_item->{ $key };
}


B. outro exemplo de hash:
my %hash_item = (
    banana => 'amarela',
    laranja => 'laranja',
);
foreach my $key ( keys %hash_item ) {
   print "\n" . %hash_item{ $key };
}


2011/6/9 Teddy Hammer <teddyhammer at hotmail.com>

>  Ae povo, blz?
> Tava olhando uns exemplo que baixei da net sobre hash de hash, array de
> hash. Complicado de visualizar a coisa heim!!!
> Num tem nada mais facil pra entender isso?
>
> =begin disclaimer
>   Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110609/3e901696/attachment-0001.html>