文件测试只对当前目录下的文件有效么？

amazingjxq

#!/usr/bin/perl opendir(DIR,"/home/jxq") or die "Can't open the current directory!.\n"; @names = readdir(DIR) or die "unable to read.\n"; foreach $name (@names){     next if ($name eq ".");     next if ($name eq "..");     print $name,"\n";     if(-d $name){         print "found a directory: $name.\n";         next;     } }

如果我在/home/jxq目录下面执行的话可以，如果在别的目录下面执行则没有反应，为什么？

兰花仙子

file测试时加上全路径哦。

1. if(-d "/home/jxq/$name")

复制代码

blackold

路径不对怎么会有反应？

qshllxfx

$name 得到的是/home/jxq里面的文件夹或文件，在别的目录下测试，如果没有相同名字的文件夹，自然就不输出了，但是'.'和'..'都会输出的。

amazingjxq

原来如此阿，谢谢各位了。