Run an External Command and Process Stdout using the Standard Library

Task

Operating System / Run an External Command and Process Stdout

No packages used

Code

(* The function `Unix.open_process_in` runs the given command in parallel with the program. The standard output of the command is redirected to a pipe, which can be read via the returned input channel. *) let run cmd = let inp = Unix.open_process_in cmd in let r = In_channel.input_all inp in In_channel.close inp; r (* We call the `ps` command with argument `-x` on the POSIX shell and print its standard output. *) let () = let ps_output = run "ps -x" in ps_output |> print_endline

let run cmd =
  let inp = Unix.open_process_in cmd in
  let r = In_channel.input_all inp in
  In_channel.close inp; r

let () =
  let ps_output = run "ps -x" in
  ps_output
  |> print_endline

Recipe not working? Comments not clear or out of date?

Other Recipes for this Task

• Run an External Command and Process Stdout

  feather
• Run an External Command and Process Stdout

  shexp