I'd use several different data structures, a hash of arrays, an array, and an array of arrays. 

use strict;
my %byPid = (
       0 => [    0, 'sched' ],
       1 => [    0, '/sbin/init' ],
       7 => [    0, 'vmtasks' ],
     105 => [    1, '/usr/lib/saf/sac' ],
    7184 => [    1, '/usr/bin/java' ],
    7222 => [    1, '/usr/lib/utmpd' ],
    7501 => [ 6223, '/usr/sbin/nscd' ],
    7507 => [ 7184, '/bin/sh' ],
    7508 => [ 7507, '/usr/bin/perl' ],
    7510 => [ 5044, '/usr/bin/grep' ],
    7512 => [ 4333, '/usr/bin/egrep' ],
    7515 => [ 7508, 'sh' ],
    7516 => [ 7515, '<defunct>' ],
);
my @defunct = ( 7516 );
for my $d ( @defunct ) {
    my @layers;
    my $pid = $d;
    while( 1 ) {
        my( $parent, $cmd ) = @{ $byPid{$pid} }
            or  last;
        unshift @layers, [ $pid, $parent, $cmd ];
        last
            if  $pid == $parent;
        $pid = $parent;
    }
    printf "%6s %6s %s\n", 'PID', 'PPID', 'Cmd';
    for my $layer ( @layers ) {
        printf "%6d %6d %s\n", @$layer;
    }
    print "\n";
}
__END__
   PID   PPID Cmd
     0      0 sched
     1      0 /sbin/init
  7184      1 /usr/bin/java
  7507   7184 /bin/sh
  7508   7507 /usr/bin/perl
  7515   7508 sh
  7516   7515 <defunct>

[download]

- tye        

In reply to Re: Help parsing this data (3) by tye
in thread Help parsing this data by cspctec

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.