Discussion :

[Ludo167]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$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




Ludo

[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...

[Ludo167]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jedai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

--
Jedaï

[Ludo167]

sinon oui oui c ce que je ve je vais tester

a tout de suite

[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

[Jedai]

C'est étrange, à priori mon code fait moins de choses inutiles que le tien...
Peut-être devrais tu remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï