Comment faire plus simple

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:

---

$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 ?

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:

---

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ï

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

Citation:

---

pdf
doc
rtf
xls
txt
png
gif
bmp
mp3

---

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

Code:

---

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

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ï

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.

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