1. use strict;
2. use warnings;
3. use diagnostics;
4. use utf8;
5. use autodie;
6. use File::Spec;
7. use CGI::Carp 'fatalsToBrowser';
9. my $dir = "/home/dossier";
11. my @listeFichiersMem;
15. #open my $FIC1, "<", $file1 or die "Can't open $file1 for reading: $!";
16. # read all entries in the directory:
17. opendir DIR, $dir or die "Cannot open $dir $!";
18. @listeFichiersMem = grep { !/^\.\.?$/ } readdir DIR;
23. my @sorted = sort @listeFichiersMem;
25. my $size = @listeFichiersMem;
27. my $mot="pomme";
29. foreach my $File  (@sorted) {
31. #print "$File\n"; $File est le nom de fichier
33.         open my $FIC, "<", "$dir/$File" or die "!!!!Can't open $File for reading!!!!";
36. my @tab = <FIC>;
37. my $sizeTab = $#tab+1;
38. print $sizeTab; print "\n";
39. for (my $i = 0; $i < $sizeTab; $i++)
40. {
41. chomp();
42. chomp($tab[$i]);
43. chomp($mot);
45. if($tab[$i] eq $mot)
47. {
48. print "le mot $mot existe dans le fichier $File"; print "\n";
50. }
51. else
52. {
53. print "erreur";
54. }
56. }
58. }

1. #
2. # GetFilesList - Renvoie la liste des fichiers d'un repertoire (en mode recursif)
3. #
4. sub GetFilesList
5. {
6.         my $Path = $_[0];
7.         my $FileFound;
8.         my @FilesList=();
10.         # Lecture de la liste des fichiers
11.         opendir (my $FhRep, $Path)
12.                 or die "Impossible d'ouvrir le repertoire $Path\n";
13.         my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
14.         closedir ($FhRep);
16.         foreach my $FileFound (@Contenu) {
17.                 # Traitement des fichiers
18.                 if ( -f "$Path/$FileFound" ) {
19.                         push ( @FilesList, "$FileFound" );
20.                 }
21.                 # Traitement des repertoires
22.                 elsif ( -d "$Path/$FileFound" ) {
23.                         # Boucle pour lancer la recherche en mode recursif
24.                         push (@FilesList, GetFilesList("$FileFound" ) );
25.                 }
27.         }
28.         return @FilesList;
29. }
31. #
32. # Boucle principale
33. #
34. my $mot="fruit";
35. chomp($mot);
37. my @Files = GetFilesList ("/home/lenovo/Bureau/dossier" );
38. my @sorted = sort @Files;
42. LOOP1: foreach my $File  (@sorted) {
43.     open my $FIC, "<", "$dir/$File" or die "!!!!Can't open $File for reading!!!!";
45.     while (my $line = <$FIC> ) {
46.  chomp($line);
47.         if ($line =~ /$mot/) {
48.             print "$File: $line"; print "ok"; print "\n";
49.             last LOOP1;
50.         }
52.     }
53. }

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
sub GetFilesList {
     .................
}
 
my $dir = '/home/lenovo/Bureau/dossier';
my $mot = "fruit";
my @files = sort(GetFilesList($dir));
my $found = 0;
 
foreach my $file  (@files) {
    open(my $fh, "<", $file);
    while (<$fh> ) {
          if (/\b$mot\b/) {
            print "$file: $_ ok\n";
            $found = 1;
            last;
        }
    }
    close($fh);
    last if ($found);
}