请教高手——关于遍历目录的问题

perlearner

请教各位高手，问题如下：

遍历指定目录，找出其下的子目录并打印

我的代码：

#!/usr/local/bin/perl
use strict;
use warnings;
my $dir = '/etc';
opendir (DH,$dir) or die "Can\'t open the dir $dir!";
my @dirs = readdir DH;
closedir DH;
for my $directory (@dirs){
    print $directory,"\n" if -d $directory;
}


打印结果只有 . 和 .. ，不明白为什么，请高手指教，或者拍砖~

dgtnk

$directory存储的只是相对路径
转换成绝对路径就行了
或者切换目录到/etc下

perlearner

回复 3# mitmax


    问题解决，非常感谢楼上二位！