Probleme de perf avec File::Find::name;

Version imprimable

13/07/2004, 12h36
Ludo167

Probleme de perf avec File::Find::name;

Bonjour,

j'aimerais savoir si il existe un technique ou une astuce pour ameliorer les perfs de cette commande

Code:

$FileDir = $File::Find::name;

car j'ai po mal de repertoire a analyser et cela prends plus de deux min pour finir dc j'aimerais savoir si il n'existent po un truc pour le faire plus rapidement car tres long j'entends dejà les utlisateurs oui ton soft c de la ...
po le temps d'attendre etc....

Help me....

Merci d'avance

:)

:roll: Ludo
13/07/2004, 13h12
Choupi

Donne ton code en entier stp... L'optimisation doit venir de là car les modules sont en général tres bien codés...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
for($Index1=0;$Index1<$#CXXINCLUDES_ARR+1;$Index1++)
    {
    my $SourceDir = substr($CXXINCLUDES_ARR[$Index1],2);
    ### Seek all the files in the directory give in parameter
    find(\&GetCorrectFilesNames, $SourceDir);
    @FilesDirTmp = sort @FilesDirTmp;
    push (@FilesDir,@FilesDirTmp);
    }
  my %hash;
  foreach my $e (@FilesDir) { $hash{$e}++; }
 
 
sub GetCorrectFilesNames
{
$FileDir = $File::Find::name;
if ( /.cpp/)
  {
  $FileDir = dirname($FileDir);
  push(@FilesDirTmp, $FileDir);
  }
}

je crois pas que cela vient d'ailleurs car qd je teste pas a pas il y'a un laps de temps tres long apres le Find::name dc probleme vient d'ici..

ludo

Tu es sûr que tu veux rechercher les fichiers .cpp y compris dans les sous-répertoires ? (ton commentaire laisse à penser que ce n'est pas le cas)

Essaies déjà ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 my %hash; for($Index1 = 0; $Index1 < $#CXXINCLUDES_ARR+1; $Index1++) { ### Seek all the files in the directory give in parameter find(\&GetCorrectFilesNames, substr($CXXINCLUDES_ARR[$Index1],2)); } sub GetCorrectFilesNames { if ( substr $_, -3 eq 'cpp' ) { $hash{$File::Find::dir}++; } }
Ca devrait aller (un peu) plus vite. :D

--
Jedaï

13/07/2004, 15h17
Ludo167

sinon oui oui c ce que je ve je vais tester

a tout de suite
14/07/2004, 11h23
Ludo167

ca marche pas vraiment c meme plus long sur ma machine dc merci qd meme pour ton aide!!! moiuahh ca tourne 2 min avec mon code et 2min 30 avec le tien je sais pas pourkoi je ne peux pas t'expliquer!!

Merci Ludo

:roll:
14/07/2004, 11h31
Jedai
C'est étrange, à priori mon code fait moins de choses inutiles que le tien...
Peut-être devrais tu remplacer
Code:

1 2 if ( substr $_, -3 eq 'cpp' )
par :
Code:

1 2 if ( /\.cpp/ )
dans ma solution, et revérifier. (si c'est toujours plus long, c'est que y a un phénomène étrange)

--
Jedaï