ru.perl
- RU.PERL ----------------------------------------------------------------------
From : max a sazonoff 2:5004/8.65 05 Oct 2000 01:08:59
To : All
Subject : fork & wait
--------------------------------------------------------------------------------
хм. где я не прав, или почему остаются зомби?
после некоторого времени при выполнении нижеприведенной программы у меня
начинаются копиться зомби. и в конце концов все доходит до того, что новые форки
вообще не создаются... а должно быть всегда 20 работающих форков....
спрашивается кто виноват и что делать?
#!/usr/bin/perl
$SIG{CHLD} = \&kc;
sub kc {
wait;
$SIG{CHLD} = \&kc;
$i--;
}
srand;
$i=0;
while (1) {
$pid = fork;
die "Couldn't fork: $!" unless defined($pid);
if ($pid == 0) {
sleep(rand(20));
exit;
}
else {
$i++;
if ($i>20) {
sleep(50);
}
}
}
best regards, max a sazonoff. icq#19373869
--- GoldED+/386 1.0.0
* Origin: lucyfer's home (2:5004/8.65)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
