Discussion :

[cantoprod]

bonjour à tous,
je souhaiterais que cette boucle, si l'occurrence n'est pas trouvée, redémarre après un sleep de x secondes.
Sauriez-vous comment faire ?
Merci !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
while (1) {
 
foreach $line (@LogFichierPosition) {
if ($line =~ /TOTO/) {
		print "c'est demarre";
}
else {
		print "ce n'est pas demarre";
	}
}
}

[djibril]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
while (1) {
  foreach $line (@LogFichierPosition) {
    if ($line =~ /TOTO/) {
      print "c'est demarre";
    }
    else {
      print "ce n'est pas demarre";
      sleep 5; # Dort 5 secondes
    }
  }
}

[cantoprod]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
while (1) {
  foreach $line (@LogFichierPosition) {
    if ($line =~ /TOTO/) {
      print "c'est demarre";
    }
    else {
      print "ce n'est pas demarre";
      sleep 5; # Dort 5 secondes
    }
  }
}

mais là, le sleep a lieu à chaque ligne

[Olivier.p]

C'est plutôt ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
while (1) {
  foreach $line (@LogFichierPosition) {
    if ($line =~ /TOTO/) {
      print "c'est demarre";
    }
    else {
      print "ce n'est pas demarre";
      sleep 5;
      redo;
     }
  }
}

Pour sortir de la boucle (si c'est ce que tu veux faire, tu as, d'après la FAQ de développez) :

2eurocents

Code :

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

1
2
3
redo; est l'instruction de rupture qui permet de reprendre l'itération en cours au début du bloc de code. 
next; est l'instruction qui permet de passer à l'itération suivante. Elle effectue un saut direct à la fin du bloc de code. 
last; est l'instruction qui permet d'arriver directement à la fin de la dernière itération. On sort des traitements/boucles et on continue l'exécution du programme aux instructions qui suivent.