[Rio-pm] PATH

Andre Luis alpbs2003 em gmail.com
Sexta Fevereiro 5 01:33:32 PST 2010


Opendir(DIR, "/tmp");
Print $file While( $file = readdir(DIR)) ;

Se eu entendi a pergunta acho q eh isso

Abs

2010/2/5, Ailton Zacarias <ailtonzsilva em gmail.com>:
> 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";
>


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