advanced code snippet search

Posted By

alfirth on 05/20/11


Tagged

list subdirectories


Versions (?)

list all subdirectories

 / Published in: Perl
 
Expand | Embed | Plain Text 
  1. local $\ = "\n";
  2. while (<./*>) {
  3. 	print $_ if (-d);
  4. }

Report this snippet  

You need to login to post a comment.