erlang简单实现生产者消费者

最新推荐文章于 2022-05-24 13:39:56 发布

原创最新推荐文章于 2022-05-24 13:39:56 发布 · 203 阅读

0 ·

CC 4.0 BY-SA版权

erlang学习笔记专栏收录该内容

22 篇文章

订阅专栏

本文介绍了一个简单的Erlang程序实现生产者-消费者模型的例子。该程序包含一个消费者进程，持续监听生产者的消息，生产者则每0.5秒发送一条消息给消费者，直至发送次数达到10次。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

-module(procedure).
-export([procedure/2,consume/0]).

consume() ->
 receive
   X -> 
   case X<10 of
    true ->io:format("production consume ~w~n",[X]),consume();
	false ->io:format("work done ~n") end
 end.
   

procedure(Pid,Num) when Num=<10 ->
   Pid ! Num,
   timer:sleep(500),
   procedure(Pid,Num+1);
   
procedure(Pid,Num) ->
   io:format("work done ~n").

erlang感觉语法蛮有意思的就写了写

调用:

26> c("procedure").
procedure.erl:18: Warning: variable 'Num' is unused
procedure.erl:18: Warning: variable 'Pid' is unused
{ok,procedure}
27> Pid=spawn(fun procedure:consume/0).
** exception error: no match of right hand side value <0.106.0>
28> f().
ok
29> Pid=spawn(fun procedure:consume/0).
<0.110.0>
30> procedure:procedure(Pid,0).
production consume 0
production consume 1
production consume 2
production consume 3
production consume 4
production consume 5
production consume 6
production consume 7
production consume 8
production consume 9
work donework done
ok

内容也很简单一个消费者监听着生产者每隔0.5秒发送一次信息给消费者消费者输出一共循环10次(参数是0的话)

erlang编程一些语法细节蛮蛋疼的...

比如 if receive和case中每项用的是 ; 然后最后一项不要写符号因为后面跟了个end

并列的语句之间写 ,

不注意就会写错