怎么用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\n"; 

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