Binden des Ergebnisses eines Systembefehls an eine Variable in Haskell

Question

Wie wird ein Systembefehl in Haskell ausgeführt und binden Sie das Ergebnis (d. H. Standardausgabe) an eine Variable? In pseudo-haskell suche ich nach etwas wie dem folgenden:

import System.Process 

main = do output <- callCommand "echo hi" 
      putStrLn output -- result: "hi" 

Dies funktioniert nicht. Gibt es etwas Ähnliches, das tut? Hier

Answer 1

ist einiger Arbeitscode:

import System.Process 

main :: IO() 
main = do 
    let stdin' = "" 
    (errCode, stdout', stderr') <- readProcessWithExitCode "echo" ["hi"] stdin' 
    putStrLn $ "stdout: " ++ stdout' 
    putStrLn $ "stderr: " ++ stderr' 
    putStrLn $ "errCode: " ++ show errCode 

Wie Carsten bemerkt, können Sie readProcess verwenden, aber ich ziehe diese Version, weil mit jeder ernsthaften Benutzung, Sie bald sehr verwirrt sein werden, warum Ihr Befehl ist still fehlgeschlagen (wenn Sie in der Befehlszeile laufen, werden natürlich sowohl stdout als auch stderr angezeigt).

Answer 2

Erweiterung auf jamshidh Antwort, wenn statt stdout und stderr als String bekommen Sie sie als ByteString oder Text erhalten möchten, können Sie das process-extras Paket verwenden.

Sie können auch meine process-streaming Paket verwenden:

$ import System.Process.Streaming 
$ execute (piped (shell "echo foo")) (liftA3 (,,) (foldOut intoLazyBytes)  
                (foldErr intoLazyBytes) 
                exitCode) 
("foo\n","",ExitSuccess) 

Auch für Text:

$ import System.Process.Streaming.Text 
$ execute (piped (shell "echo foo")) (liftA3 (,,) (foldOut (transduce1 utf8x intoLazyText)) 
                (foldErr (transduce1 utf8x intoLazyText)) 
                exitCode) 
("foo\n","",ExitSuccess)