[Cascavel-pm] Idioma muito legal!!

Luis Campos de Carvalho lechamps em terra.com.br
Quinta Maio 20 15:37:35 CDT 2004


-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

   Nelson, Solli e colegas irmaos-no-perl...

   Acho que o problema todo aqui eh falta de contexto.
   Lembrem-se de que eu estou estudando cadeias de Markov e contando 
coisas de maneira organizada.
   Dentro desta filosofia, ter uma "arvore" que retenha a contagem de 
cada objeto eh conveniente e interessante. Daí surgiu o problema todo.

   O snippet que eu enviei prezume que $top (a raiz da arvore) eh 
previamente inicializada com uma referencia para um hash table. Segue 
exemplo:

#!/usr/bin/perl
# $top eh a raiz da minha "arvore" n-aria...
$top = {count => 0};
$x = $top;
$x = $x->{$_} ||= {} for qw(a b c d e);

use Data::Dumper;
print Dumper $x;
print Dumper $top;
__END__

Que resulta em

$VAR1 = {};
$VAR1 = {
           'count' => 0,
           'a' => {
                    'b' => {
                             'c' => {
                                      'd' => {
                                               'e' => {}
                                             }
                                    }
                           }
                  }
         };

   CQD, meus caros... :-)
- --
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
   Luis Campos de Carvalho is BSc in Comp Science,
   PerlMonk [SiteDocClan], Cascavel-pm Moderator,
   Unix Sys Admin && Certified Oracle DBA
   http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQFArRayz+iwwpKRaDIRAphjAJ9ts/QZw7SCOXvzyfjwoayyVSMRggCgnTwg
dcXZLn35XxFxwwJCxUuTgx8=
=Pbsy
-----END PGP SIGNATURE-----




Mais detalhes sobre a lista de discussão Cascavel-pm