Re: [PERL] Stop af proces

[Ole Tange <sslug@sslug>]

On Mon, 16 Jul 2001, Claus Ekstroem wrote:

> On Sun, Jul 15, 2001 at 04:58:32PM +0200, Ole Tange wrote:
> 
> Jeg kan ikke få child-delen til at virke ordentligt. open fejler fordi
> outputfil ikke eksisterer på det tidspunkt, hvor open kaldes. pedipet spytter
> ikke den første linje ud ret hurtigt. Ligegyldig hvilke fiksfakserier jeg
> forsøger går der kuk i den.
> Og outputfil er en ægte fil med EOF så vil while-løkken ikke automatisk
> stoppe og ikke bare fortsætte?

Så pipe imellem processerne:

Noget ala:

$|=1;
pipe R,W;
if($pid=fork()){
  close W; 
  while(<R>) {
    kritisk($_) && kill 9, $pid;
  }
} else {
  close R;
  print W `pepipet`;
}

Alternativt overvej at bruge min template til distribueret databehandling:
http://www.sslug.dk/emailarkiv/perl/2000_06/msg00018.html som du fik
sidste år. sub next_problem skal da have noget med kritisk() i sig. sub
solve_problem skal kunne modtage en magisk værdi, der får klienten til at
dø.

/Ole
-- 
There's a good chance I'd win the suit, but I'd go broke in the process.
         -- Problemet med softwarepatenter i en nøddeskal (Bruce Perens)