Programmation Perl - Fonction vérifiant si un Process est présent en mémoire
Cette fonction va attendre vérifier si un process est en cours d'exécution.
Elle renvoie 0 si le process n'est pas en train de s'exécuter. Si le process est présent en mémoire, elle renvoie 1.
Le code
sub checkPID { my $PID = $_[0]; my $exists = kill 0, $PID; if ($exists==0) { printf("Process ID $PID is not running\n"); return(0); } else { printf("Process ID $PID is running\n"); return(1); } } $Result=checkPID(6084); print "Result: $Result\n";
Résultat
Process ID 6084 is running Result: 1si le process 6084 est en train de s'éxecuter.