Posted By

alfirth on 05/20/11


Tagged

list subdirectories


Versions (?)

list all subdirectories


 / Published in: Perl
 

  1. local $\ = "\n";
  2. while (<./*>) {
  3. print $_ if (-d);
  4. }

Report this snippet  

You need to login to post a comment.