我正在尝试用 Perl 编写一个程序来查找数组中元素的数量。(这个数组应该由.txt
当前目录中带有“”扩展名的文件组成。然后我计划使用这个数组将所有“ .txt
”文件读入哈希。)但是,我一直得到一个数组大小 = 0。我知道.txt
我的目录中有超过八个“”文件,那么我不会有超过八个数组元素吗?
我的程序如下:
#!/user/bin/perl
my $readfdir = '.';
opendir(DIR, $readfdir) or die $!;
my @readf = glob(".*.txt");
my $arrSize = @readf;
print "array size = $arrSize\n";