实战 MochiWeb

 

1. 安装erlang

sudo apt-get install erlang

 

2. check erlang mochiweb

svn checkout http://mochiweb.googlecode.com/svn/trunk/ mochiweb-read-only

好象已经迁移到这里了。git最近比较火。

http://github.com/mochi/mochiweb

lanhui@lanhui-desktop:~/mochiweb-read-only$ ls deps ebin include Makefile README src doc examples LICENSE priv scripts support

3. make

lanhui@lanhui-desktop:~/mochiweb-read-only$ make (cd src;make all) make[1]: Entering directory `/home/lanhui/mochiweb-read-only/src' erlc -W -I ../include +debug_info -o ../ebin mochifmt.erl erlc -W -I ../include +debug_info -o ../ebin mochifmt_records.erl erlc -W -I ../include +debug_info -o ../ebin mochifmt_std.erl erlc -W -I ../include +debug_info -o ../ebin mochiglobal.erl erlc -W -I ../include +debug_info -o ../ebin mochihex.erl erlc -W -I ../include +debug_info -o ../ebin mochijson2.erl erlc -W -I ../include +debug_info -o ../ebin mochijson.erl erlc -W -I ../include +debug_info -o ../ebin mochilists.erl erlc -W -I ../include +debug_info -o ../ebin mochilogfile2.erl erlc -W -I ../include +debug_info -o ../ebin mochinum.erl erlc -W -I ../include +debug_info -o ../ebin mochitemp.erl erlc -W -I ../include +debug_info -o ../ebin mochiutf8.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_acceptor.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_app.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_charref.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_cookies.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_cover.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_echo.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_headers.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_html.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_http.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_io.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_mime.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_multipart.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_request.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_response.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_skel.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_socket.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_socket_server.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_sup.erl erlc -W -I ../include +debug_info -o ../ebin mochiweb_util.erl erlc -W -I ../include +debug_info -o ../ebin reloader.erl ../support/make_app.escript mochiweb.app.src ../ebin/mochiweb.app "" "mochifmt mochifmt_records mochifmt_std mochiglobal mochihex mochijson2 mochijson mochilists mochilogfile2 mochinum mochitemp mochiutf8 mochiweb_acceptor mochiweb_app mochiweb_charref mochiweb_cookies mochiweb_cover mochiweb_echo mochiweb mochiweb_headers mochiweb_html mochiweb_http mochiweb_io mochiweb_mime mochiweb_multipart mochiweb_request mochiweb_response mochiweb_skel mochiweb_socket mochiweb_socket_server mochiweb_sup mochiweb_util reloader" make[1]: Leaving directory `/home/lanhui/mochiweb-read-only/src'

4. 生成骨架

lanhui@lanhui-desktop:~/mochiweb-read-only$ escript scripts/new_mochiweb.erl test ./test/ ./test/src/ skel.app Makefile skel_app.erl skel_sup.erl skel.hrl skel_deps.erl skel_web.erl skel.erl ./test/include/ ./test/support/ include.mk run_tests.escript Makefile ./test/priv/ ./test/priv/www/ index.html ./test/doc/ start-dev.sh start.sh ./test/deps/

看看生成的内容吧：

lanhui@lanhui-desktop:~/mochiweb-read-only$ cd test/ lanhui@lanhui-desktop:~/mochiweb-read-only/test$ ls deps doc ebin include Makefile priv src start-dev.sh start.sh support

这个还是要make一下

lanhui@lanhui-desktop:~/mochiweb-read-only/test$ make (cd src;make all) make[1]: Entering directory `/home/lanhui/mochiweb-read-only/test/src' erlc -W -I ../include -I ../deps/mochiweb-src/include -pa ../deps/mochiweb-src/ebin +debug_info -o ../ebin test_app.erl erlc -W -I ../include -I ../deps/mochiweb-src/include -pa ../deps/mochiweb-src/ebin +debug_info -o ../ebin test_deps.erl erlc -W -I ../include -I ../deps/mochiweb-src/include -pa ../deps/mochiweb-src/ebin +debug_info -o ../ebin test.erl erlc -W -I ../include -I ../deps/mochiweb-src/include -pa ../deps/mochiweb-src/ebin +debug_info -o ../ebin test_sup.erl erlc -W -I ../include -I ../deps/mochiweb-src/include -pa ../deps/mochiweb-src/ebin +debug_info -o ../ebin test_web.erl cp test.app ../ebin/test.app make[1]: Leaving directory `/home/lanhui/mochiweb-read-only/test/src'

5. 测试一下：

./start-dev.sh (cd src;make all) make[1]: Entering directory `/home/lanhui/mochiweb-read-only/test/src' make[1]: Nothing to be done for `all'. make[1]: Leaving directory `/home/lanhui/mochiweb-read-only/test/src' Erlang R13B03 (erts-5.7.4) [source] [64-bit] [rq:1] [async-threads:0] [hipe] [kernel-poll:false] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === supervisor: {local,sasl_safe_sup} started: [{pid,<0.36.0>}, {name,alarm_handler}, {mfa,{alarm_handler,start_link,[]}}, {restart_type,permanent}, shutdownown,2000}, {child_type,worker}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === supervisorlocalcal,sasl_safe_sup} started: [{pid,&alt;lt;0.37.0>}, {name,overload}, {mfa,{overload,start_link,[]}}, {restart_type,permanent}, shutdownutdown,2000}, {child_type,worker}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === supervilocal{local,sasl_sup} started: [{pid,&amltamp;lt;0.35.0>}, {name,sasl_safe_sup}, {mfa, {supervisor,start_link, local [{local,sasl_safe_sup},sasl,safe]}}, {restart_type,permanent}, shutdown{shutdown,infinity}, {child_type,supervisor}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === supelocalr: {local,sasl_sup} started: [{pid,&ltmp;amp;lt;0.38.0>}, {name,release_handler}, {mfa,{release_handler,start_link,[]}}, {restart_type,permanent}, shutdown {shutdown,2000}, {child_type,worker}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === application: sasl started_at: nonode@nohost =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === slocalisor: {local,kernel_safe_sup} started: [{pid,&ltp;amp;amp;lt;0.43.0>}, {name,timer_server}, {mfa,{timer,start_link,[]}}, {restart_type,permanent}, shutdown {shutdown,1000}, {child_type,worker}] ** Found inname clashes in code paths Eshell V5.7.4 (abort with ^G) 1> =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === localsupervisor: {local,crypto_sup} started: [ltid,<0.52.0>}, {name,crypto_server}, {mfa,{crypto_server,start_link,[]}}, {restart_type,permanent}, shutdown {shutdown,2000}, {child_type,worker}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === application: crypto started_at: nonode@nohost ** inund 0 name clashes in code paths =PROGRESS REPORT==== 23-Aug-2010::11:57:10 === local supervisor: {local,test_sup} startedlt[{pid,<0.57.0>}, {name,test_web}, {mfa, {test_web,start, "0.0.0.0" [[{ip,"0.0.0.0"}, {port,8000}, {docroot, "/home/lanhui/mochiweb-read-only/test/priv/www"read-only/test/priv/www"}]]}}, {restart_type,permanent}, shutdown {shutdown,5000}, {child_type,worker}] =PROGRESS REPORT==== 23-Aug-2010::11:57:10 ==test application: test started_at: nonode@nohost

 

然后在浏览器地址栏中敲入： http://localhost:8000,页面应当显示 MochiWeb running.

6. 小定制：

case Path of _ ->

代码中加入timer分支：

case Path of "timer" -> Response = Req:ok({"text/plain", chunked}), timer(Response); _ -> Req:serve_file(Path, DocRoot)

get_option函数后增加

timer(Response) -> Response:write_chunk(io_lib:format("This time is: ~p~n", [calendar:local_time()])), timer:sleep(1000), timer(Response).

结果：

在浏览器地址栏敲入： http://localhost:8000/timer

参考：
1. 实战MochiWeb
2. Erlang能否震撼Ruby界
3. 主题：用Mochiweb打造百万级Comet应用，第一部分

转自： http://www.oulan.com/w/2010/08/23/mochiweb-test/