ERLANG学习 Day7

并发编程

只带超时的接收

定义一个sleep(T)函数， 它会让当前的进程挂起T毫秒。

sleep(T) ->
  receive
    after T ->
    true
  end.

 超时值为 0 的接收

        超时值为0会让超时的主体部分立即发生，但在这之前，系统会尝试对邮箱里的消息进行匹 配。可以通过定义一个flush_buffer函数，它会清空进程邮箱里的所有消息。

flush_buffer() ->
  receive
    _Any ->
      flush_buffer()
  after 0 ->
    true
  end.

        如果没有超时子句，flush_buffer就会在邮箱为空时永远挂起且不返回。我们还可以使用 零超时来实现某种形式的“优先接收”，就像下面这样：

priority_receive()->
  receive
    {alarm,X}->
      {alarm, X}
  after 0 ->
    receive
      Any->
        Any
    end
  end.

        如果邮箱里不存在匹配{alarm, X}的消息，priority_receive就会接收邮箱里的第一个 消息。如果没有任何消息，它就会在最里面的接收语句处挂起，并返回它收到的第一个消息。如 果存在匹配{alarm, X}的消息，这个消息就会被立即返回。

实现一个定时器

        函数stimer:start(Time, Fun)会在Time毫秒之后执行Fun（一个不带参数的函数）。它返 回一个句柄（是一个PID），可以在需要时用来关闭定时器。

-module(stimer).
-author("chen").

%% API
-export([start/2, cancel/1]).

start(Time,Fun)-> spawn(fun() -> timer(Time,Fun) end).
cancel(Pid) ->
  Pid! cancel.
timer(Time,Fun) ->
  receive
    cancel->
      void
  after Time ->
    Fun ()
  end.

        在第三段中等待的时间超过了5秒钟，这样定时器就会触发。启动一个定时器，然后在到期前关闭它。