ejabberd寮鍙戝拰閮ㄧ講
(閲戝簡鐨勪笓鏍?2016.10)
鎼緩浜嗚嚜宸辯殑ejabberd闆嗙兢錛岀劧鍚庡皯閲忔洿鏀規簮鐮侊紝瀹炵幇瀹氬埗鐨刋MPP鏈嶅姟鍣ㄣ?/p>
浠巊ithub fork ejabberd 搴擄紝瀹氫負 master 鍒嗘敮璺熻釜鍘熷搴?master 鍒嗘敮錛岀増鏈崌綰ф椂浠庡師搴撳悎騫朵竴嬈°?/p>
浠?6.09鐗堟湰鍒嗕竴涓?dev 鍒嗘敮錛岃嚜宸辯殑浠ｇ爜灝卞湪榪欎釜 dev 鍒嗘敮涓婂啓銆?/p>
鏈嶅姟鍣ㄤ粠婧愮爜緙栬瘧瀹夎銆?/p>
浠ｇ爜鏇存敼鍚庯紝make install, 鐒跺悗 ejabberd restart, 鎴栬?ejabberd update all.
濡傛灉鏈夐厤緗洿鏀癸紝鍒欒繕瑕佹洿鏀?/etc/ejabberd/ejabberd.yml.
鏈潵涓誨簱鐗堟湰鍗囩駭鍚庯紝鍙噸鏂板紑涓猟ev2鍒嗘敮錛屽皢dev鐨勬洿鏀瑰悎騫跺埌dev2.
]]>
ejabberd mod_echo 瑙ｆ瀽
(閲戝簡鐨勪笓鏍?2016.8)
鎸夊紑鍙戝叆闂ㄧ殑璇存槑錛宮od_echo鏄渶綆鍗曠殑妯″潡涔嬩竴銆?br />https://docs.ejabberd.im/developer/
褰撶劧 mod_hello_world 鍙湁寮濮嬪拰緇撴潫鏃ュ織錛屾病鏈夊疄闄呭姛鑳斤紝姣?mod_echo 鏇寸畝鍗曘?br />
閰嶇疆璇存槑涓瀹氳鐪嬶紝鍥犱負鍏朵腑鏈夋ā鍧楀姛鑳界殑綆浠嬶細
https://docs.ejabberd.im/admin/guide/configuration/#modecho
娌＄湅鍔熻兘綆浠嬶紝鐩存帴鐪嬩唬鐮侊紝緇撴灉琚?do_client_version/3 緇欏紩鍏ヤ簡姝ч斻?br />
echo妯″潡瀹炵幇浜唀cho鍔熻兘錛屽悜鐗瑰畾鍩熷悕鐨勭敤鎴峰彂閫佽亰澶╂秷鎭紝浼氬師鏍瘋繑鍥炪?br />
嫻嬭瘯鍥撅細
echo鍩熷悕鏄彲閰嶇疆鐨勶細
modules:
mod_echo:
host: "echo_x.mydomain"
緙虹渷涓?"echo.@HOST@", 鍏朵腑@HOST@浼氳鏇挎崲鎴愭湇鍔″櫒鍩熷悕銆?br />
浠ｇ爜涓殑 do_client_version/3 婕旂ず浜?route + receive 鍙戦佸茍鏀跺彇搴旂瓟錛?br />浣嗘槸涓巈cho鍔熻兘鏃犲叧錛屽彲浠ュ拷鐣ヨ鍑芥暟銆?br />
echo鍔熻兘鏄?register_route/2 瀹屾垚鐨勶紝
ejabberd_route:register_route(MyHost, Host)
琛ㄧず浠嶩ost鍒癕yHost鐨勬秷鎭渶瑕佹湰妯″潡鏉ヨ礬鐢便?br />Host鏄湇鍔″櫒鍚嶏紝MyHost鏄厤緗殑mod_echo.host.
鍙互鏌ョ湅route琛細
(ejabberd@localhost)1> ets:tab2list(route).
[{route,<<"pubsub.zt-2203857">>,<<"zt-2203857">>,<0.5500.0>,
undefined},
{route,<<"echox.zt-2203857">>,<<"zt-2203857">>,<0.5492.0>,
undefined},
{route,<<"conference.zt-2203857">>,<<"zt-2203857">>,
<0.5445.0>,undefined},
{route,<<"zt-2203857">>,<<"zt-2203857">>,<0.5406.0>,
{apply,ejabberd_local,route}}]
(ejabberd@localhost)2>
(閲戝簡鐨勪笓鏍?2016.8)
鎸夊紑鍙戝叆闂ㄧ殑璇存槑錛宮od_echo鏄渶綆鍗曠殑妯″潡涔嬩竴銆?br />https://docs.ejabberd.im/developer/
褰撶劧 mod_hello_world 鍙湁寮濮嬪拰緇撴潫鏃ュ織錛屾病鏈夊疄闄呭姛鑳斤紝姣?mod_echo 鏇寸畝鍗曘?br />
閰嶇疆璇存槑涓瀹氳鐪嬶紝鍥犱負鍏朵腑鏈夋ā鍧楀姛鑳界殑綆浠嬶細
https://docs.ejabberd.im/admin/guide/configuration/#modecho
娌＄湅鍔熻兘綆浠嬶紝鐩存帴鐪嬩唬鐮侊紝緇撴灉琚?do_client_version/3 緇欏紩鍏ヤ簡姝ч斻?br />
echo妯″潡瀹炵幇浜唀cho鍔熻兘錛屽悜鐗瑰畾鍩熷悕鐨勭敤鎴峰彂閫佽亰澶╂秷鎭紝浼氬師鏍瘋繑鍥炪?br />
嫻嬭瘯鍥撅細
echo鍩熷悕鏄彲閰嶇疆鐨勶細
modules:
mod_echo:
host: "echo_x.mydomain"
緙虹渷涓?"echo.@HOST@", 鍏朵腑@HOST@浼氳鏇挎崲鎴愭湇鍔″櫒鍩熷悕銆?br />
浠ｇ爜涓殑 do_client_version/3 婕旂ず浜?route + receive 鍙戦佸茍鏀跺彇搴旂瓟錛?br />浣嗘槸涓巈cho鍔熻兘鏃犲叧錛屽彲浠ュ拷鐣ヨ鍑芥暟銆?br />
echo鍔熻兘鏄?register_route/2 瀹屾垚鐨勶紝
ejabberd_route:register_route(MyHost, Host)
琛ㄧず浠嶩ost鍒癕yHost鐨勬秷鎭渶瑕佹湰妯″潡鏉ヨ礬鐢便?br />Host鏄湇鍔″櫒鍚嶏紝MyHost鏄厤緗殑mod_echo.host.
鍙互鏌ョ湅route琛細
(ejabberd@localhost)1> ets:tab2list(route).
[{route,<<"pubsub.zt-2203857">>,<<"zt-2203857">>,<0.5500.0>,
undefined},
{route,<<"echox.zt-2203857">>,<<"zt-2203857">>,<0.5492.0>,
undefined},
{route,<<"conference.zt-2203857">>,<<"zt-2203857">>,
<0.5445.0>,undefined},
{route,<<"zt-2203857">>,<<"zt-2203857">>,<0.5406.0>,
{apply,ejabberd_local,route}}]
(ejabberd@localhost)2>
璺敱娑堟伅鍦?handle_info 涓鐞嗭紝瀹冨皢鏉ユ簮鍜岀洰鐨勮皟鎹竴涓嬶紝鐒跺悗璋冪敤 route() 鍙戦佸師鍖呫?/p>
]]>
(閲戝簡鐨勪笓鏍?2016.8)
鐢╮ebar緙栬瘧ejabberd婧愮爜錛岀劧鍚庡鍒剁紪璇戞墍寰梑eam鏂囦歡鍒癳jabberd瀹夎鐩綍錛?br />璋冪敤ejabberdctl鐑洿鏂般?br />
call rebar compile skip_deps=true
REM Need write right to ejabberd dir.
copy ebin\*.beam "C:\Program Files\ejabberd-16.08\lib\ejabberd-16.08\ebin\"
echo Update ejabberd.
call "C:\Program Files\ejabberd-16.08\bin\ejabberdctl.cmd" update all
]]>
鎼緩ejabberd闆嗙兢
(閲戝簡鐨勪笓鏍?2016.8)
浠?鍙版満鍣ㄦ惌寤轟竴涓猠jabberd闆嗙兢銆?br />
2鍙版満鍣ㄩ兘鏄緗戜竴鍧楃綉鍗★紝鍐呯綉鍙︿竴鍧楃綉鍗°?br />鏂板緩涓涓煙鍚嶏紝娣誨姞2鍙版満鍣ㄧ殑澶栫綉IP.
鍒嗗埆鐢ㄦ簮鐮佸畨瑁卐jabberd錛屽彲浠ュ崟鏈鴻繍琛屻?br />
澶嶅埗 .erlang.cookie, 浣?鍙版満鍣ㄩ兘鍚屻?br />
鏇存敼 /sbin/ejabberdctl
ERLANG_NODE=ejabberd@localhost 鏀逛負
ERLANG_NODE=ejabberd@192.168.7.160
鍗砽ocalhost鏀逛負鍐呯綉IP
鍚姩澶辮觸錛?br />[error] <0.63.0>@ejabberd_app:start_elixir_application:245 Elixir application not started.
[critical] <0.63.0>@ejabberd_app:db_init:127 Node name mismatch: I'm [ejabberd@192.168.7.160], the database is owned by [ejabberd@localhost]
[critical] <0.63.0>@ejabberd_app:db_init:129 Either set ERLANG_NODE in ejabberdctl.cfg or change node name in Mnesia
[error] <0.62.0> CRASH REPORT Process <0.62.0> with 0 neighbours exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131 in application_master:init/4 line 134
[info] <0.31.0> Application ejabberd exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131
鍥犱負Mnesia搴撲腑浣跨敤浜嗘棫鐨勮妭鐐瑰悕
[root@host-192-168-7-160 ~]# ejabberdctl mnesia
[{auto_repair,true},
{backup_module,mnesia_backup},
{db_nodes,[ejabberd@localhost]},
鍒犻櫎鏃у簱銆?br />
[root@host-192-168-7-160 ejabberd]# pwd
/var/lib/ejabberd
[root@host-192-168-7-160 ejabberd]# ls
caps_features.DAT muc_registered.DCD pubsub_index.DCD sr_group.DCD
DECISION_TAB.LOG muc_room.DCD pubsub_item.DAT sr_user.DCD
irc_custom.DCD oauth_token.DCD pubsub_node.DCD vcard.DAT
last_activity.DCD offline_msg.DAT pubsub_state.DCD vcard_search.DCD
LATEST.LOG passwd.DCD roster.DCD
motd.DCD privacy.DCD roster_version.DCD
motd_users.DCD private_storage.DAT schema.DAT
[root@host-192-168-7-160 ejabberd]# rm -f *
[root@host-192-168-7-160 ejabberd]#
鏇存敼 ejabberd.yml:
hosts:
- "my_domain.cn"
# - "localhost"
鍏堝惎鍔?ejabberd@192.168.7.160錛岀劧鍚庡惎鍔ㄥ彟涓鑺傜偣錛屽茍璁╄鑺傜偣鍔犲叆闆嗙兢錛?br />ejabberdctl join_cluster 'ejabberd@192.168.7.160'
[root@host-192-168-7-159 ejabberd]# ejabberdctl list_cluster
'ejabberd@192.168.7.160'
'ejabberd@192.168.7.159'
[root@host-192-168-7-159 ejabberd]#
(閲戝簡鐨勪笓鏍?2016.8)
浠?鍙版満鍣ㄦ惌寤轟竴涓猠jabberd闆嗙兢銆?br />
2鍙版満鍣ㄩ兘鏄緗戜竴鍧楃綉鍗★紝鍐呯綉鍙︿竴鍧楃綉鍗°?br />鏂板緩涓涓煙鍚嶏紝娣誨姞2鍙版満鍣ㄧ殑澶栫綉IP.
鍒嗗埆鐢ㄦ簮鐮佸畨瑁卐jabberd錛屽彲浠ュ崟鏈鴻繍琛屻?br />
澶嶅埗 .erlang.cookie, 浣?鍙版満鍣ㄩ兘鍚屻?br />
鏇存敼 /sbin/ejabberdctl
ERLANG_NODE=ejabberd@localhost 鏀逛負
ERLANG_NODE=ejabberd@192.168.7.160
鍗砽ocalhost鏀逛負鍐呯綉IP
鍚姩澶辮觸錛?br />[error] <0.63.0>@ejabberd_app:start_elixir_application:245 Elixir application not started.
[critical] <0.63.0>@ejabberd_app:db_init:127 Node name mismatch: I'm [ejabberd@192.168.7.160], the database is owned by [ejabberd@localhost]
[critical] <0.63.0>@ejabberd_app:db_init:129 Either set ERLANG_NODE in ejabberdctl.cfg or change node name in Mnesia
[error] <0.62.0> CRASH REPORT Process <0.62.0> with 0 neighbours exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131 in application_master:init/4 line 134
[info] <0.31.0> Application ejabberd exited with reason: node_name_mismatch in ejabberd_app:db_init/0 line 131
鍥犱負Mnesia搴撲腑浣跨敤浜嗘棫鐨勮妭鐐瑰悕
[root@host-192-168-7-160 ~]# ejabberdctl mnesia
[{auto_repair,true},
{backup_module,mnesia_backup},
{db_nodes,[ejabberd@localhost]},
鍒犻櫎鏃у簱銆?br />
[root@host-192-168-7-160 ejabberd]# pwd
/var/lib/ejabberd
[root@host-192-168-7-160 ejabberd]# ls
caps_features.DAT muc_registered.DCD pubsub_index.DCD sr_group.DCD
DECISION_TAB.LOG muc_room.DCD pubsub_item.DAT sr_user.DCD
irc_custom.DCD oauth_token.DCD pubsub_node.DCD vcard.DAT
last_activity.DCD offline_msg.DAT pubsub_state.DCD vcard_search.DCD
LATEST.LOG passwd.DCD roster.DCD
motd.DCD privacy.DCD roster_version.DCD
motd_users.DCD private_storage.DAT schema.DAT
[root@host-192-168-7-160 ejabberd]# rm -f *
[root@host-192-168-7-160 ejabberd]#
鏇存敼 ejabberd.yml:
hosts:
- "my_domain.cn"
# - "localhost"
鍏堝惎鍔?ejabberd@192.168.7.160錛岀劧鍚庡惎鍔ㄥ彟涓鑺傜偣錛屽茍璁╄鑺傜偣鍔犲叆闆嗙兢錛?br />ejabberdctl join_cluster 'ejabberd@192.168.7.160'
[root@host-192-168-7-159 ejabberd]# ejabberdctl list_cluster
'ejabberd@192.168.7.160'
'ejabberd@192.168.7.159'
[root@host-192-168-7-159 ejabberd]#
]]>
(閲戝簡鐨勪笓鏍?
瀹夎 erlang OTP. 娣誨姞璺緞鍒?PATH, 浣?erl 鍙互榪愯銆?br />
git clone ejabberd
瀹夎 rebar:
git clone git@github.com:rebar/rebar.git
E:\Git\rebar>bootstrap.bat
escript: exception error: no match of right hand side value "鎵句笉鍒?E:\\Git\\reb
ar\\ebin\\rebar.beam\r\n"
鍏堝垱寤?ebin\rebar.beam銆傝錛歨ttps://github.com/rebar/rebar/issues/613
澶嶅埗鐢熸垚鐨?rebar.cmd 鍒?ejabberd 鐩綍銆傚叾瀹炲氨鍑犺浠ｇ爜錛?br />setlocal
set rebarscript=%~f0
escript.exe "%rebarscript:.cmd=%" %*
rebar.cmd get-deps
Cloning into 'p1_xmlrpc'...
Pulling luerl from {git,"https://github.com/rvirding/luerl",{tag,"v0.2"}}
Cloning into 'luerl'...
'sh' 涓嶆槸鍐呴儴鎴栧閮ㄥ懡浠わ紝涔熶笉鏄彲榪愯鐨勭▼搴?br />鎴栨壒澶勭悊鏂囦歡銆?br />ERROR: Command ['get-deps'] failed!
鏇存敼 rebar.config.script錛屽幓闄h, 鏀逛負
{'get-deps', ""}
灝?ejabberd.app.src.in 澶嶅埗涓?ejabberd.app.src錛屾洿鏀瑰叾涓殑鍙橀噺錛?br />E:\Git\ejabberd>rebar compile skip_deps=true
==> rel (compile)
==> ejabberd (compile)
deps 娌℃湁緙栬瘧錛屽彲浠ヤ嬌鐢ㄥ畨瑁呭寘銆?br />鍙渶鏇挎崲鏈夋洿鏂扮殑beam鏂囦歡鍒板畨瑁呯洰褰曘?br />
琛ュ厖錛?br />
E:\Git\ejabberd_jinq0123>rebar compile skip_deps=true
==> rel (compile)
==> ejabberd_jinq0123 (compile)
Compiled asn1/XmppAddr.asn1
Compiled src/eldap_filter_yecc.yrl
e:/Git/ejabberd_jinq0123/src/ejabberd_config.erl:none: undefined parse transform
'lager_transform'
ERROR: compile failed while processing E:/Git/ejabberd_jinq0123: rebar_abort
欏誨厛鐢?rebar compile 緙栬瘧 lager. 鍏朵粬鏃犳硶緙栬瘧鐨勫彲蹇界暐錛岀劧鍚庡啀
==> rel (compile)
==> ejabberd_jinq0123 (compile)
Compiled asn1/XmppAddr.asn1
Compiled src/eldap_filter_yecc.yrl
e:/Git/ejabberd_jinq0123/src/ejabberd_config.erl:none: undefined parse transform
'lager_transform'
ERROR: compile failed while processing E:/Git/ejabberd_jinq0123: rebar_abort
欏誨厛鐢?rebar compile 緙栬瘧 lager. 鍏朵粬鏃犳硶緙栬瘧鐨勫彲蹇界暐錛岀劧鍚庡啀
rebar compile skip_deps=true
]]>
Erlang Port 灝忓績鎹㈣
(閲戝簡鐨勪笓鏍?
Erlang鐨凱ort鎺ュ彛浣跨敤cin, cout涓庡閮≒ort榪涚▼閫氫俊銆?br />
涓鑸琽pen_port()鐢╞inary妯″紡鎵撳紑銆?br />
Port = open_port({spawn, PortExe},
[{packet, 4}, binary, use_stdio]),
姝ゆ椂欏誨皬蹇働ort榪涚▼鍦╓indows涓婅緭鍑?\n 鍓嶄細鑷姩娣誨姞 \r銆?br />PortExe鍙戦?
<<10,11,84,101,115,116,77,101,115,115,97,103,101,18,10,10,8,98,98,98,98,98,98,98,98>>
Erlang鎺ユ敹鎴愪負錛?nbsp;
<<13,10,11,84,101,115,116,77,101,115,115,97,103,101,18,13,10,13,10,8,98,98,98,98,98>>
闇瑕佸皢Port榪涚▼鐨剆tdin, stdout璁句負浜岃繘鍒舵ā寮忥細
void set_binary_mode()
{
#if defined(WIN32)
int result;
result = _setmode(_fileno(stdin), _O_BINARY);
if (-1 == result)
{
perror("set mode");
exit(1);
}
result = _setmode(_fileno(stdout), _O_BINARY);
if (-1 == result)
{
perror("set mode");
exit(1);
}
#endif
}
(閲戝簡鐨勪笓鏍?
Erlang鐨凱ort鎺ュ彛浣跨敤cin, cout涓庡閮≒ort榪涚▼閫氫俊銆?br />
涓鑸琽pen_port()鐢╞inary妯″紡鎵撳紑銆?br />
Port = open_port({spawn, PortExe},
[{packet, 4}, binary, use_stdio]),
姝ゆ椂欏誨皬蹇働ort榪涚▼鍦╓indows涓婅緭鍑?\n 鍓嶄細鑷姩娣誨姞 \r銆?br />PortExe鍙戦?
<<10,11,84,101,115,116,77,101,115,115,97,103,101,18,10,10,8,98,98,98,98,98,98,98,98>>
Erlang鎺ユ敹鎴愪負錛?nbsp;
<<13,10,11,84,101,115,116,77,101,115,115,97,103,101,18,13,10,13,10,8,98,98,98,98,98>>
闇瑕佸皢Port榪涚▼鐨剆tdin, stdout璁句負浜岃繘鍒舵ā寮忥細
void set_binary_mode()
{
#if defined(WIN32)
int result;
result = _setmode(_fileno(stdin), _O_BINARY);
if (-1 == result)
{
perror("set mode");
exit(1);
}
result = _setmode(_fileno(stdout), _O_BINARY);
if (-1 == result)
{
perror("set mode");
exit(1);
}
#endif
}
]]>
(閲戝簡鐨勪笓鏍?
Erlang寮鍙戜嬌鐢↖DEA IDE鍙互璁劇疆澶栭儴宸ュ叿Dialyzer, 鐒跺悗灝卞彲浠ョ洿鎺?br />Tools->External Tools -> dialyzer 璋冪敤榪涜浠ｇ爜鍒嗘瀽銆?br />
閰嶇疆鏂規硶涓猴細
File | Settings | Tools | External Tools
闇瑕佹坊鍔犲弬鏁?-r $ProjectFileDir$/ebin
杈撳嚭紺轟緥錛?br />dialyzer -r D:\ServerSix/ebin
Checking whether the PLT C:\dailyzer_plt is up-to-date... yes
Proceeding with analysis...
b_pb.erl:81: Guard test is_list(Records::tuple()) can never succeed
b_pb.erl:85: Guard test is_list(Records::tuple()) can never succeed
b_pb.erl:90: Guard test is_list(Records::tuple()) can never succeed
鍥犱負dialyzer杈撳嚭鏈夎澶氳鍛婏紝鎴戜細灝嗚緭鍑哄瓨涓?dialyzer_output.txt, 鍔犲叆SVN錛?br />姣忔鍒嗘瀽涓庝笂嬈″垎鏋愪粎闇鏌ョ湅宸紓銆?/div>
]]>
(閲戝簡鐨勪笓鏍?
sample/a_hello.erl 榪炴帴鏈満鏇存敼涓鴻繛鎺ュ眬鍩熺綉鍐呯殑MySql鏈嶅姟鍣細
emysql:add_pool(hello_pool, [{size,1},
{host, "192.168.1.2"},
...
緙栬瘧榪愯鏃朵細鍑虹幇瓚呮椂閫鍑猴細
D:\...\deps\emysql\samples>erl -pa ../ebin -s a_hello run -s init stop -noshell
add_pool...{"init terminating in do_boot",{{nocatch,{failed_to_recv_packet_header,timeout}},[{init,start_it,1,[{file,"init.erl"},{line,1062}]},{init,start_em,1,[{file,"init.erl"},{line,1034}]}]}}
Crash dump is being written to: erl_crash.dump...done
init terminating in do_boot ()
璁劇疆 default_timeout 鍙傛暟涓?10s 灝卞彲浠ユ垚鍔燂細
D:\...\deps\emysql\samples>erl -pa ../ebin -s a_hello run -s init
stop -noshell -emysql default_timeout 10000
鏌ョ湅浠ｇ爜錛岀己鐪佺殑 default_timeout 涓?s銆?br />褰揗ySql娌℃湁skip-name-resolve鏃訛紝榪炴帴MySql闇瑕佽繎10縐掓墠鑳借繛涓婏紝
鎵浠ュ緢瀹規槗鍑虹幇瓚呮椂閿欒銆?br />
宸叉彁浜ら棶棰橈細
https://github.com/Eonblast/Emysql/issues/174
]]>
(閲戝簡鐨勪笓鏍?
鍦╝pplication琛屼負妯″潡鐨剆tart()涓惎鍔╞son搴旂敤錛屽湪stop()涓仠姝son錛?br />緇撴灉application:stop(bson)浼氭閿併?br />
-module(my_app).
-behaviour(application).
%% Application callbacks
-export([start/2, stop/1]).
%% ===================================================================
%% Application callbacks
%% ===================================================================
start(_StartType, _StartArgs) ->
ok = application:start(bson),
{ok, Pid} = my_sup:start_link(),
{ok, Pid}.
stop(_State) ->
application:stop(bson),
ok.
鍙傝?How to stop third-party Erlang applications
http://stackoverflow.com/questions/2305511/how-to-stop-third-party-erlang-applications
鎵嶆槑鐧絪top()鏄洖璋冿紝鍦ㄥ洖璋冧腑璇曞浘鍋滄鍏朵粬搴旂敤灝變細姝婚攣銆?br />stop()鏄簲鐢ㄦ帶鍒跺櫒鍥炶皟鐨勶紝搴旂敤鎺у埗鍣ㄥ湪絳夊緟鍥炶皟榪斿洖鏃訛紝鏃犳硶鍝嶅簲application:stop()璇鋒眰錛屾墍浠ユ閿佷簡銆?br />
]]>
錛堥噾搴嗙殑涓撴爮錛?br />
Erlang騫惰鏈嶅姟鍣ㄤ負姣忎釜Tcp榪炴帴鍒涘緩瀵瑰簲鐨勮繛鎺ヨ繘紼嬶紝澶勭悊瀹㈡埛绔暟鎹?br />
鍙傝?Erlang紼嬪簭璁捐錛堢2鐗堬級
17.1.3 欏哄簭鍜屽茍琛屾湇鍔″櫒
騫惰鏈嶅姟鍣ㄧ殑璇紿嶆槸錛氭瘡褰揼en_tcp:accept鏀跺埌涓涓柊榪炴帴鏃跺氨绔嬪嵆鍒嗚涓涓柊榪涚▼銆?br />涓烘瘡涓柊濂楁帴瀛楄繛鎺ュ垱寤轟竴涓茍琛岃繘紼嬨?br />
-module(gs_svr).
-author("jinqing").
-behaviour(gen_server).
%% API
-export([start_link/0]).
init([]) ->
gs_listener:start_parallel(),
{ok, #{}}.
gs_svr(GameServer gen_server)鍚姩Tcp鐩戝惉錛屽茍緇存姢榪炴帴錛屽榪炴帴璁℃暟錛屽彂閫佸箍鎾?br />
start_parallel()鍒涘緩鐩戝惉绔彛錛岀劧鍚庡垱寤鴻繛鎺ヨ繘紼嬨?br />
start_parallel() ->
Port = server_csv:get_my_port(),
lager:info("Starting game server on port ~p...", [Port]),
{ok, ListenSocket} = gen_tcp:listen(Port,
[binary, {packet, 4},
{packet_size, 256 * 1024}, % limit packet size
{reuseaddr, true},
{nodelay, true},
{backlog, 999999},
{active, once}]),
connection:spawn_connection(ListenSocket).
spawn_connection()鍒涘緩榪炴帴榪涚▼銆傛瘡鎺ュ彈涓涓繛鎺ュ氨鍐嶅垱寤轟竴涓柊鐨勮繛鎺ヨ繘紼嬨?br />
-module(connection).
-author("jinqing").
%% API
-export([spawn_connection/1]).
-export([parallel_connect/1, loop/2]).
-spec spawn_connection(ListenSocket :: gen_tcp:socket()) -> pid().
spawn_connection(ListenSocket) ->
spawn(fun() -> ?MODULE:parallel_connect(ListenSocket) end).
-spec parallel_connect(ListenSocket :: gen_tcp:socket()) -> ok.
parallel_connect(ListenSocket) ->
{ok, Socket} = gen_tcp:accept(ListenSocket),
spawn_connection(ListenSocket),
gs_svr:cast_connection_new(self()),
ConnStat = conn_stat:new(),
erlang:send_after(1000, self(), timer_sec),
try ?MODULE:loop(Socket, ConnStat)
catch
Type:E -> lager:error("loop() ~p:~p. ~p",
[Type, E, erlang:get_stacktrace()])
end,
gs_svr:cast_connection_ended(self()),
ok.
-spec loop(Socket :: gen_tcp:socket(), ConnStat :: conn_stat:conn_stat()) -> any().
loop(Socket, ConnStat) ->
receive
{tcp, Socket, Bin} ->
NewConnStat = rpc_handler:handle_bin(Socket, Bin, ConnStat),
inet:setopts(Socket, [{active, once}]),
NewConnStat2 = cutil_dos_checker:on_data(size(Bin), NewConnStat),
?MODULE:loop(Socket, NewConnStat2#{idle_sec=>0});
{tcp_closed, Socket} ->
save_on_end(ConnStat);
{tcp_error, Socket, Reason} ->
save_on_end(ConnStat);
{gs_to_connection, Msg} ->
NewConnStat = handle_gs_msg(Msg, Socket, ConnStat),
?MODULE:loop(Socket, NewConnStat);
timer_sec ->
case conn_timer:timer_sec(ConnStat) of
{ok, NewConnStat} ->
erlang:send_after(1000, self(), timer_sec),
?MODULE:loop(Socket, NewConnStat);
end;
Other ->
lager:error("Unknown msg: ~p", [Other]),
?MODULE:loop(Socket, ConnStat)
end. % This is tail-recursive.
緙虹偣鏄繛鎺ヨ繘紼嬫病鏈夊姞鍏ョ洃鎺ф爲銆俫s_svr鍑洪敊閲嶅惎鏃訛紝榪炴帴榪涚▼connection搴旇鏂紑騫墮鍑恒?/div>
]]>
Residence module
The module where a process has its tail-recursive loop function(s).
If the tail-recursive loop functions are implemented in several modules,
all those modules are residence modules for the process.
Functional module
A module which is not a residence module for any process.
Note that for a process implemented using an OTP behaviour,
the behaviour module is the residence module for that process.
The callback module is a functional module.
甯擱┗妯″潡鏄寚loop()鍑芥暟鎵鍦ㄦā鍧楋紝鍏朵粬妯″潡涓哄姛鑳芥ā鍧椼?br />瀵逛簬OTP琛屼負錛岃涓烘ā鍧楁槸甯擱┗妯″潡錛屽洖璋冩ā鍧楁槸鍔熻兘妯″潡銆?br />
琛屼負妯″潡宸茬敱OTP瀹炵幇銆?br />
]]>
錛堥噾搴嗙殑涓撴爮錛?br />
gen_server with a dict vs mnesia table vs ets
http://stackoverflow.com/questions/2154376/gen-server-with-a-dict-vs-mnesia-table-vs-ets
緇欏嚭涓涓寜搴旂敤綾誨瀷閫夋嫨鐨勬柟娉曪細
Multiple processes on multiple VMs -> mnesia
Multiple processes on one VM -> ets/dets
One process -> bag/dict/...
Frequently Asked Questions about Erlang
February 22 2011
6.2 Is there a collection of data structures, e.g. balanced trees?
http://ftp.sunet.se/pub/lang/erlang/faq/libraries.html#id55214
鏃х増FAQ涓湁浠ヤ笅璇存槑錛?br />
In practice, Erlang programs use lists (either natively or via dict) for data structures involving up to a few hundred elements and use ETS (the Erlang Term Store) or mnesia for anything larger. ETS uses hashing to allow near constant-time access to almost arbitrarily large amounts of data.
For a collection of data consisting of a few (tens or hundreds) items, lists often outperform both ETS and trees. For large numbers of small items, ETS tends to work best. For larger items, balanced trees can outperform ETS because they avoid copying the data.
浣嗘槸鏂扮増FAQ涓垹闄や簡浠ヤ笂榪欎簺璇存槑錛屼及璁℃柊鐗堟湰涓湁浜嗗彉鍖栵紵
Frequently Asked Questions about Erlang
April 20 2015
6.2 Is there a collection of data structures, e.g. balanced trees?
http://www.erlang.org/faq/libraries.html#idp33085264
Erlang寮鍙戝緩璁?鏉傝鐗?
http://erlangdisplay.iteye.com/blog/374167
緇欏嚭浜嗘牴鎹妯￠夋嫨鐨勮寖鍥達紝搴旇鏄寜鏃х増FAQ浣滃嚭鐨勶細
Suggestion錛?br />elments count: 0 錛?100 | 100 - 10000 | 10000 -
our select : list | ets | gb_tree
]]>
浣跨敤rebar doc鏉ョ敓鎴愰」鐩枃妗ｃ?br />浣嗘槸褰揺rl婧愭枃浠剁洰褰晄rc涓嬪緩绔嬪瓙鐩綍錛屽茍鏂板緩erlang鏂囦歡鍚庯紝灝辨棤娉曠敓鎴愭枃妗ｃ?br />
渚嬪錛屾柊寤?src/tttt/, 騫舵坊鍔?dd_util.erl 鏂囦歡銆?br />
D:\six>d:/tools/rebar/rebar.cmd doc==> six (doc)
ERROR: doc failed while processing D:/six: {'EXIT',{function_clause,[{edoc,expan
d_sources,
[[{tttt,"dd_util.erl","./src/tttt"},
{'',"gateway_http.erl","./src"},
{'',"six.erl","./src"},
{'',"six_app.erl","./src"},
{'',"six_sup.erl","./src"}],
".erl",
{set,0,16,16,8,80,48,
{[],[],[],[],[],[],[],[],[],[],[],[],[],
[],[],[]},
{{[],[],[],[],[],[],[],[],[],[],[],[],
[],[],[],[]}}},
[],[]],
[{file,"edoc.erl"},{line,459}]},
{edoc,run,3,[{file,"edoc.erl"},{line,378}]},
{rebar_edoc,doc,2,
[{file,"src/rebar_edoc.erl"},{line,63}]},
{rebar_core,run_modules,4,
[{file,"src/rebar_core.erl"},
{line,491}]},
{rebar_core,execute,6,
[{file,"src/rebar_core.erl"},
{line,416}]},
{rebar_core,maybe_execute,8,
[{file,"src/rebar_core.erl"},
{line,300}]},
{rebar_core,process_dir1,7,
[{file,"src/rebar_core.erl"},
{line,259}]},
{rebar_core,process_commands,2,
[{file,"src/rebar_core.erl"},
{line,91}]}]}}
D:\six>
鍦╮ebar.config涓坊鍔犲弬鏁皗packages, false}瑙ｅ喅浜嗐?br />
{deps, [{mysql, ".*", {git, "https://github.com/dizzyd/erlang-mysql-driver.git"}},
{lager, ".*", {git, "https://github.com/basho/lager.git"}},
{mochiweb, ".*", {git, "https://github.com/mochi/mochiweb.git"}}]}.
{erl_opts, [{parse_transform, lager_transform}]}.
{edoc_opts, [{packages, false}]}.
澶ф鏄疎rlang澶氬眰鐩綍浼氬緩绔?#8220;subpackages”錛屽簲璇ュ氨鏄ā鍧楀悕瀛楃┖闂達細
If the source code is organized in a hierarchy of subdirectories although it does not use packages, use no_packages
浣嗘槸娌℃湁鎵懼埌鐩稿叧鐨勬枃妗ｏ紝涓嶇煡閬撳浣曞緩绔嬪瓙鍖呫?br />
鍙傝冿細
http://www.erlang.org/documentation/doc-5.8.4/lib/edoc-0.7.8/doc/html/edoc.html#run-3
http://www.erlang.org/documentation/doc-5.8.4/lib/edoc-0.7.8/doc/html/chapter.html#Running_EDoc
]]>
Erlang鑺傜偣鐩稿悓cookie鍏ㄤ簰鑱旀垚涓轟竴涓泦緹わ紙cluster錛?
濡傛灉2涓泦緹や笉鍚宑ookie, 鐒跺悗鍏朵腑鏈夎妭鐐硅繛鎺ュ埌瀵規柟闆嗙兢鐨勮妭鐐癸紝
榪?涓泦緹や細鍚堝茍鎴愪竴涓泦緹ゅ悧錛?br />
榪炴帴鍒板彟涓涓泦緹ゆ椂錛岄渶瑕佸厛璁劇疆cookie錛屼笉鐒朵細琚嫆緇濄?br />erlang:set_cookie(Node2, DiffCookie)
闆嗙兢aaaa鏈夎妭鐐筧1, a2, cookie涓?cookie_aaaa.
闆嗙兢bbbb鏈夎妭鐐筨1, b2, cookie涓?cookie_bbbb.
>erl -sname a1 -setcookie cookie_aaaa
...
>erl -sname a2 -setcookie cookie_aaaa
Eshell V6.3 (abort with ^G)
(a2@jinqing)3> net_adm:ping(a1@jinqing).
pong
(a2@jinqing)4> nodes().
[a1@jinqing]
>erl -sname b1 -setcookie cookie_bbbb
...
>erl -sname b2 -setcookie cookie_bbbb
(b2@jinqing)2> net_adm:ping(b1@jinqing).
pong
(b2@jinqing)3> nodes().
[b1@jinqing]
bbbb鑺傜偣鏃犳硶鐩存帴榪瀉aaa鑺傜偣
(b2@jinqing)4> net_adm:ping(a1@jinqing).
pang
b2鑺傜偣鏇存敼cookie鍚庯紝浠嶄繚鎸佷笌b1鐨勮繛鎺ャ?br />(b2@jinqing)6> erlang:get_cookie().
cookie_bbbb
(b2@jinqing)7> erlang:set_cookie(node(), abcd).
true
(b2@jinqing)8> erlang:get_cookie().
abcd
(b2@jinqing)9> nodes().
[b1@jinqing]
(b2@jinqing)10>
b2璁劇疆cookie騫惰繛鎺2鍚庯紝b2榪涘叆浜哸aaa闆嗙兢, 鍚屾椂鍙堝湪bbbb闆嗙兢銆?br />(b2@jinqing)10> erlang:set_cookie(node(), cookie_aaaa).
true
(b2@jinqing)11> erlang:get_cookie().
cookie_aaaa
(b2@jinqing)12> nodes().
[b1@jinqing]
(b2@jinqing)13> net_adm:ping(a2@jinqing).
pong
(b2@jinqing)14> nodes().
[b1@jinqing,a2@jinqing,a1@jinqing]
(b2@jinqing)15>
瀹為檯涓婃槸aaaa闆嗙兢鐜版湁3涓妭鐐癸細a1, a2, b2.
bbbb闆嗙兢浠嶇劧鏄?涓妭鐐癸細b1, b2.
(a1@jinqing)2> nodes().
[a2@jinqing,b2@jinqing]
(a2@jinqing)5> nodes().
[a1@jinqing,b2@jinqing]
(b1@jinqing)3> nodes().
[b2@jinqing]
姝ゆ椂 a2 ping b2 鏄氱殑錛屼絾鏄笉浼氬姞鍏?bbbb 闆嗙兢銆?br />(a2@jinqing)6> net_adm:ping(b2@jinqing).
pong
(a2@jinqing)7> nodes().
[a1@jinqing,b2@jinqing]
(a2@jinqing)8>
緇撴灉鏄?涓泦緹ゅ彲浠ユ湁浜ら泦銆?/p>