如何通过erlang代码验证OS端口？

Question

我想编写用于检查OS端口资源是否可用的代码。因为代码运行在不同的os平台上，所以使用bash脚本是最后的选择。

有可能吗？

Answer 1

打开端口，查看是否失败。

port_available(Port)
    case gen_tcp:listen(Port, []) of
        {ok, Sock} -> 
            ok = gen_tcp:close(Sock),
            true;
        _ -> 
            false
    end.

此代码确保在成功打开尝试后关闭端口。