Listar arquivos [Perl]

Listar arquivos

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

[ Hits: 7.004 ]

Download listagem.pl

0 0

Denuncie Favoritos Indicar

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: 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;
}

Scripts recomendados

Algoritmo de Euclides estendido em Perl

Comentários

Nenhum comentário foi encontrado.