erlang -> afile_sever.erl

来源:互联网 发布:php获取页面代码方法 编辑:程序博客网 时间:2024/05/21 18:43
-module(afile_server). -export([start/1,loop/1]).  start(Dir) -> spawn(afile_server, loop, [Dir]).  loop(Dir) ->     receive         {Client, list_dir}->             Client ! {self(), file:list_dir(Dir)};         {Client, {get_file, File}}->             Full = filename:join(Dir, File),             Client ! {self(), file:read_file(Full)}     end,     loop(Dir). 

0 0
原创粉丝点击