Question : perl list of directories

How can I get the list of directories?

I basically need to execute script2 for each directory so that my script ends up executing the following commands:

script1.plL
perl script2.pl dir1
perl script2.pl dir2
perl script2.pl dir3
Code Snippet: 
1:
2:
3:
4:
5:
6:
7:
8:

# here is how i'm attempting to get the list of directories however this is recursive and I only want # the list of directories in the specified
# i tried setting  no_chdir to 0 but it didn't help
 
my @folders;
 
find sub{
	push @folders, "$File::Find::name" if (-d $File::Find::name);
},$path;
Open in New Window Select All

Answer : perl list of directories

@folders = grep -d,<*>; #is a list of folders in the current directory
Random Solutions  
 
programming4us programming4us