下面的代码就是把当前节点内所有进程遍历一遍,把进程状态写入到文本里面:
process_infos() ->
filelib:ensure_dir("./log/"),
File = "./log/processes_infos.log",
{ok, Fd} = file:open(File, [write, raw, binary, append]),
Fun = fun(Pi) ->
Info = io_lib:format("=>~p \n\n",[Pi]),
case filelib:is_file(File) of
true -> file:write(Fd, Info);
false ->
file:close(Fd),
{ok, NewFd} = file:open(File, [write, raw, binary, append]),
file:write(NewFd, Info)
end,
timer:sleep(20)
end,
[ Fun(erlang:process_info(P)) || P <- erlang:processes()].
filelib:ensure_dir("./log/"),
判定确保对给出的文件名或文件夹名 Name 的上层所有父目录是否存在。如果有必要, 该函数会尝试创建缺失的父目录路径。当所有的父目录都存在或者可以被创建时,则返回 ok;如果部分父目录不存在并且创建不成功时,则返回 {error, Reason}。
{ok, Fd} = file:open(File, [write, raw, binary, append]),
write 以写的模式打开,
raw、binary 模式打开文件:
以 append 的模式打开的文件,并在文件末尾进行写操作(如果文件不存在,创建一个新文件)
filelib:is_file(File)
判断 Name 是否是一个文件或目录,如果是则返回 true,否则返回 false。