小编use*_*373的帖子

我是Perl和Linux的新手.我试图在Perl中编写一个程序来查找数组中的元素数.(这个数组应该由当前目录中扩展名为".txt"的文件组成.然后我计划使用这个数组将所有".txt"文件读入一个哈希值.)但是,我不断得到一个数组大小= 0.我知道我的目录中有超过8个".txt"文件,所以我不会有超过8个数组元素吗？

我的计划如下:

    #!/user/bin/perl
    my $readfdir = '.';
    opendir(DIR, $readfdir) or die $!;
    my @readf = glob(".*.txt");
    my $arrSize = @readf;
    print "array size = $arrSize\n";

请指导我做错了什么.谢谢!