Discussion :

[Girzi]

Bonjour, j'ai une petite question, quel est l'equivalent de setInterval du javascript pour Perl ?
Merci

[djibril]

et ceux qui ne connaisent pas setInterval font comment? tu devrait etre plus clair, tu crois pas

[Girzi]

C'est une fonction qui permet de reexexuter une autre fonction toutes les x secondes.

par exemple ma fonction :

affiche_texte()

setInterval("affiche_texte", 2000) pour la réexecuter toutes les 20 secondes

Merci

[djibril]

je sais pas s'il existe une fonction perl le faisant, mais tu peux faire un while dessus.

Code :

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

1
2
3
4
while (ta condition) {
 //execute ma commande
sleep(20); #pour refaire la boucle 20 seconde apres
}

Je sais pas si ça t'aide !!

[Jedai]

Il y a en fait deux réponse à ça, selon que cette fonction soit la seule à effectuer dans ton programme, ou que tu veuilles qu'elle s'exécute plus ou moins "en parallèle" du reste du programme. De plus si tu es en train de concevoir une GUI, les outils nécessaires sont déjà dans tes modules, sinon il faut employer une voie alternative.
Peux tu nous donner plus de détails sur ce que tu souhaite faire ? (Javascript est un langage mené par les évènements, ce qui n'est pas le cas par défaut en Perl, c'est pourquoi il n'y a pas de parallèle direct entre les deux langages)

--
Jedaï

[Girzi]

C'est un peu spécial.
Ne le voyez pas comme mal, mais je fais des test en local.
J'ai une requete http que j'envoie grace à un socket.
Seulement je veux qu'elle s'execute toutes les 20 secondes.
Mon programme est deja fait en javascript (ajax), mais j'aimerais le porté sur perl ainsi que python. Le but est de faire executé cette requete toutes les 20 secondes. Pour cela il faudrait un "retardement" et puis la requetes se reexecute. Le code de djibril est très bien . Mais je voulais savoir s'il existe une fonction intégrée à Perl qui permet cela comme cele du javascript.

Merci

[pospos]

javascript est pas nature evenementiel: tu entre dans la boucle d'evenement du browser et c'est lui qui appel tes callback.
En perl c'est different: tu n'a pas de mainloop (du moins pas integré au langage) et c'est toi qui defini ton flow d'execution (avec des sleep par exemple).
Pour faire un truc evenementiel comme tu en a l'habitude en js tu peux utiliser une librairie de gestion d'evenement genre Event ou meme carrement POE, ou une librairie de GUI genre Tk ou GTK2.

mais bon comme le dit Jedai si tu ne fait pas d'autre chose en meme temps alors une simple boucle et un sleep doit suffire (avec eventuellement un sleep d'une durée egale à 20sec moins le temps qu'aura pris ta requete, si tu veux etre precis)