Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.931 ]
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
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Dicas
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tópicos
Top 10 do mês
-
Xerxes
1° lugar - 68.822 pts -
Fábio Berbert de Paula
2° lugar - 51.041 pts -
Renato Michnik de Carvalho
3° lugar - 27.320 pts -
Buckminster
4° lugar - 17.636 pts -
Mauricio Ferrari
5° lugar - 15.318 pts -
Alberto Federman Neto.
6° lugar - 14.720 pts -
Diego Mendes Rodrigues
7° lugar - 13.915 pts -
Daniel Lara Souza
8° lugar - 13.867 pts -
edps
9° lugar - 11.989 pts -
Alessandro de Oliveira Faria (A.K.A. CABELO)
10° lugar - 11.632 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:
