Advanced Search

list all subdirectories

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

Expand | Embed | Plain Text

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.