Discussion :

[tsuna913]

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 :

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

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

[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 :

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

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)

[Lolo78]

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 :

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

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é
        }
    }
}