aide pour explication synthaxe perl
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:
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
