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