Advanced Search

Return to Snippet

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