[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