求解文件测试

ouyangting_2000

foreach my $file (readdir DIR){
                #print "$file;\n";
                if (-f $file){
                        print "it's file\n";
                }else{
                        print "not file\n";
                        }
                }
DIR指定了我本地的盘符根目录，有文件也有文件夹，为啥判断后统一都打出了“not a file”，求解这是为啥？

cdtits

先要 opendir，使用后
opendir DIR, 'C:\perl';
...
...
closedir DIR;

午夜凋零

我这儿没问题啊。
你的DIR那句也贴出来吧。

ouyangting_2000

my $dir = "D:\\";
opendir DIR, $dir or die "Cannot open $dir: $!";

wxgiter

是不是要加上路径信息？

ouyangting_2000

回复 5# wxgiter
的确，我在变量前加上绝对路径就没问题了。

   

kk861123

缺少绝对路径

ouyangting_2000

回复 7# kk861123
有没有不加绝对路径就能实现的方法呢？

   

wxgiter

用chdir改变当前工作目录。

kk861123

ouyangting_2000 发表于 2012-06-05 16:33
回复 7# kk861123
有没有不加绝对路径就能实现的方法呢？

试试 glob