Re: [PERL] Stop af proces

[Claus Ekstroem <sslug@sslug>]

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?

> } else {
> 	open(PP_OUTPUT,"<outputfil") || die;
> 	$|=1;
> 	while(<PP_OUTPUT>) {
> 	  if (kritisk($_) == 1) {
>              # nak processen, der beregner. Hvis 9 ikke virker, så
>              # prøv 15 eller 2.
> 	     kill 9, $pid;
> 	     last;
>           }
>         }
> }

Mvh,

Claus