[Mew-dist 06919] Re: folders on DOS Filesystem

[HADA Hisakazu]

From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 06917] Re: folders on DOS Filesystem 
Date: Mon, 9 Nov 1998 12:12:48 +0900

> impath は、
> 
>     opendir(DIR, $abs_dir);      # $abs_dir = ~/Mail
>     @direntries = sort(grep(-d "$abs_dir/$_" && $_ ne '.' && $_ ne '..',
>                             readdir(DIR)));
>     closedir(DIR);
> 
> というコードで再帰的にディレクトリを読んでいますが、perl の readdir() 
> 関数が正しい値を返していないということなのでしょうか？

簡単に実験してみました。が成功してるきがする。。。。

コードは

  $data = $ARGV[0] ;
  print "open:$data\n" ;

  opendir THIS, $data or die " BUG?" ;
  @allfiles = readdir THIS ;
  foreach (@allfiles) {
    if (-d "$dir/$_") {
	print "$_ is directory\n" ;
    }
  }
  closedir THIS ;
  print "@allfiles\n" ;

というものを使いました。
 これで、普通のディレクトリも、シンボリックリンクを
FAT32に貼ったものも、ちゃんと中のエントリが取れていますし、

ちゃんとディレクトリが認識されています。

うーむ謎は深まるばかり。


-- はだひさかず

メールアドレスが変更になりました
Mail: hisakazu at example.com