Listar arquivos
Publicado por Carcarah do Sertão Agreste 07/07/2004
[ Hits: 6.815 ]
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; }
Calculadora com Perl com menos de 10 linhas de código
Nenhum comentário foi encontrado.
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
HDMI não funciona no Mint 21.3 Cinnamon (1)
Removi o pacote snap e deu ruim (2)
Criar um script para testar pen drive (4)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba