comment on

Dear Saint Diotalevi

thank you so much for your reply,

I used the input file:

1 0 domestic_animal
2 1 dog
3 2 terrier
4 2 collie
5 3 fox_terrier
[download]

I used your code (only modified for input):

$in = "sample.txt";
open (IN, $in) or die "cant open the in\n";
#
my %dict; # A reverse index on %dict by id.
#
my %dict; # A reverse index on %dict by id.
while (not eof (IN)) {
    $line = <IN>;
    my ( $id, $parent, $term ) = split (' ', $line, 3) ;

    $dict{$id}{'id'}     = $id;
    $dict{$id}{'parent'} = $parent;
    push @{$dict{$parent}{'children'}}, $dict{$id};
}

use Data::Dumper;
print Dumper( \ %dict );
[download]

and this is what i get:

$VAR1 = {
          '4' => {
                   'parent' => '2',
                   'id' => '4'
                 },
          '1' => {
                   'parent' => '0',
                   'children' => [
                                   {
                                     'parent' => '1',
                                     'children' => [
                                                     {
                                                       'parent' => '2'
+,
                                                       'children' => [
                                                                      
+ {
                                                                      
+   'parent' => '3',
                                                                      
+   'id' => '5'
                                                                      
+ }
                                                                     ]
+,
                                                       'id' => '3'
                                                     },
                                                     $VAR1->{'4'}
                                                   ],
                                     'id' => '2'
                                   }
                                 ],
                   'id' => '1'
                 },
          '3' => $VAR1->{'1'}{'children'}[0]{'children'}[0],
          '0' => {
                   'children' => [
                                   $VAR1->{'1'}
                                 ]
                 },
          '2' => $VAR1->{'1'}{'children'}[0],
          '5' => $VAR1->{'1'}{'children'}[0]{'children'}[0]{'children'
+}[0]
        };
[download]

what I would need is a print out such that each mother term has all its descendents printed to right.

Am I doing something wrong?

Thank you very much, Ivo

In reply to Re: Re: recursive complex structure or something like that? by Isanchez
in thread recursive complex structure or something like that? by Isanchez

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks