perl 能同时打开多少个文件？

perl 能同时打开多少个文件？
使用以下代码在 IBM T22 Ubuntu 7.04 Feisty 上得出的结果是 1021，但我不知道这个数字是否具备通用性。如果您知道这个问题的答案，或者与此问题相关的资料，请不吝分享。

#!/usr/bin/perl

use strict;

my ($i, @fhs) = (0, qw{});
while (open my $fh, '>', "file$i") {
push @fhs, $fh;
$i++;
}

print "$i\n";

打开文件多少应该是和你的.
打开文件多少应该是和你的内存成正比的

[quote]回复给 alexru : 打开文件多少应该是和你的....[/quote]
我同意这个说法。

楼上两位真会说实话！关于.
楼上两位真会说实话！关于这个问题，可以参考这个帖子
http://www.perlmonks.org/?node_id=353515

2054----我机器配置是.
2054

我机器配置是C7 1.5G 256M+512M-64M(集成显卡占用)