forkで作れる子プロセス数が限られている

質問

for($i=0;$i<1000;$i++) {
if($p=fork) {
next;
} elsif(defined($p)) {
sleep 10000;
exit;
} else {
print("$i\n");
<STDIN>;
}
}

数十個で子プロセスが生成されなくなります
メモリは十分あまってます
デスクトップヒープ領域が足りなくなったわけじゃなさそうです
どうすればメモリが足りる限り子プロセスを生成できるでしょうか？
windows xp avtive perl 5.8.7です。

回答No.4

guci-ok · ベストアンサー

forkと同じではないですが、Win32::Processはどうでしょう。
以下のスクリプトは100のプロセスを起動できているみたいです。

D:\@ai\@Perl\Process>test1.pl M
3780 start...
3824 start...
3664 start...
3620 start...
1124 start...

#!Perl

use Win32::Process;
use Win32;
sub ErrorReport{
print Win32::FormatMessage( Win32::GetLastError() );
}

my $param = shift;
my @proc;

if ($param eq "M") {
for (1..100) {
my $ProcessObj;
Win32::Process::Create($ProcessObj,
"C:\\Perl\\bin\\perl.exe",
"perl test1.pl",
0,
NORMAL_PRIORITY_CLASS,
".")|| die ErrorReport();
push @proc => $ProcessObj
}
} else {
print "$$ start...\n";
sleep 60;
print "$$ end\n";
}

__END__

参考URL：

C:\Perl\html\site\lib\Win32\Process.html

回答No.3

tatsu99

>具体的な解決方法はないのでしょうか？
この制約は１つのプロセスが生成出来るプロセスの上限を６４にしているところからきていると思います。
もし、この６４を他の値に変更する方法がない場合、以下の方法を採られてはいかがでしょうか。
１案、プロセスを生成するスクリプトをプロセスを複数立ち上げる。ｎプロセス立ち上げれば、ｎ×６４個生成できます。
２案、子プロセスが更に、親プロセスと同じ事（プロセスの生成）を行うようにする。

回答No.2

guci-ok

64（に近い数字）が最大です。
これは、使われているWindowsのAPIの制限です。
（今、すぐにこのAPIの名前が出てきませんが）
Perl-Win32のメーリングリストで流れていました。

補足

ありがとうございます
具体的な解決方法はないのでしょうか？

回答No.1

asuca

プロセス表の利用者のエントリ数の上限によって制限されているのではなかったかと思います。

補足

ありがとうございます。