Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 7.069 ]
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; }
MyBF - Interpretador de BrainFuck
Diminuir ou aumentar o brilho de notebook
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
Converter os repositórios Debian para o novo formato com as chaves
Instalando Spotify no Debian 13
Realizar overclock no Miyoo Mini (plus ou normal)
Dúvidas sobre a originalidade de conteúdos online (12)
Direcionar uma URL para Outra No Mikrotik (1)
Monitoramento pfsense com zabbix (4)
Erro na inicialização do Debian como resolver (5)
linux mint reconhece microfone de lapela como fone de ouvido sem micro... (4)