Help for this page

Select Code to Download


  1. or download this
    # Find all sub-dirs of $dir
opendir DIR, $dir or die "yaddah:$!";
@subdirs = grep { -d } readdir(DIR);
  2. or download this
    use File::Find; 
find( sub { 
       -d && print $File::Find::name, "\n";
      }, 
      $dir );
  3. or download this
          -d $File::Find::name && print $File::Find::name, "\n";