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: 1

Retour