passer à un fichier suivant après match de string dans une liste de fichier

Version imprimable

Bonjour,

Je voudrais savoir comment je peux passer à un autre fichier dans une boucle if dans laquelle je demande de match un string si ce string est match il m'affiche un message sinon il passe à un autre fichier et ainsi de suite.

voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
my $word = "diffusion restreinte";
my @s = GetFilesList (cwd);
my $FilesListLength = @s;
 
	for(my $j = 0; $j <= $FilesListLength; $j++) {		
	next if(!defined $s[$j]);
 
		if($s[$j] =~ /.*\.pdf/) {
 
			my $pdf = CAM:: PDF->new($s[$j]);		
			for (my $i=1;$i<=$pdf->numPages();$i++) {
 
				my @pageNow = $pdf->getPageText($i);
				next if (!@pageNow);
 
					foreach my $file (@pageNow){
						if($file =~ m/$word/) {
 
						print $s[$j]."------> contient $word\n";
 
						}
 
					}
			}
		}
	}

merci

09/02/2018, 16h37
Andéol
Bonjour,

J'ai l'impression qu'il te faut une boucle WHILE, tout simplement.

En pseudocode, ça te donnerait quelque chose comme ça:
Code:

1 2 3 4 5 6 7 int i = 0; bool trouvé = false while (i< length(maliste) && not(trouvé)) { Si (maliste[i] match), alors {trouvé = true ; Afficher le message} sinon {i = i+1} }
A la sortie de cette boucle, si un string de maliste match, c'est le numéro i. Si aucun ne match, i vaux length(maliste)

Donc, si je comprends bien, tu ne veux examiner le fichier suivant que si tu n'as pas trouvé de correspondance dans le fichier courant. Il suffit donc de sortir de la boucle si tu as trouvé.

Peut-être quelque chose comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $word = "diffusion restreinte";
my @s = GetFilesList (cwd);
FICHIER: for my $fichier (@s) {
    next unless $fichier =~ /.*\.pdf$/);   # le .* en début de regex ne sert à rien.
    my $found = 0;
    # recherche de la chaîne
    # ...
    foreach (  ... ) {
        if ($file =~ m/$word/) {
            print $s[$j]."------> contient $word\n";
            last FICHIER; # sort de la boucle externe (celle avec le label FICHIER) si on a trouvé
        }
    }
}