Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 7.073 ]
Esse script, escrito em PERL, possibilita ao webmaster gerar uma listagem dos arquivos em um diretório, gerando a saída em uma tabela. Ele não mostra o arquivo index.pl, como padrão. Você pode alterar e implementar para que ele não mostre alguns tipos de extensões, para incrementar a segurança.
#!/usr/bin/perl ### Autor: Carcarah ### email: thenazgul@terra.com.br ### NÃO MODIFIQUEM O NOME DO AUTOR ### Script para listar o conteúdo de uma pasta e mostrá-lo em uma tabela. Gera a saída em html. use File::Listing; print "Content-type: text/html\n\n"; print "<body>\n"; &lsdir(); print "</body>\n"; exit; ############################### FUNCOES ############################## sub lsdir { my $szTotal = 0; print "<table>\n"; for(parse_dir(`ls -l .`)) { ($nome, $tipo, $sz, $mtime, $modo) = @$_; $szTotal = $szTotal + $sz; $sz = $sz / 1024; printf("<tr>\t<td>\t<a href=\"$nome\"> $nome </a></td>\r<td> %.2f (Kbytes) </td></tr>\n",$sz) if($nome ne "index.pl"); next if $tipo ne 'f'; } $szTotal = $szTotal / 1048576; print "</table>"; printf "<br>Total de arquivos : %.2f Mbytes", $szTotal; }
Remover lista de pacotes do Portage
Nenhum coment�rio foi encontrado.
Comparação entre os escalonadores BFQ e MQ-Deadline (acesso a disco) no Arch e Debian
Conciliando o uso da ZRAM e SWAP em disco na sua máquina
Servidor de Backup com Ubuntu Server 24.04 LTS, RAID e Duplicati (Dell PowerEdge T420)
Visualizar câmeras IP ONVIF no Linux sem necessidade de instalar aplicativos
Overclocking Permanente para Drastic no Miyoo Mini Plus
Problemas de chaves (/usr/share/keyrings) no Debian
Converter os repositórios Debian para o novo formato com as chaves
Rede wifi com mesmo ip da rede eth (13)
preciso saber aonde encontro pelomenos 5 mu online que tenha download ... (1)
Primeiras impressões do Debian 13 (3)