timer en perl

salut,

voici mon problème:

je lance une connexion réseau, une fois connecté je dois m'identifier pour cela je veux laisser a mon script un nombre (encore indéterminé) de secondes pour qu'il s'identifie, passé ce delai je retourne une erreur sur le terminal
ma question est, savez vous comment fonctionne les timer en perl, je n'ai pas trouvé de modules de ce type.

merci d'avance

Salut !

Alors je ne suis pas trop calé en Perl, mais je te propose un truc (à modifier suivant tes besoins) :

Code:

---

1 2 3 4 5 6 7 8 9

# Timer en Perl avec sleep(60).   my $temps = 50; # Ici tu mets le nombre de secondes avant que ton programme abandonne la connexion.   for($i = 0; $i <= $temps; $i++) { # Le code de connexion. sleep(1); }

---

Voilà, je pense que ce code est fonctionnel, mais j'ai pas testé.

A+

Normalement on utilise alarm() et eval {} en conjonction pour mettre un timer généraliste, néanmoins la plupart des modules pour le net proposent déjà de régler un timeout pour leurs opérations.

--
Jedaï

Salut,

As-tu trouvé la solution au problème ? Car cela m'intéresse aussi ;) . Sinon, comme l'a dit Jedai, regarde du côté d'alarm...

Alarm est beaucoup mieux. Parce qu'on peut faire des choses dans l'intervalle de temps et qu'on peut appeler une fonction qui tue la connexion. EN plus, je ne comprends pas l'intéret de la boucle ici. Autant directement faire un sleep ($temps). Non ?