Comment puis-je rendre le fichier de Perl :: Find plus rapide?

Question

J'ai un dossier nommé Lib et j'utilise le module File :: Find pour rechercher ce dossier dans le dir dir entier, D:\. Cela prend du temps pour chercher, même 5 minutes si le disque a beaucoup de sous-répertoires. Comment puis-je effectuer une recherche plus rapide de Lib pour que cela se fasse en quelques secondes?

Mon code ressemble à ceci:

find(\&Lib_files, $dir); 
    sub Lib_files 
    { 
     return unless -d; 
     if ($_=~m/^([L|l]ib(.*))/) 
     { 
      print"$_"; 
     } 
     return; 
    } 

Answer 1

Recherche sur le système de fichiers sans index est pré-existante IO lié. Sinon, les produits allant de locate à Windows Desktop Search n'existeraient pas.

Tapez D:\> dir /b/s > directory.lst et d'observer le temps nécessaire à l'exécution de cette commande. Vous ne devriez pas vous attendre à battre cela sans indexer les fichiers en premier.

Une amélioration majeure que vous pouvez faire est d'imprimer moins souvent. Une légère amélioration est de ne pas utiliser la capture entre parenthèses si vous n'allez capturer:

my @dirs; 

sub Lib_files { 
    return unless -d $File::Find::name; 
    if (/^[Ll]ib/) { 
     push @dirs, $File::Find::name; 
    } 
    return; 
} 

Sur mon système, un script simple à l'aide File::Find pour imprimer les noms de tous les sous-répertoires sous mon répertoire personnel avec environ 150 000 fichiers prend quelques minutes à courir par rapport à dir %HOME% /ad/b/s > dir.lst qui se termine en environ 20 secondes.

Je serais enclin à utiliser:

use File::Basename; 

my @dirs = grep { fileparse($_) =~ /^[Ll]ib/ } 
      split /\n/, `dir %HOME% /ad/b/s`; 

qui a terminé en moins de 15 secondes sur mon système.

S'il y a une chance il y a une autre dir.exe dans %PATH%, cmd.exe « s intégré dans dir ne sera pas invoquée. Vous pouvez utiliser qx! cmd.exe /c dir %HOME% /ad/b/s ! pour vous assurer que le droit dir est appelé.

Answer 2

Que diriez-vous de ne pas utiliser module File :: Find

use Cwd; 
sub find{ 
    my ($wdir) = shift; 
    my ($sdir) = &cwd; 
    chdir($wdir) or die "Unable to enter dir $wdir:$!\n"; 
    opendir(DIR, ".") or die "Unable to open $wdir:$!\n"; 
    foreach my $name (readdir(DIR)){ 
     next if ($name eq "."); 
     next if ($name eq ".."); 
     if (-d $name){ 
      &find($name); 
      next; 
     } 

     print $name ."\n"; 
     chdir($sdir) or die "Unable to change to dir $sdir:$!\n"; 
    } 
    closedir(DIR); 
} 
&find(".");