perl – 计算包含数十万个文件的目录中的文件数的最快方法

在solaris系统中处理大量文件并将其信息存储在数据库中(是的,我知道使用数据库是获取有关我们文件数量的信息的最快方法).我需要快速的方法来监视文件,因为它们在通过系统进行存储在数据库中的过程中.

目前,我使用perl脚本将目录读入数组,然后获取数组的大小并将其发送到监视脚本.不幸的是,随着我们系统的发展,这款显示器变得越来越慢.

我正在寻找一种方法,它可以更快地运行,而不是在对所有相关目录执行计数操作后每15-20秒暂停和更新一次.

我相对肯定我的瓶颈是读取目录进入数组操作.

我不需要任何有关文件的信息,我不需要大小或文件名,只需要目录中的文件数.

在我的代码中,我不计算隐藏文件或用于保存配置信息的文本文件.如果保留这个功能会很好,但肯定不是强制性的.

我已经找到了一些使用C代码计算inode的引用或类似的东西,但我在这方面不是很有经验.

我想让这台显示器尽可能实时.

我使用的perl代码如下所示：

opendir (DIR,$currentDir) or die "Cannot open directory: $!";
@files = grep ! m/^./ && ! /config_file/,readdir DIR; # skip hidden files and config files
closedir(DIR);
$count = @files;

my $count;
opendir(my $dh,$curDir) or die "opendir($curdir): $!";
while (my $de = readdir($dh)) {
  next if $de =~ /^./ or $de =~ /config_file/;
  $count++;
}
closedir($dh);