怎么实现遍历目录操作啊

wg5

急,求助:!!

deathcult

use File::Find module

terminate

use File::Find

apile

#!/usr/bin/perl
&find_dir("/";
sub find_dir(){
  local($dir) = @_;
  opendir(DIR,"$dir";
  local @files =readdir(DIR);
  closedir(DIR);
  for $file (@files){
    next if($file=~m/\./ || $file =~m/\.\./);
    next unless(-d "$dir/$file";
    print "--$dir directory $file\n";
    print "----Inside directory $dir/$file\n";
    open_dir("$dir/$file";
  }
}

不用File::Find moudle的方式...
這兒只是一個找尋所有目錄的例子...
你自己加上你要找的檔名就 ok了...

whn3375

1. it seems the last line should be like "find_dir("$dir/$file";"
2.  I tried the usual way like "&find_dir("/";", it works very well. But, if change it into "&find_dir("~whn/";" or "&find_dir("/public/home/whn/";" or anything like these, get nothing. why?


THANKS!

apile

有可能是因為無法開啟目錄造成的...
1.該目錄並不存在所以你可在
opendir(DIR,"$dir" || die "can't open !";
這樣子就可以知道有沒有成功開啟目錄
~whn/ 對於opendir而言並不認識...
2.該目錄下沒有任何其它的子目錄...
"&find_dir("/public/home/whn/";"
這個目錄下可能沒有任何目錄存在..