Discussion :

[Ganondorf]

salut,

J'ai besoin d'aide sur un de mes scripts, j'aimerai vérifier que le script n'est pas déja lancé, je m'explique:

je lance mon script de cette manière

perl monscript.pl

je voudrai que lorsque j' essai de le lancer une seconde fois de cette manière, interrompre le second script

j'ai essayé via un ps x | grep monscript.pl et vérifier qu'il n'existe pas, d'un ça n'a pas fonctionné et de deux je trouve pas ça forcement jolie, mais si vous me dites que c'est l'unique solution ...

à plus

[Jedai]

Généralement, on utilise un fichier "programme.lock" dans un emplacement bien choisi pour éviter ce problème. Au démarrage du script, l'existence du fichier est vérifié et le script s'arrête si le fichier existe déjà, sinon il le crée, et le supprime à la fin (ce qui peut exiger quelques précautions, au minimum donne un bon message d'erreur quand le script n'arrive pas à démarrer à cause d'un fichier lock, que l'utilisateur puisse le supprimer manuellement s'il y a eu un problème).

--
Jedaï

[Ganondorf]

salut Jedai,

ça fonctionne bien avec ta méthode, par contre j'aimerai savoir quel signal est envoyé lorsque je kill mon processus ?
Vu qu'il faut que je supprime le fichier lock a chaque terminaison du programme, j'ai essayé avec sigkill mais ca ne doit pas être ca

Code :

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

$SIG{KILL} = sub { unlink $ENV{PWD}."/godzilla.pid"; };

[Jedai]

Tu as aussi TERM qui est souvent utilisé plutôt que KILL, généralement pour forcer un arrêt moins drastique.

--
Jedaï

[Ganondorf]

J'utilise déja TERM et ca ne fonctionne pas non plus, lorsque je kill le processus il n'efface pas le fichier

Code :

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

1
2
3
4
 
$SIG{INT}  = $SIG{TERM} = \&shutdown;
$SIG{HUP}  = \&rehash;
$SIG{KILL} = sub { unlink $ENV{PWD}."/godzilla.pid"; };

dans le fonction shutdown j'essai aussi d'effacer le fichier.

[D[r]eadLock]

J'utilise déja TERM et ca ne fonctionne pas non plus, lorsque je kill le processus il n'efface pas le fichier

Code :

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

1
2
3
4
 
$SIG{INT}  = $SIG{TERM} = \&shutdown;
$SIG{HUP}  = \&rehash;
$SIG{KILL} = sub { unlink $ENV{PWD}."/godzilla.pid"; };

dans le fonction shutdown j'essai aussi d'effacer le fichier.

Tu peux faire un strace de ton programe (strace perl ... ou juste strace -p PID) pour voir quel signal est reçu

[Ganondorf]

salut,

résultat du strace:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
serveur@Dirtybox:~/Godzilla$ strace -p 13351
Process 13351 attached - interrupt to quit
read(3, ":irc.dirty-system.net TIMESET 12"..., 4096) = 48
read(3, ":irc.dirty-system.net PING uworl"..., 4096) = 52
write(3, ":uworld.dirty-system.net PONG ir"..., 52) = 52
read(3, ":irc.dirty-system.net TIMESET 12"..., 4096) = 48
read(3, 0x83b36a8, 4096)                = ? ERESTARTSYS (To be restarted)
+++ killed by SIGKILL +++
Process 13351 detached

je reçois bien un SIGKILL est pourtant il ne me supprime pas le fichier

[Ganondorf]

iop,

j'ai trouvé mon "erreur", je tuai mon processus via kill -9 <pid>, un simple kill <pid> suffit et corrige mon probleme.