Re: [PERL] Stop af proces

[Ole Tange <sslug@sslug>]

On Sun, 15 Jul 2001, Claus Ekstroem wrote:

> sub RunAnalysis {
>     $file = shift;
>     $nPerm = shift;

if(not ($pid=fork())) {

>     # Simulationsprogrammet hedder pedipet
>     open(PP, "| pedipet ") || die "HOV! STOP!";
>     print PP "import\n";
>     print PP "$file\n";
>     # Lav en enkelt udregning
>     print PP "mixture\n";
> 
>     # Så starter simulationerne
>     for (my $i= 0; $i<$nPerm; $i++) {
>         # Simuler nye data
> 	print PP "sim geno 0\n";
>         # Idregn resultat
> 	print PP "mixture\n";
>     }
>     print PP "quit\n";
>     close(PP) || die "Problemer med pipen";

} 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;
          }
        }
}

kritisk() skal nu tage beslutningen på ud fra een linje. Husk også at
sætte $|=1 i pedipet, så den flusher alle output til outputfil.


/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)