代码就是把当前节点内所有进程遍历一遍，把进程状态写入到文本里面

  下面的代码就是把当前节点内所有进程遍历一遍，把进程状态写入到文本里面：

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。