请教一下perl下-d 判断目录参数的问题。

vroot

我写了下面一段perl语句，为什么不能显示目录出来呢？？-d 参数不是判断一个文件是不是目录的吗？

!/usr/bin/perl
$mydir=shift(@ARGV);
opendir(DIR,$mydir);
@dir=readdir(DIR);
#print @dir;
while($line=shift(@dir)){
if(-d $line){
print $line ;
print "\n";
}
}
print "\n";

doudoudu

老兄：
        看一下你变量$line的值，它并不包括你在命令行中所输入的目录本身($mydir)；所以你-d时，它找的是当前目录下的这些文件名，它根本不存在吗，当然没法判断了，不信你用-e试试

你将程序中的if(-d $line){改为：
  if(-d $mydir .'/' . $line){

再试试看