Re: [PERL] Stop af proces

[Claus Ekstroem <sslug@sslug>]

Hej Ole.

> Så pipe imellem processerne:

Fik det til at virke med Peters forslag (som vist i bund og grund er det 
samme som det du foreslår her).

> $|=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ø.

Det overvejede jeg faktisk også, men følte lidt, at det var som at skyde 
gråspurve med atombomber --- jeg troede, der måtte være en simplere løsning 
(selvom den gamle løsning sådan set er simpel nok). 
Forøvrigt bliver din løsning til distribueret databehandling fra sidste år 
stadig brugt jævnligt (til at finde potentielle kromosomale regioner, 
der med stor sandsynlighed indeholde gener for sukkersyge).

Tak for hjælpen.

Mvh,

Claus