list all subdirectories


/ Published in: Perl
Save to your folder(s)



Copy this code and paste it in your HTML
  1. local $\ = "\n";
  2. while (<./*>) {
  3. print $_ if (-d);
  4. }

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.