Associazione del risultato di un comando di sistema a una variabile in Haskell

Question

Come si esegue un comando di sistema in Haskell e associare il risultato (ad esempio lo standard output) a una variabile? In pseudo-Haskell Sto cercando qualcosa di simile al seguente:

import System.Process 

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

Questo non funziona. C'è qualcosa di simile?

Answer 1

Ecco alcuni codice di lavoro:

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 

Come osserva Carsten, è possibile utilizzare readProcess, ma io preferisco questa versione perché con qualsiasi utilizzo serio, presto essere molto confusa sul motivo per cui il vostro comando è in silenzio non funzionante (se si esegue nella riga di comando, vengono mostrati sia stdout che stderr).

Answer 2

Ampliando la risposta di jamshidh, se invece di ottenere stdout e stderr come String si desidera ottenere loro come ByteString o Text, è possibile utilizzare il pacchetto process-extras.

È inoltre possibile utilizzare il mio pacchetto process-streaming:

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

Anche per Text:

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