Discussion :

[mobscene]

Bonjour je bosse un script qui scanne un disque dur et en ressort les chemins e divers type de fichiers , mais j'ai un probléme depuis que j'ai ajouté cette ligne

Code :

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

$path !~ s/(.*)(pdf|doc|rtf|xls|txt|png|gif|bmp|mp3)$//gi;

le " scanner " a pas mal ralentit.

J'ai entendue parlé de Regexp::Assemble pour optimiser les regxp seulement j'arrive pas a l'utiliser dans ma situation .

ma question est donc simple comment optimiser tout cela ?

[Jedai]

Quel est exactement ton but ? Vider $path lorsqu'il finit par pdf ou doc ou ... ?
Est-ce vraiment une substitution dont tu as besoin, si oui, ce code fera aussi bien l'affaire, et plus rapidement :

Code :

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

1
2
 
$path = "" if $path =~ m/(?:pdf|doc|rtf|xls|txt|png|gif|bmp|mp3)$/io;

Mais est-ce vraiment ce que tu veux faire ?

--
Jedaï

[mobscene]

Ben en fait $path contient le chemin de chaque fichier trouver , et je voudrais garder que les fichiers dont l'extension est :

pdf
doc
rtf
xls
txt
png
gif
bmp
mp3

J'ai un peu fouiller le forum et j'ai trouvé ce script

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
use Regexp::Assemble; 
{ # scope pour rendre $re 'statique' 
  my $re;
  sub allow
   {
    if( not $re ) { 
        my $r = Regexp::Assemble->new;
        $r->add( "\\.$_\$" ) for 
            qw/ pdf doc rtf xls txt png gif bmp mp3 /; 
        $re = $r->re; 
    } 
 
    return grep { /$re/ } @_;
  } 
}

Mais sa marche pas !
pourtant j'ai fait @lyze = $path; puis @lyze=allow(@lyze);

pour info j'utilise activeperl 5.8.7.813

[Jedai]

Mais montre donc le contenu de $path ! C'est un tableau ? Une chaîne où les fichiers sont séparés par des virgules ou autre séparateurs ?
Montre un peu le reste du code.

--
Jedaï

[vic]

C'est probablement le (.*) qui ralentit.
Tu peux aussi utiliser simplement substring dans ce cas probablement, il faudrait voir le reste du code pour être sur.

[shinux2004]

Ata , si tu fait @?? = $path; sa veut dire que $path est une variable qui a plusieur valeur en clair dans ton script il y a un moment ou tu fait

print "$path\n";

je me trompe ?

Le script que que a trouvé est très bien mais il faudrais l'adapter en contexte scalaire ou bien ne plus en faire un prgramme pour l'incrusté dans ton programme

le (.*) prend trop de temps