vérifier si un programme est en cours d'éxécution

Bonjour,

Mon script recherche dans ma base de données les entrées à mettre à jour. Il se connecte à un site (Genbank) afin d'y rechercher la valeur à actualiser. Parfois, il s'arrête et affiche un message d'erreur disant que l'identifiant correspondant à cette donnée n'existe pas dans GenBank. Or cet identifiant existe bien sur GenBank et la valeur correspondante est d'ailleurs correctement mise à jour dans ma DB. Le problème est que le programme s'arrête de tourner. Je l'exécute à nouveau manuellement et il continue sa tache.

J'aimerais le laisser tourner ce week-end, il me faudrait donc un moyen de relancer automatiquement le script qui s'arrête.

Ma question est donc, comment faire afin de vérifier toutes les x minutes que mon script tourne toujours et de le relancer dans le cas contraire. Je suis sous Windows XP.



Merci pour votre aide,

je pense qu'avec le planificateur des taches tu dois pouvoir le relancer toutes les x minutes, après je sais pas si tu peux vérifier s'il est en cours d'exécution

est ce que tu sais si lorsqu'il fait son erreur il y a un log dans le journal d'événements windows, car si oui avec le planificateur tu peux lui dire de relancer ton script

édit : excuses moi, cette option est disponible sous vista, j'ai pas xp sous la main mais cela n'est pas disponible non plus sous serveur 2003, donc il est possible qu'elle n'existe pas sous xp

edit2: ça ne va pas t'aider par contre la commande tasklist en dos te donne la liste des taches en cours, donc tu peux faire un script qui exécute cette commande toutes les x minutes analyser le résultat pour savoir si ton script tourne et le relancer le cas échéant

Pour les détails voir les tutoriels et cours de formation pour la programmation PERL : http://perl.developpez.com/cours/

Merci pour ta réponse.

Citation:

---

Envoyé par maxouff

je pense qu'avec le planificateur des taches tu dois pouvoir le relancer toutes les x minutes, après je sais pas si tu peux vérifier s'il est en cours d'exécution

---

Au pire, je pourrais le relancer toutes les 2h en supposant qu'il y ait une forte probabilité qu'il ait planté.
L'appel d'un script en cours d'exécution écrase t'il celle-ci et le script redémarre-t'i à zéro? Si oui, ce n'est pas un problème étant donné que les entrées de ma DB sont corrigées au fur et à mesure et que mon script effectue une requête ne récupérant que les entrées restant à modifier.

Citation:

---

Envoyé par maxouff

est ce que tu sais si lorsqu'il fait son erreur il y a un log dans le journal d'événements windows, car si oui avec le planificateur tu peux lui dire de relancer ton script

édit : excuses moi, cette option est disponible sous vista, j'ai pas xp sous la main mais cela n'est pas disponible non plus sous serveur 2003, donc il est possible qu'elle n'existe pas sous xp

---

Je ne sais pas si il existe un journal d'évènement, où se trouve t'il sur vista?

Citation:

---

Envoyé par maxouff

edit2: ça ne va pas t'aider par contre la commande tasklist en dos te donne la liste des taches en cours, donc tu peux faire un script qui exécute cette commande toutes les x minutes analyser le résultat pour savoir si ton script tourne et le relancer le cas échéant

---

Peut-être est-ce le plus simple. Donc, 1 je fais un script qui est lancé toutes les 5 minutes par le planificateur de tâche. Ce script vérifie que mon programme tourne bien et dans le cas contaire, l'exécute.


Je vais regarder à tout cela, merci beaucoup.

:( la solution d'une tâche planifiée toutes les 2h tombe à l'eau car c'est au maximum 1 exécution par jour :( :aie:

... je ne sais plus que faire.

Si j'écris un script en commande DOS est-il possible qu'il tourne pendant 2 jours et effectue une commande tous les x temps ... sans devoir le relancer via les tâche planifiées?

Si mon script perl fait

Code:

---

system("tasklist");

---

Cela me retourne perl.exe, quelque soit le script en cours d'exécution ... ça complique tout, je vais devoir compter le nombre de perl.exe dans la liste afin de vérifier si il y en a bien 2.
N'existe t'il pas une commande dos permettant de vérifier si le programme update_taxons.pl est en cours d'exécution?


Merci pour ton aide,

a titre informatif vu que ce n'est pas forcément la meilleure solution le journal d'événements à changer de nom sous vista et s'appelle "observateur d'événements" dans panneau de configuration, outils d'administration.

après tu peux faire un script perl qui tourne en boucle avec un timeout à chaque tour qui fait le teste de l'existence de ton premier script et le relance s'il s'est arrêté.

J'ai l'impression que tu essaies de contourner un problème de comportement de ton script. Pourquoi ne pas le modifier pour qu'il ne s'arrête pas s'il ne trouve pas la valeur que tu cherches ? Pourquoi ne pas corriger le fait qu'il trouve la valeur, met à jour ta base mais s'arrête en erreur ???

Citation:

---

Envoyé par jean.2edi

J'ai l'impression que tu essaies de contourner un problème de comportement de ton script. Pourquoi ne pas le modifier pour qu'il ne s'arrête pas s'il ne trouve pas la valeur que tu cherches ? Pourquoi ne pas corriger le fait qu'il trouve la valeur, met à jour ta base mais s'arrête en erreur ???

---

Oui, il effectue correctement la mise à jour puis s'arrête.
En effet, je contourne le problème, mais je n'ai guère le choix étant donné que la fonction posant problème vient d'un module.

Code:

---

1 2 3 4

use Bio::DB::GenBank;     my $gb_data = $gb->get_Seq_by_acc($acc);

---

... bien que cet accession existe, j'ai un message d'erreur.


J'ai donc essayé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

ACCESSIONS : foreach my $acc (@acc_list){   if(my $gb_data = $gb->get_Seq_by_acc($acc)){     } else{ print "ERREUR POUR $acc\n"; next ACCESSIONS; } }

---

Mais cela plantait également.

J'ai donc fini par utiliser une autre fonction de ce module.

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

ACCESSIONS : foreach my $acc (@acc_list){   my $query_string = "$acc"; # idem que dans l'interface GenBank my $query = Bio::DB::Query::GenBank->new(-db=>$db, -query=>$query_string, );   my $stream = $gb->get_Stream_by_query($query); my $count = $query->count;   if ($count > 0){ while (my $gb_data = $stream->next_seq) {     } } else{ print "ERREUR POUR $acc\n"; next ACCESSIONS; } } # fin foreach my $acc

---

Jusqu'à présent, cela semble fonctionner.

Tu peux toujours récupérer un die() (ou dérivé) avec eval :

Code:

---

1 2 3 4 5

my $gb_data = eval { $gb->get_Seq_by_acc($acc) };   if($@) { print "ERREUR\n"; }

---

--
Jedaï

Merci pour cette nouvelle idée. Pourquoi un simple if ne fonctionne t'il pas? Est-ce parce que si la commande ne trouve pas de résultat, au lieu de ne rien renvoyer ou de renvoyer 0, elle renvoie un message d'erreur considéré comme 'vrai' par Perl?

Tu veux dire ceci :

Code:

---

1 2 3 4

my $gb_data; unless( $gb_data = eval { $gb->get_Seq_by_acc($acc) } ) { print "ERROR\n"; }

---

Ca devrait marcher aussi, néanmoins tu n'y gagne pas tellement et le "if($@)" montre clairement que tu gères une exception (pour un programmeur Perl expérimenté).

--
Jedaï

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

ACCESSIONS : foreach my $acc (@acc_list){   if(my $gb_data = $gb->get_Seq_by_acc($acc)){     } else{ print "ERREUR POUR $acc\n"; next ACCESSIONS; } }

---

Que renvoie la fonction $gb_get_Seq_by_acc si le $acc n'est pas trouvé? Un message d'erreur, donc quelque chose considéré comme vrai par perl et donc qui entre dans le bloc du if. Est-ce bien cela? Donc, on ne passe jamais par le else. Merci pour les explications.