Hello, I have inherited this code and am having trouble understanding whats going on.. If it makes sense to some one then please let me know. Thanks in advance, Oz ********************************************************* 
 
foreach $datdir (@dates)
       {
        $fullpath = (join ('',$ypath, $datdir));
        $fulltmp = (join ('', $ytmp, $datdir));
    my $pid = fork();
    if ($pid == 0)
      {
        $what = `rsh $yte ls -ld $fullpath`;
        if ($what =~/\S/)
          {
        $what2 = `rsh $yte mkdir -p $fulltmp`;
        if ($what2 !~/\S/)
            {
          exit 1;
        }
          }
        exit 0;
      }
    $paths{$pid} = $fullpath;
    $njobs++;
    while ($njobs >= $maxnjobs)
      {
        $waitpid = wait();
        if ($?)
          {
        push(@vdates, $paths{$waitpid});
          }
        $njobs--;
      }
      }
    while ($njobs > 0)
      {
    $waitpid = wait();
    if ($?)
      {
        push(@vdates, $paths{$waitpid});
      }
    $njobs--;
      }
    my @sorteddates = sort(@vdates);
    return(@sorteddates);

[download]

Edit kudra, 2002-05-01 Added 'forking' info to title per ntc request

In reply to Need help understanding legacy code with forking (was : SOS) by perl_virgin

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.