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;







                    

相关文章推荐

emysql 源码阅读

emysql 也是一个常用的erlang mysql数据库驱动。相比较erlang_mysql_driver,emysql的代码结构更加清晰。emysql的使用非常方便,先执行emysql:start...
  • aaaajw
  • aaaajw
  • 2016年07月01日 14:43
  • 661

emysql add_poop() 超时出错

emysql add_poop() 超时出错(金庆的专栏)sample/a_hello.erl 连接本机更改为连接局域网内的MySql服务器:    emysql:add_pool(hello_poo...
  • jq0123
  • jq0123
  • 2015年08月25日 17:48
  • 1126

erlang连接mysql(亲测可用)

想使用erlang连接mysql数据库,来百度找方法,但大多方法都不能用,在整合了集中方法之后,整理出了以下内容。 1. 下载 erlang-mysql-driver 地址:https://g...
  • ifkirin
  • ifkirin
  • 2016年07月29日 17:59
  • 1215

Erlang学习~ Mochiweb的设计分析

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

[Erlang]图解分析Mochiweb web server

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

Erlang学习:MochiWeb + ERedis

接上篇:http://blog.csdn.net/kunshan_shenbin/article/details/17066221 启动Redis,教程:http://redis.io/ loop...

给定A, B两个整数,不使用除法和取模运算,求A/B的商和余数

给定A, B两个整数,不使用除法和取模运算,求A/B的商和余数。 1.   最基本的算法是,从小到大遍历: for (i = 2 to A -1)          if (i * B > A)...

利用K-means聚类算法根据经纬度坐标对中国省市进行聚类

K-means聚类算法是一种非层次聚类算法,在最小误差的基础上将数据划分了特定的类,类间利用距离作为相似度指标,两个向量之间的距离越小,其相似度就越高。程序读取全国省市经纬度坐标,然后根据经纬度坐标进...

Radon变换理论介绍与matlab实现--经验交流

本人最近在研究Radon变换,在查阅了各种资料之后在此写下个人的理解,希望与各位牛牛进行交流共同进步,也使得理解更加深刻些。 Radon变换的本质是将原来的函数做了一个空间转换,即,将原来的XY平...

CT图像重建技术

由于csdn贴图不方便,并且不能上传附件,我把原文上传到了资源空间CT图像重建技术 1.引言 计算机层析成像(Computed Tomography,CT)是通过对物体进行不同角度的射线投影测量而...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Erlang学习:MochiWeb + EMySQL
举报原因:
原因补充:

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