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:$!"; [snip] Você pode tentar também algo com glob(): chdir $arquivo; for (glob("*")) { next if -d || /^\./; print "$_\n" }