Salut,

je dois essayer de comprendre un code perl
mais il y a certaines element que je ne capte pas, et dont je ne peux trouver d explication sur google :

je ne comprend aps le next if ! :sa veut dire que si la ligne est vide on passe a la suivante ?
cela signifie next if ! -s "$path/$x ???
next if ! $line ?
/^CB$/io && do { : cela signifie que si on trouve CB dans la ligne alors on entre dans la boucle, mais que signifie le /io ??i c est pour la casse et o ?
le last veut dire qu'on sort du foreach et qu on traite l'autre element du tableau ?

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
27
28
29
30
31
32
33
34
35
 
opendir REP, "$path";
 
	foreach my $x (sort grep /$v/o, readdir REP) {
 
		next if ! $x;
		next if ! -s "$path/$x";
 
 
		open OFF, "$path/$x" ;
		while ( my $line = <OFF> ) {
 
 
			next if ! $line;
 
			foreach ($tab{lie})  {
				/^CB$/io && do {
					$res  = fonca ( %tab );
					last;
				};
 
				/^MASTER$/io && do {
					$res = foncb ( %tab );
					last;
				};
 
			}
 
 
		}
 
		close OFF;
 
	}
	closedir REP;
merci de votre aide