Perl スクリプトで 10,000 を超えるファイルを開く必要があるため、システム管理者にアカウントの制限を 14,000 に変更するよう依頼しました。ulimit -a
次の設定が表示されます。
core file size (blocks, -c) unlimited
data seg size (kbytes, -d) unlimited
file size (blocks, -f) unlimited
open files (-n) 14000
pipe size (512 bytes, -p) 10
stack size (kbytes, -s) 8192
cpu time (seconds, -t) unlimited
max user processes (-u) 29995
virtual memory (kbytes, -v) unlimited
変更後、256 個のファイルを開いたり作成したり、スクリプトの最後で 256 個のファイル ハンドルを閉じたりするテスト Perl プログラムを実行しました。253 個のファイルを作成すると、開いているファイルが多すぎると言ってプログラムが終了します。このエラーが発生する理由がわかりません。
Solaris 10 プラットフォームで作業しています。これは私のコードです
my @list;
my $filename = "test";
for ($i = 256; $i >= 0; $i--) {
print "$i " . "\n";
$filename = "test" . "$i";
if (open my $in, ">", ${filename}) {
push @list, $in;
print $in $filename . "\n";
}
else {
warn "Could not open file '$filename'. $!";
die;
}
}
for ($i = 256; $i >= 0; $i--) {
my $retVal = pop @list;
print $retVal . "\n";
close($retVal);
}