[Perl] Leer contenido de un directorio y escribirlo en pequeños archivos

[Carmen Marcela Alegria C.]

Hola Lista,

 Tengo un directorio con un poco mas de 25 mil
archivos y es un poco complicado manejarlos. Por eso
quiero que los nombres de los archivos sean guardados
en archivos con X cantidad de lineas para procesar
dichas rutas despues.

 A esta hora se me ocurrio asi, pero se que quiza no
es la mejor forma de hacerlo.


#!/usr/bin/perl -w

 $c=1;
 $i=0;

 opendir(DIR, $ARGV[0]) or die "can't opendir
$ARGV[0]: $!";
 while (defined($file = readdir(DIR))) {
  if ( $i > 15){
   $c++;
   $i=0;
  }
  open FH, ">>./arch-$c" || die " can't open file ";
  print FH "$file\n"; 
  close FH;
  $i++;
 }
 closedir(DIR);


 Agradezco de antemano cualquier sugerencia para
mejorarlo.


Saludos,

Marcela Alegria



      ____________________________________________________________________________________
Yahoo! Deportes Beta
¡No te pierdas lo último sobre el torneo clausura 2008! Entérate aquí http://deportes.yahoo.com