-module(mspsvr).
-export([start/1,loop/1]).

start(Dir)->spawn(mspsvr,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).

1、回复给谁
所有接收的消息都包含变量Client，它是发送请求进程的进程标识符，也是应回复的对象。
2、self()的用法
服务器发送的回复包含了参数self()，这是该服务器的进程标识符。这个标识符被附在消息中，使客户端可检查收到的消息的确来自服务器，而不是其他某个进程。
3、模式匹配被用于选择消息
接收语句内部有两个模式。可这样编写：

receive
  模式1=>
      动作1；
  模式2=>
      动作2.
end