SPUG: getting a list of directories

[Mark Mertel]

On Thu, 20 Jan 2000, Todd Wells wrote:
> I'd like to get a list of directory names (and only directory names) in
> /usr/myapp.  What's the best way to go about this?  I wish the cookbook had
> a recipe for this.  I see that readdir specifically excludes directory
> names.
> 
> -Todd


@files=<*>;
for $file (@files) {
	print $file."\n" if -d $file;
}


mmertel at ix.netcom.com

 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    POST TO: spug-list at pm.org        PROBLEMS: owner-spug-list at pm.org
 Seattle Perl Users Group (SPUG) Home Page: http://www.halcyon.com/spug/
 SUBSCRIBE/UNSUBSCRIBE: Replace ACTION below by subscribe or unsubscribe
        Email to majordomo at pm.org: ACTION spug-list your_address