您可以使用以下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替換為您要統計的目錄路徑，然后運行以上腳本即可統計目錄中的文件數。
