Sorry to bother you again, but your recent advice doesn't seem to help me. I've changed the code into this:

while (<>) {
        chomp;
        (@row) = split(/ /,$_);
        foreach $item (@row) {
                ($node,$value) = split(/->/,$item,2);
                $graph{$node} = $value;
        }
        sub depth {
                return max map { $_ and 1 + depth($graph{$_}) } @_;
                shift @_
}
        print depth(keys %graph);
        print "\n";
        @row = ();
        $graph = ""
}

[download]

, but I still get the values wrong, even if I just try it on a few lines of my infile. Here is an example of my infile (9 lines), picked at random but in a sequence: ------------------------------------ 

1->14 2->3 3->1 4->5 5->3 6->3 7->9 8->9 9->10 10->6 11->10 12->10 13-
+>10 14->0 15->14 16->15 17->18 18->15 19->18 20->19 21->14
1->2 2->0 3->5 4->5 5->6 6->2 7->2 8->7 9->2
1->2 2->0 3->4 4->2 5->7 6->7 7->4 8->7 9->8 10->2
1->2 2->0 3->2 4->3 5->7 6->5 7->11 8->7 9->7 10->9 11->4 12->11 13->1
+2 14->15 15->11 16->2
1->2 2->0 3->2
1->2 2->0 3->2 4->5 5->3 6->5 7->6 8->6 9->8 10->9 11->12 12->10 13->2
1->2 2->0 3->5 4->5 5->2 6->2 7->6 8->2
1->3 2->3 3->4 4->0 5->4 6->5 7->6 8->6 9->8 10->11 11->8 12->11 13->1
+2 14->4
1->2 2->8 3->2 4->2 5->6 6->4 7->6 8->0 9->8 10->8

[download]
--------------------------------------

Here is the output that I get:

-------------------------------------- 
9
7
6
9
9
13
10
10
7

[download]
--------------------------------------

Then, if I try the script on a separate input file, containing just those 9 lines, I get the following output:

-------------------------------------- 
7
5
5
8
8
13
10
9
6

[download]
--------------------------------------

It's confusing... Do you have any ideas?

In reply to Re^4: Tree depth by katarinahm
in thread Tree depth by katarinahm

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.