[Perl] Archivos..

LA acuario6@servidor.unam.mx
Wed, 4 Jul 2001 14:53:42 -0500 (CDT)


Saludos lista.

 Estoy haciendo un programa que obtiene los archivos de un directorio.

 Lo estoy haciendo con la funcion opendir(); y readdir();

 Todos los archivos los obtengo excepto por los archivos ocultos, existe
alguna funcion?


  $mihome="/home/usuario";
  opendir(DIR,"$mihome");
   @archivos=sort(readdir(DIR));
  close(DIR);