[Rio-pm] PATH

Ailton Zacarias ailtonzsilva em gmail.com
Quinta Fevereiro 4 20:50:31 PST 2010


Boa noite a todos,

Como faço para que o script abaixo liste o conteudo de um determinado
diretorio?


#!/usr/bin/perl
#read(STDIN, $Dados, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
print "<html><head><title>Listagem de arquivos</title></head>\n";
print "<body><h1>Listagem de Arquivos\n";

@files = glob("*.*");
foreach $file(@files){
    print "<table><td><a href=".$file.">".$file."</a></td></table>";
}
print "</body></html>\n";
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20100205/4d34ca7c/attachment.html>


Mais detalhes sobre a lista de discussão Rio-pm