erlang模块化对象用法

在erlang中，由于没有变量的概念，生成一个结构以后不能够修改，只能修改后生成新的结构。这样持有一个对象变得比较困难。利用进程典存放生成的结构，通过ID进行索引，在生成结构时，返回{结构类型，ID}，这样就可以实现形如Player = player:new(), Player:set_name(), Player:get_name()这样（C++、C#、JAVA）类似类的使用。  

定义了一个player的类

-module(player).

-record(player,{id,name,age}).

-compile(export_all).

id()->
    case get(player_id) of
        undefined->
            put(player_id,1),
            1;
        ID->
            NewID = ID + 1,
            NewID
    end.

new()->
    ID = id(),
    Player = #player{id=ID},
    put({player,ID},Player),
    {player,ID}.


get_name({player,ID})->
    #player{name=Name} = get({player,ID}),
    Name.


set_name(Name,{player,ID})->
    Player = get({player,ID}),
    NewPlayer = Player#player{name=Name},
    put({player,ID},NewPlayer).

get_age({player,ID})->
    #player{age=Age} = get({player,ID}),
    Age.

set_age(Age,{player,ID})->
    Player = get({player,ID}),
    NewPlayer = Player#player{age=Age},
    put({player,ID},NewPlayer).

用法

P = player:new().

设置name

P:set_name("myname").

获取name

Name = P:get_name().

实现中是将数据通过ID索引放在了进程字典中，如果需要跨进程访问，可以放在ets中。