难道windows下，perl的部分文件操作无效？

netherunix

求救大牛！！！为啥我Tool文件下还有其他目录，我用一下perl 代码却找不到？难道"-d" 在windows下无效？

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my $FolderPath = "E:\\Tool\\";
   
6. opendir DIR, "$FolderPath";
   
7. my @Filelist = readdir DIR;
   
8. closedir DIR;
   
9. 
   
10. foreach my $Filelist_tmp (@Filelist){
    
11.     if (-d $Filelist_tmp){
    
12.         next if $Filelist_tmp eq ".";
    
13.         next if $Filelist_tmp eq "..";
    
14.         print "$Filelist_tmp\n";
    
15.     }
    
16. }

复制代码

kejiake

#!/usr/bin/perl -w

use strict;

my $FolderPath = "E:\\Tools\\";
opendir DIR, "$FolderPath";
my @Filelist = readdir DIR;
closedir DIR;

foreach  my $Filelist_tmp (@Filelist){
    if (-d "$FolderPath\\$Filelist_tmp"){
        next if $Filelist_tmp eq ".";
        next if $Filelist_tmp eq "..";
        print "$Filelist_tmp\n";
    }
}


你少写了一点点。。。。要判断是否目录，要带上完整路径

wxlfh

请注意当前路径！呵呵，这个问题以前也曾经困扰过我一次。

有时候觉得有问题时，在使用数据前把它打印出来会是一个好主意。