Listar arquivos de um diretório.

Publicado por joao felipe 17/02/2003

[ Hits: 13.314 ]

Homepage: www.motokando.com

Download listadir.pl




Este script mostra como trabalhar com listagem de arquivos, verificação de existência de tal arquivo, e outras mais, bem pequeno e resumido e de facil compreenção,

  



Esconder código-fonte

#!/bin/perl
$diretorio = "./";

opendir(diretorio, "$diretorio");
@lista = readdir(diretorio);
closedir(diretorio);

foreach $arquivo(@lista)
{
  if ($arquivo eq "senhas.pwd"){print "senhas:->"}
  if ($arquivo eq "me_pule.jfs") {next}
  print qq~$arquivo~. "\n";
}

Scripts recomendados

Script que procura uma palavra em um arquivo.

Contagem de linhas em Perl (= wc -l)

Journaling de arquivos

Conversão de textos UTF-8 para ISO8859-1

Apaga fila do Exim...


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário