Boa noite a todos,<br><br>Como faço para que o script abaixo liste o conteudo de um determinado diretorio?<br><br><br>#!/usr/bin/perl<br>#read(STDIN, $Dados, $ENV{'CONTENT_LENGTH'});<br>print "Content-type: text/html\n\n";<br>
print "<html><head><title>Listagem de arquivos</title></head>\n";<br>print "<body><h1>Listagem de Arquivos\n";<br><br>@files = glob("*.*");<br>foreach $file(@files){<br>
print "<table><td><a href=".$file.">".$file."</a></td></table>";<br>}<br>print "</body></html>\n";<br><br><br><br>