[Cascavel-pm] Listando arquivos em um diretorio

[Eden Cardim]

On 7/3/06, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
>  Pessoal.. estou usando a seguinte forma para listar arquivos de um
> diretorio:
>
>  opendir(DIR, $caminho) or die "Can't open directory:$!";
>
>  while($arquivo = readdir(DIR))
>  {
>
>          chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";
>          print "FILE $arquivo\n";
>  }
>
>  porem
>  me imprime:
>  os arquivos e os
>  FILE .   <- (.) ponto
>  FILE ..  <- (..) dois pontos
>  do diretorio..
>
>  como faco para nao imprimir isso/??
<code>
opendir(DIR, $caminho) or die "Can't open directory:$!";

while($arquivo = readdir(DIR))
{
    next if $arquivo =~ /^\.\.?$/;  #<----Acrescente isso
#    chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";
## n entendi, pra q isso?
    print "FILE $arquivo\n";
}
</code>

ou use o módulo File::Slurp

<code>
use File::Slurp;
foreach my $arquivo () {
    print "FILE $arquivo\n";
}
</code>