Greetings,
I�m trying to generate a tree of nested hashes [of an
arbitrary size].
Perhaps you could suggest a better solution.
Currently I'm trying to use symbolic references
according to the literature� but without much luck.
Best regards,
David
My script is as follows (for now, I�ve tried to keep
the tree as simple as possible):
#!perl
#use strict;
# Currently commented-out because of warning: "Can't
use string ("1") as a SCALAR ref".
use warnings;
use Data::Dumper;
my ($href, %Tree, $cluster_id, $split_val, $num_child,
$i, $j, $k);
$href = \%Tree;
$cluster_id = 698;
$split_val = 1;
$num_child = 2;
# For now, the above values are arbitrary
place-holders.
$i = 0;
$j = 1;
while ($i<4) {
$$i = {
ClusterNum => $cluster_id,
SplitValue => $split_val,
NumChildren=> $num_child,
Child => $$j,
# �Child� value should be a reference to the
subsequent hash.
};
if ($i==0) {
$Tree{Root} = \$$i;
next;
}
$k = ($i - 1);
$$k = \$$i;
$i = ($i + 2);
$j = ($j + 2);
}
print Dumper($href)."\n";
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free web site building tool. Try it!
http://webhosting.yahoo.com/ps/sb/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
