获取gen_server/gen_fsm状态以进行调试

Question

是否有可能获得gen_server进程的当前状态(可能是通过发送一些系统消息)？它在调试时很有用.

当然,我可以添加一条消息,将当前状态返回到handle_call:

get_state(Server) -> gen_server:call(Server, '$get_state').

%% in every gen_server I want to debug
...
handle_call('$get_state', _From, State) ->
  {reply, State, State};
...

但是内置了什么(即使它有点hacky)？

Answer 1

使用sys:get_status/1,2功能.它的定义是:

get_status(Name,Timeout) -> 
    {status, Pid, {module, Mod}, [PDict, SysState, Parent, Dbg, Misc]}

SysState将包含进程的状态.它适用于使用OTP行为和其他流程实现proc_lib和sys要求的所有流程.

Answer 2

实际上有一个直接返回状态的函数：sys:get_state/1,2。它接受进程的 pid 或名称，并且可以选择设置超时。