如何通过erlang代码验证操作系统端口是否可用？

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

---

可能吗？

打开端口，看看是否失败

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

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