请教opendir和readdir问题

debslash

#! /usr/bin/perl

my $dir = "/some/dir";
opendir(DIR, $dir);
while(defined(my $file = readdir(DIR))){
if(-d $file){
print $file;
}
}
closedir(DIR);

以上程序只能显示出目录当中的"."和".."这两个目录
其他目录都不认为是目录
这是什么原因？

menglianjing

[php]
#!/usr/bin/perl -w
use strict;
foreach my $file(@ARGV)
{
        print("Checking $file:");
        if(-e $file)
        {
                print("$file exists!\n");
        }
        else
        {

                if(-f $file)
                {
                        print("The file $file is:");
                        print("执行")if(-x $file);
                        print("只读")if(-r $file);
                        print("可写")if(-w $file);
                        print("\n");
                }
                elsif(-d $file)
                {
                        print("$file is a directory!\n");
                }

        }

}
[/php]
试试这吧

debslash

我的问题解决了
这么判断就可以了，用绝对路径
if(-d $dir . "/" . $file)

menglianjing好象误解了我的意思，呵呵，不过没关系
那个代码是不是第一个if改成unless啊？
要不一个判断就停了

777

最初由 debslash 发表

那个代码是不是第一个if改成unless啊？
要不一个判断就停了

我也同意，觉得那里错了。