Erlang 程序调试

最新推荐文章于 2024-06-22 09:41:20 发布

gavinvong

最新推荐文章于 2024-06-22 09:41:20 发布

阅读量528

点赞数

最近学习Erlang，这种诡异的语言真让人不淡定。真怀念visual studio 一个F11键就可以开始单步调试。

按照在网上找到的资料，一步一步进行如下的调试。

首先写一个Erlang源代码 Process_infos.erl

[java]view plaincopyprint? 
   
 -module(process_infos).  
 -compile(export_all).  
   
   
 process_infos() ->           
     %%filelib:ensure_dir("./log/"),  
     File = "distance.log",  
     {ok, Fd} = file:open(File, [write, raw, binary, append]),   
     Fun = fun(Pi) ->  
                 PiI = erlang:process_info(Pi),  
                    Info = io_lib:format("Pid ::: ~p =>~p \n\n",[Pi,PiI]),  
                   case  filelib:is_file(File) of  
                         true   ->     
                             %%file:write(Fd, "Pid ::: " ++ pid_to_list(Pi)),  
                             file:write(Fd, Info);  
                         false  ->  
                             file:close(Fd),  
                             {ok, NewFd} = file:open(File, [write, raw, binary, append]),  
                             %%{ok, NFD} = file:open(File, [write, raw, binary, append]),  
                             %%file:write(NFD, "Pid ::: " ++ pid_to_list(Pi)),  
                             %%file:close(NFD),  
                                
                             file:write(NewFd, Info)  
                      end  
                      %%timer:sleep(20)  
                  end,  
     [Fun(P) ||   P <- erlang:processes()],  
     {ok, NFd} = file:open(File, [write, raw, binary, append]),  
     file:write(NFd, "=============================================================\n\n"),  
     file:close(NFd).  