list all subdirectories - Perl Snipplr Social Repository

Revision: 46480

at May 20, 2011 11:20 by alfirth

Initial Code

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

Initial URL

Initial Description

Initial Title

list all subdirectories

Initial Tags

list

Initial Language

Perl