Advanced Search

Return to Snippet

Revision: 41957
at February 25, 2011 10:22 by yoblob
Initial Code 
opendir(IMD, $dirtoget) || die("Cannot open directory");
@thefiles= readdir(IMD);
closedir(IMD);

print "Content-type: text/html\n\n";
print "<html><body>";

foreach $f (@thefiles)
{
 unless ( ($f eq ".") || ($f eq "..") )
 {
  print "$f<br />";
 }
}
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
list all files in dir

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
list all files in directory

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
perl

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Perl