我需要在 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
更改后,我运行了一个测试 Perl 程序,该程序打开/创建 256 个文件并在脚本末尾关闭 256 个文件句柄。当它创建 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);
}