请教判断目录的写法

jason680

回复 1# db2_aixer

perldoc -f readdir
               ...
               If you're planning to filetest the return values out of a
               "readdir", you'd better prepend the directory in question.
               Otherwise, because we didn't "chdir" there, it would have been
               testing the wrong file.

                   opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
                   @dots = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
                   closedir $dh;