如何用perl统计目录下的文件数

您可使用以下Perl脚本来统计目录下的文件数：

#!/usr/bin/perl

use strict;
use warnings;

my $dir = "/path/to/directory"; # 替换为您要统计的目录路径

opendir(my $dh, $dir) or die "没法打开目录: $!";
my @files = grep { -f "$dir/$_" } readdir($dh);
closedir($dh);

my $file_count = scalar @files;
print "目录 $dir 中的文件数为: $file_count
";

将/path/to/directory替换为您要统计的目录路径，然后运行以上脚本便可统计目录中的文件数。