Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 7.052 ]
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; }
Wallpapers aleatórios no Fluxbox
Algoritmo de Euclides estendido em Perl
Verificação se utilizador existe ou não
MyBF - Interpretador de BrainFuck
Nenhum coment�rio foi encontrado.
Customizar a Instalação do Linux Debian com Preseed
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
Um modo leve de ouvir/ver áudio/vídeo da internet em máquinas pererecas
Resolver algumas mensagens de erro do SSH
Instalar módulo de segurança do Banco do Brasil Warsaw do tipo .run
Sem espaço na partição home (7)
Aprendendo mais sobre Linux com livro (6)
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (6)