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 回答日時： 2005/10/03 22:24

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__

No.3 回答者： tatsu99 回答日時： 2005/10/03 18:57

>具体的な解決方法はないのでしょうか？

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

No.2 回答者： guci-ok 回答日時： 2005/10/02 20:38

64（に近い数字）が最大です。

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

この回答への補足

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

補足日時：2005/10/03 06:32

No.1 回答者： asuca 回答日時： 2005/10/02 18:31

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

この回答への補足

ありがとうございます。

補足日時：2005/10/03 06:32