运行外部命令并处理标准输出

任务

操作系统 / 运行外部命令并处理标准输出

未使用任何包

代码

(* 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

食谱无法正常运行？注释不清楚或已过期？

此任务的其他食谱

• 运行外部命令并处理标准输出

  feather
• 运行外部命令并处理标准输出

  shexp