erlang - 有没有 Erlang os :cmd equivalent that takes a list of strings instead of a single command?

Question

有没有我可以做的 Erlang 电话 Retval = subprocess:call(["cmd", "arg1", "arg2", "arg3"]) ?

如果我正在构建一个复杂的命令来执行，使用 os:cmd/1 很容易出现转义错误。与 Python 的 subprocess.call() 方法相比，我传入一个字符串列表并知道它是逐字传递给子进程的，没有任何损坏。

谢谢。

Answer 1

这就是我想出的。

-module(mycmd).
-export([cmd/2]).

cmd(Cmd, Args) ->
    Tag = make_ref(), 
    {Pid, Ref} = erlang:spawn_monitor(fun() ->
            Rv = cmd_sync(Cmd, Args),
            exit({Tag, Rv})
        end),
    receive
        {'DOWN', Ref, process, Pid, {Tag, Data}} -> Data;
        {'DOWN', Ref, process, Pid, Reason} -> exit(Reason)
    end.

cmd_sync(Cmd, Args) ->
    P = open_port({spawn_executable, os:find_executable(Cmd)}, [
            binary, use_stdio, stream, eof, {args, Args}]),
    cmd_receive(P, []).

cmd_receive(Port, Acc) ->
    receive
        {Port, {data, Data}} -> cmd_receive(Port, [Data|Acc]);
        {Port, eof}          -> {ok, lists:reverse(Acc)}
    end.