• [^] # Re: perlmonks says

    Posté par . En réponse au message faire fonctioner Code sur plusieurs Fichiers se trouvant tous dans un dossier. Évalué à 0.

    salut de me torture depuis des heures mais je n'avance pas. j'ai deja essaye mais ce ne fonctione pas. je sais une chose il faut utiliser le module File::Find et la subroutine &wanted
    en voici un code permetant par exemple de retrouver tous les fichiers donc les noms commence par d et t se trouvant dans un dossier (probe) sur mon ordinanteur. mais il ne m'apporte rien car j'aimerai lasser mon code s'executer sur des milliers de fichiers se trouvant tous dans un meme dossier. Pardon quelqu'un peut-il avoir une idee?

    use strict;
use warnings;
use XML::Twig; 
use File::Find;
my $file ='\Users\ADMIN\Documents\probe';
my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult )or die ("Unable to open file $FileResult\n$!");
find(\&wanted, $file);
sub wanted {
 print $FhResult "Found it $File::Find::dir/$_\n" if /^[d or t]/i;
}