Erlang学习:MochiWeb + EMySQL

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

1. 下载MochiWeb

git clone git://github.com/mochi/mochiweb.git
2. 创建工程

$ cd mochiweb
$ make app PROJECT=mysql_web
3. 修改依赖

$ cd ../mysql_web
修改rebar.config,添加emysql

%% -*- erlang -*-
{erl_opts, [debug_info]}.
{deps, [
  {emysql, ".*",
   {git, "https://github.com/Eonblast/Emysql.git", {branch, "master"}}},
  {mochiweb, ".*",
   {git, "git://github.com/mochi/mochiweb.git", {branch, "master"}}}]}.
{cover_enabled, true}.
{eunit_opts, [verbose, {report,{eunit_surefire,[{dir,"."}]}}]}.


4.  下载依赖

$ ./rebar get_deps
5. 编译

$ ./rebar compile
修改代码:

mysql_web.erl

start() ->
    mysql_web_deps:ensure(),
    ensure_started(crypto),
    application:start(emysql),
    emysql:add_pool(hello_pool, 1, "root", "", "localhost", 3306, "my_database", utf8),
    application:start(mysql_web).

mysql_web_app.erl

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)
    					emysql:execute(hello_pool, <<"INSERT INTO expenses SET name = 'A', date = '2013-09-01', cost = 30, type_id = 2">>),
    					Result = emysql:execute(hello_pool, <<"select * from expenses">>),
						JSON = emysql_util:as_json(Result),
 						Req:respond({200, [{"Content-Type", "application/json"}], mochijson2:encode(JSON)})
                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.

数据库my_database,新建expenses表:

DROP TABLE IF EXISTS `expenses`;
CREATE TABLE `expenses` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `name` varchar(128) DEFAULT NULL,
  `date` date DEFAULT NULL,
  `cost` float DEFAULT NULL,
  `type_id` int(11) DEFAULT NULL,
  PRIMARY KEY (`id`),
  KEY `type_id` (`type_id`),
  CONSTRAINT `expenses_ibfk_1` FOREIGN KEY (`type_id`) REFERENCES `types` (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;








            
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

【erlang 使用】eredis 介绍

简单介绍 erlang redis 的使用方法

如何在Erlang中操作Redis?

用ERedis: 下载和编译: git clone git://github.com/wooga/eredis.git cd eredis ./rebar compile 在consol...

精选:深入理解 Docker 内部原理及网络配置

网络绝对是任何系统的核心,对于容器而言也是如此。Docker 作为目前最火的轻量级容器技术,有很多令人称道的功能,如 Docker 的镜像管理。然而,Docker的网络一直以来都比较薄弱,所以我们有必要深入了解Docker的网络知识,以满足更高的网络需求。

[Erlang语言]百万级别的实时推送

在团队协同工具Worktile的使用过程中,你会发现无论是右上角的消息通知,还是在任务面板中拖动任务,还有用户的在线状态,都是实时刷新。Worktile中的推送服务是采用的是基于xmpp协议、erla...

使用erlang开发服务端の代码热升级

之前写过yi http://blog.csdn.net/huang1196/article/details/38401197

Erlang学习~ Mochiweb的设计分析

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

[Erlang]图解分析Mochiweb web server

一、图解分析mochiweb web server 首先,建立web.app 文件 web_app.erl main启动启动监督gen_server  根据监督策略 执行到 web_web:sta...

Erlang并发编程(六) --- mochiweb + riak client

本节将演示如何在riak client集成进mochiweb应用中。 riak-erlang-client : https://github.com/basho/riak-erlang-clie...

emysql 源码阅读

emysql 也是一个常用的erlang mysql数据库驱动。相比较erlang_mysql_driver,emysql的代码结构更加清晰。emysql的使用非常方便,先执行emysql:start...

Erlang学习资源

转载:http://www.cnblogs.com/cobbliu/archive/2012/03/10/2388556.html Erlang语言绝对算得上是一种“小众”语言,但其未来的发展前...

Erlang函数学习

Erlang的普通函数和匿名函数fun: 范例1:以下函数列出商品的价格。该函数包含5个子句,各个子句之间由分号;分隔。             要在函数所在模块之外使用该函数...
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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