Powiązanie wyniku polecenia systemowego ze zmienną w Haskell

Question

W jaki sposób uruchomić polecenie systemowe w Haskell i powiązać jego wynik (tj. Standardowe wyjście) ze zmienną? W pseudo-tabliczce szukam czegoś podobnego:

import System.Process 

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

To nie działa. Czy jest coś podobnego?

Answer 1

Oto kod roboczych:

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 

Jak zauważa Carsten, można użyć readProcess, ale wolę tę wersję, ponieważ z każdego poważnego zużycia, wkrótce być bardzo mylić, dlaczego komenda jest cicho niepowodzenie (jeśli uruchamiasz w linii poleceń, zarówno standardowe wyjście, jak i stderr są oczywiście pokazywane).

Answer 2

Rozwijając na odpowiedź jamshidh jest, jeśli zamiast się stdout i stderr jak String chcesz dostać je jako ByteString lub Text, można użyć pakietu process-extras.

Można również używać process-streaming pakiet:

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

także dla Text:

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