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 ?
merci de votre aide
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;
Partager