Eshell V5.9  (abort with ^G)1> rd(u1,{a,b,c}).u12> rd(u2,{b,c}).u23> Users=[#u1{a=12,b="ligaoren",c=true},#u1{a=23,b="zen",c=false}].[#u1{a = 12,b = "ligaoren",c = true}, #u1{a = 23,b = "zen",c = false}]4> [begin #u1{b=B,c=C}=U, #u2{b=B,c=C} end|| U<-Users].[#u2{b = "ligaoren",c = true},#u2{b = "zen",c = false}]5>  

        show2(#man{name =Name ,age =Age  } =  M ) when is_record(M , man) -> 

        io:format("Name   : ~p  Age: ~p  ~n ", [ Name ,Age ]). 

这个方法在入口的位置就提取出来了Name和Age,注意这里只有M是record man,所以我们增加了一个Guard:is_record(M , man)

上面是关于record的一些常规操作,我会有一些疑问:在实际使用record中我们会常遇到badrecord的错误,这个错误erlang是怎么判断的?

同样的is_record 是怎么判断的?要想知道这个答案就需要重新编译我们的测试文件,添加编译选项,在Erlang Shell中使用下面的方法:

c(test,[‘E‘]).这样在同一目录里面就会生成一个test.E文件,打开这个文件,一切豁然开朗,我们以   M3 = M2#man{name="tt", age=24},

      io:format("M3  is : ~p  ~n ", [ M3 ]),这句为例,编译出来的代码是:

    M3 =
        begin
            rec1 = M2,
            case rec1 of
                {man,rec2,rec3,rec4} -> %是通过匹配Tuple的方式进行的判断
                    {man,"tt",24,rec4};
                _ ->
                    error({badrecord,man})
            end
        end,
    io:format("M3  is : ~p  ~n ", [M3]),

再看看刚刚那段生成  show2生成的对应代码:

这里有一个匹配取值的,会影响我们阅读,我们简化一下:

它编译出来的代码是:

很难想象如果没有宏,我们的Erlang代码要多么的难读,到处都是Magic Number;简单总结一下Erlang中宏的用法:

1. 常量宏 比如-define(TIMEOUT, 1000). -define(ServerName,my_first_game_server ).
               
2. 带参宏 比如: -define(Eq(X,Y),X=:=Y).
   -define(P(Content),ok).
3. 条件宏
   -ifdef(product).
       -define(Who,"product_db_adm").
   -else.
       -define(Who,"test_db_adm").
   -endif.
4. 全局宏: ?MACHINE (VM 名称) 
               ?LINE 当前代码行
               ?FILE 当前代码文件
   还有最熟悉的?MODULE 当前模块 
   还有一个比较常用在输出调试信息的宏:
   -define(VALUE(Call),io:format("~p = ~p~n",[??Call,Call])).
   test1() -> ?VALUE(length([1,2,3])).
   
   2012-07-16更新
5. {d,Macro}{d,Macro,Value}

   Defines a macro Macro to have the value Value. The default is true.
   
   

   Example:

   -module(m)....-ifdef(debug).-define(LOG(X), io:format("{~p,~p}: ~p~n", [?MODULE,?LINE,X])).-else.-define(LOG(X), true).-endif....

    

   When trace output is desired, debug should be defined when the module m is compiled:

   % erlc -Ddebug m.erlor1> c(m, {d, debug}).{ok,m}

    

   
   官方文档地址: http://www.erlang.org/doc/man/compile.html

                       http://www.erlang.org/doc/reference_manual/macros.html
   
   

 条件宏可以通过编译选项的方式,切换是生产环境的版本还是debug的版本,生产环境要屏蔽掉debug输出就可以轻松实现了;

按照同样的方法我们可以看一下Macro,只需要把编译的时候使用c(test,[‘P‘]).下面就是一个使用宏的例子,猜猜它被编译之后是什么样子?

-module(mac).

-export([dump/1,go/1,show/2,len/1,say/0]).

-define(Func,X).
-define(Double,*2).
-define(F,dump(X)).
-define(Eq(X,Y),X=:=Y).
%-define(P(Content),ok).
-define(PF(Content,Args),io:format(Content,Args)).
-define(P(Content),io:format(Content)).

-define(Len(Call),io:format("~p=~p ~n",[??Call,Call])).

-ifdef(me).
    -define(Who,"abcd").
-else.
    -define(Who,"zen").
-endif.



say()->
    ?P(?Who).


len(List) when is_list(List) ->
      ?Len(length(List)).



dump(X)->
       ?Func?Double.

go(X)->
    ?F.

show(X,Y) when ?Eq(X,Y)->
    ?P("They are Equal. ~n");
show(_X,_Y)->
    io:format("HAHA").

-file("./mac.erl", 1).

-module(mac).

-export([dump/1,go/1,show/2,len/1,say/0]).

say() ->
    io:format("zen").

len(List) when is_list(List) ->
    io:format("~p=~p ~n", ["length ( List )",length(List)]).

dump(X) ->
    X * 2.

go(X) ->
    dump(X).

show(X, Y) when X =:= Y ->
    io:format("They are Equal. ~n");
show(_X, _Y) ->
    io:format("HAHA").