Wie erhalte ich die Prozess-ID eines erstellten Prozesses in Haskell?

Question

Vielleicht fehlt mir gerade etwas offensichtlich in der System.Process API (http://hackage.haskell.org/package/process), aber es scheint nicht zu unterstützen, die rohe PID eines Prozesses erstellt. Die API gibt normalerweise einen ProcessHandle zurück, der leicht genug verwendet werden kann, aber dies scheint nicht die Anforderungen einer Bereitstellung zu erfüllen.

Ich habe einen Fall, in dem ich einen lang andauernden Prozess zum Laichen möge, melden Sie sich den PID es verwendet wird, und in der Lage sein, automatisch zu einem späteren Zeitpunkt wieder zu kommen (Tage, Wochen, Monate) und töte das alte Verfahren und Wieder Starten Sie mit einem neuen Prozess. Ich bin mir sicher, dass es mehrere Möglichkeiten gibt, dieses Auto-Deploy-and-Restart durchzuführen, aber PIDs schienen der einfachste Weg zu sein, ohne zu viel plattformabhängigen Code zu verwenden.

Ich bin offen für andere Vorschläge zu meinem zugrunde liegenden Problem, aber es scheint mir seltsam, dass ich keine direkten PID-Referenzen (oder eine Möglichkeit, sie zu konvertieren) in der Prozess-API finden kann. Dies scheint ein Versehen der API zu sein.

Answer 1

Hier einige Codebeispiel ist:

import System.Process 
import System.Process.Internals 

-- | returns Just pid or Nothing if process has already exited 
getPid ph = withProcessHandle ph go 
    where 
    go ph_ = case ph_ of 
       OpenHandle x -> return $ Just x 
       ClosedHandle _ -> return Nothing 

main = do 
    (_,_,_,ph) <- createProcess $ shell "echo $$" 
    getPid ph >>= print 

Hinweis: I haven Ich habe das unter Windows getestet, aber es funktioniert unter OSX und vermutlich unter Linux.

unter Windows die Win32 package eine getProcessId-Funktion im Modul hat System.Win32.Process und den Code nach denen ich gelesen habe, sollte diese Arbeit:

import System.Win32.Process (getProcessId) 

main = do 
    (_,_,_,ph) <- createProcess $ shell "echo $$" 
    pid <- withProcessHandle ph go 
    print pid 

    where go (OpenHandle x) = fmap Just $ getProcessId x 
     go (ClosedHandle _) = return Nothing 

Der Code, den ich dies auf für interruptProcessGroupOf der Code am stützen (link)

Answer 2

Wenn alles andere fehlschlägt,

import System.Process.Internals 

und dann innerhalb der Abstraktion ProcessHandle graben. Sie möchten wahrscheinlich die PHANDLE aus der MVar extrahieren.

Beachten Sie, dass dies die Abstraktionsschicht durchbricht, die den Code portierbar zwischen den Betriebssystemen machen soll. Benutze es mit äußerster Sorgfalt und sei darauf vorbereitet, dass es neue Versionen der Bibliothek einbricht.

Answer 3

Sieht aus wie interruptProcessGroupOf in System.Process Anrufe entweder System.Posix.Process.getProcessGroupIDOf (POSIX/nicht Windows) oder System.Win32.Process.getProcessId (Windows), um die pid zu erhalten: http://git.haskell.org/packages/process.git/blob/HEAD:/System/Process.hs