Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

sub start_filter

{

  die "Cannot fork" unless defined($fpid = fork);

        unless ($fpid == 0)

        {

          close(FOR_READ);

          $oldout = select(FOR_WRITE);

              return;

        }

  close(FOR_WRITE);

  my ($out,$num) = ("",0);

  while() { $out .= "$numt$_"; $num ++; }

        close(FOR_READ);

        print $out;

        exit;

}

sub Error

{

  my ($error_text) = @_;

        select($oldout);

        kill KILL => $fpid;

        close(FOR_WRITE);

        print "Error: $error_textn";

        exit;

}

Рекомендуем скачать другие рефераты по теме: шпоры бесплатно, налоги и налогообложение.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата