yoblob on 02/25/11
Last Edited at 02/25/11 10:22am
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 />"; }}
Report this snippet Tweet
Comment:
You need to login to post a comment.