Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 7.051 ]
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;
}
Nenhum coment�rio foi encontrado.
Patrocínio
Destaques
Artigos
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Dicas
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
Tópicos
Procrastinação e autossabotagem são problemas muito comuns na sociedad... (4)
O que você está ouvindo agora? [2] (189)
warsaw parou de funcionar após atualização do sistema (solução) (10)
Top 10 do mês
-
Xerxes
1° lugar - 75.060 pts -
Fábio Berbert de Paula
2° lugar - 52.675 pts -
Daniel Lara Souza
3° lugar - 18.323 pts -
Mauricio Ferrari
4° lugar - 17.481 pts -
Buckminster
5° lugar - 14.636 pts -
Alberto Federman Neto.
6° lugar - 14.560 pts -
edps
7° lugar - 14.246 pts -
Diego Mendes Rodrigues
8° lugar - 13.110 pts -
Alessandro de Oliveira Faria (A.K.A. CABELO)
9° lugar - 12.842 pts -
Andre (pinduvoz)
10° lugar - 12.732 pts
Scripts
A maior comunidade GNU/Linux da América Latina! Artigos, dicas, tutoriais, fórum, scripts e muito mais. Ideal para quem busca auto-ajuda.
Site hospedado por:
