ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : SeR                                  2:5020/400     12 Oct 2003  23:07:13
 To : All
 Subject : fork  + SIG{CHLD}
 -------------------------------------------------------------------------------- 
 

 Вообщем имеем такую штуку
 #fork.pl
 $SIG{CHLD}= sub{print "die man\n";};
 $ppid=$$;
 $i=0;
 while($i<5){
    fork();
  if($$!=$ppid)
  {
     exit(); # a tut to my i sdohnem
   }
 else
 {$i++;}
 }
 
 Тоесть по идее когда дохнет процес порождённый fork должна выполнятся такая
 вот штука
 sub{print "die man\n";};
 А на самом деле имеем:
 serik@mate[p3]/home/serik>perl fork.pl
 serik@mate[p3]/home/serik>perl fork.pl
 serik@mate[p3]/home/serik>perl fork.pl
 die man
 die man
 serik@mate[p3]/home/serik>perl fork.pl
 serik@mate[p3]/home/serik>perl fork.pl
 serik@mate[p3]/home/serik>perl fork.pl
 die man
 die man
 die man
 die man
 
 Где грабли ???
 --- ifmail v.2.15dev5
  * Origin: NTUU "KPI" (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    fork + SIG{CHLD}   SeR   12 Oct 2003 23:07:13   Re: fork + SIG{CHLD}   Artem Chuprina   12 Oct 2003 23:47:58