Listar arquivos

Publicado por Carcarah do Sertão Agreste 07/07/2004

[ Hits: 6.654 ]

Download listagem.pl




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.

  



Esconder código-fonte

#!/usr/bin/perl

### Autor: Carcarah
### email: [email protected]
### 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;
}

Scripts recomendados

Muda o wallpaper do X-Windows

Viva o Linux for Torsmo

Mega Sena

Audacious X-Chat Plugin

Randomize MP3


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts