Erlang语言学习入门

学习资料：

1. 官方Doc:http://www.erlang.org/doc.html
2. 写的特别详细： http://www.cnblogs.com/zhengsyao/ （强推，写得很详细）
3. 系统技术研究：http://blog.yufeng.info/
4. 庄周梦蝶erlang板块：http://www.blogjava.net/killme2008/category/20770.html
5. 博客园的一位大牛：http://www.cnblogs.com/lulu/category/559387.html
6. 另外一位：http://wqtn22.iteye.com

Erlang语言简单示例

1. hello,world

创建文件hello.erl，编辑如下：

-module(hello).
-export([start/0]).

start()->
  io:format("hello world~n").

在终端输入erl，进入erlang命令行，运行c(hello)，即可调用程序

2. 多个参数情况

参考官网，创建tut2.erl，编辑如下：

-module(tut2).
-export([convert/2]).

convert(M,inch) -> M/2.54;
convert(N,centimenter) -> N*2.54.

  

3.  调用多个函数

创建tut5.erl，编辑如下：

-module(tut5).
% -exoport([format_temps/1]).
-export([format_temps/1]).
format_temps([]) -> 
    ok;
format_temps([City | Rest]) -> print_temp(convert_to_celsius(City)),
                             format_temps(Rest).

convert_to_celsius({Name,{c,Temp}}) -> {Name,{c,Temp}};
convert_to_celsius({Name,{f,Temp}}) -> {Name,{c,(Temp -5)*5/9}}.
print_temp({Name,{c,Temp}}) -> io:format("~-15w ~w c~n",[Name,Temp]).

运行结果如下：

4. map和func的运用

利用func，并基于内建函数进行排序，编辑如下：

-module(tut13).
-export([convert_list_to_c/1]).

convert_to_c({Name,{f,Temp}}) ->
    {Name,{c,trunc((Temp-32)*5)}};
convert_to_c({Name,{c,Temp}}) ->
    {Name,{c,Temp}}.

convert_list_to_c(List) ->
    New_List = lists:map(fun convert_to_c/1,List),
    lists:sort(fun({_,{c,Temp1}},{_,{c,Temp2}}) ->
          Temp1 < Temp2 end,New_List).

 6. spawn的简单实用

调用spawn运用erlang的并发，编辑如下：

参考：

1. http://www.erlang.org/course/concurrent_programming.html#top
2. http://www.erlang.org/doc/getting_started/conc_prog.html#id67324
3. http://www.blogjava.net/killme2008/archive/2007/06/14/124355.html

-module(tut14).
-export([start/0,say_something/2]).

say_something(What,0) ->
    done;
say_something(What,Times) ->
    io:format("~p~n",[What]),
    say_something(What,Times - 1).

start() ->
    spawn(tut14,say_something,[hello,3]),
    spawn(tut14,say_something,[goodbye,5])

7.erlang的消息通信，基于！

-module(tut15).
-export([start/0,ping/2,pong/0]).

ping(0,Pong_Pid) ->
    Pong_Pid ! finished,
    io:format("ping finished~n",[]);

ping(N,Pong_Pid) ->
    Pong_Pid!{ping,self()},
    receive 
        pong ->
            io:format("Ping recieved pong!~n",[])
    end,
    ping(N-1,Pong_Pid).

pong() ->
    receive 
        finished -> 
            io:format("Pong finished!~n",[]);
        {ping,Ping_Pid} ->
            io:format("Pong recieved ping!~n",[]),
            Ping_Pid ! pong,
            pong()
    end.

start() ->
    Pong_Pid = spawn(tut15,pong,[]),
    spawn(tut15,ping,[3,Pong_Pid]).

未完，待续！