Erlang学习:MochiWeb + ERedis

原创 2013年12月02日 08:05:26

接上篇:http://blog.csdn.net/kunshan_shenbin/article/details/17066221

启动Redis,教程:http://redis.io/

loop(Req, DocRoot) ->
    "/" ++ Path = Req:get(path),
    try
        case Req:get(method) of
            Method when Method =:= 'GET'; Method =:= 'HEAD' ->
                case Path of
                    _ ->
                        %Req:serve_file(Path, DocRoot)
						{ok, Client} = eredis:start_link("127.0.0.1", 6379, 0, ""),
						{{Y,M,D},{H,I,S}} = calendar:local_time(),
						Date = string:join([integer_to_list(Y), integer_to_list(M), integer_to_list(D)], "-"),
						Time = string:join([integer_to_list(H), integer_to_list(I), integer_to_list(S)], ":"),
						{ok, <<"OK">>} = eredis:q(Client, ["SET", "datetime", Date ++ " " ++ Time]),
						{ok, Result} = eredis:q(Client, ["GET", "datetime"]),
						Req:respond({200, [{"Content-Type", "text/plain"}], Result}),
						eredis:stop(Client)
                end;
            'POST' ->
                case Path of
                    _ ->
                        Req:not_found()
                end;
            _ ->
                Req:respond({501, [], []})
        end
    catch
        Type:What ->
            Report = ["web request failed",
                      {path, Path},
                      {type, Type}, {what, What},
                      {trace, erlang:get_stacktrace()}],
            error_logger:error_report(Report),
            %% NOTE: mustache templates need \ because they are not awesome.
            Req:respond({500, [{"Content-Type", "text/plain"}],
                         "request failed, sorry\n"})
    end.


标准模板库(1)

 标准模板库作者:Alexander Stepanov, Meng Lee翻译:kary『这篇文章有些地方自己也不太懂。本来不想上传的,只是因为看看现在的某些出版社实在太黑心了。有些书本来没多少页数,...
  • kary
  • kary
  • 2002-05-27 09:25:00
  • 1428

【erlang 使用】eredis 介绍

简单介绍 erlang redis 的使用方法
  • natloc
  • natloc
  • 2015-12-20 18:58:08
  • 1354

Erlang学习~ Mochiweb的设计分析

Web服务器的基本工作大致分3步:  接收HTTP请求;  处理HTTP请求,生成响应内容; 发送响应 一、处理请求和发送响应  模块mochiweb_request可说是M...
  • dp0304
  • dp0304
  • 2011-11-20 22:47:39
  • 5277

[Erlang]图解分析Mochiweb web server

一、图解分析mochiweb web server 首先,建立web.app 文件 web_app.erl main启动启动监督gen_server  根据监督策略 执行到 web_web:sta...
  • abv123456789
  • abv123456789
  • 2014-11-03 17:48:07
  • 1355

mochiweb 的使用

1. 下载 linux 系统下输入以下步骤指令 $cd /home $git clone https://github.com/mochi/mochiweb.git $cd mochiweb2. 创建...
  • bojie5744
  • bojie5744
  • 2015-09-10 11:04:57
  • 473

erlang 之redis

erlang的redis    https://github.com/gar1t/erlang-redis
  • u014602979
  • u014602979
  • 2014-08-06 22:15:41
  • 652

Erlang学习:MochiWeb + EMySQL

1. 下载MochiWeb git clone git://github.com/mochi/mochiweb.git 2. 创建工程 $ cd mochiweb $ make app PROJE...
  • kunshan_shenbin
  • kunshan_shenbin
  • 2013-12-02 07:05:08
  • 1418

如何在Erlang中操作Redis?

用ERedis: 下载和编译: git clone git://github.com/wooga/eredis.git cd eredis ./rebar compile 在consol...
  • u012973744
  • u012973744
  • 2014-06-09 11:58:16
  • 2489

erlang 使用】eredis 介绍

github 地址: wooga redis下载地址 目录结构: include/  eredis_sub.hrleredis.hrl src/  eredis...
  • zyh2345666
  • zyh2345666
  • 2017-10-23 16:10:48
  • 157

物联网导论整理

1、 网络协议 Http (Hyper Text Transfer Protocol) 客户端与服务器请求和应答的标准从www服务器传输超文本到本地浏览器。 Https(Hyper Text...
  • stacso
  • stacso
  • 2018-01-14 19:41:16
  • 179
收藏助手
不良信息举报
您举报文章:Erlang学习:MochiWeb + ERedis
举报原因:
原因补充:

(最多只允许输入30个字)