从Rails到erlyweb - 笔记

写了几个月的Rails，终于开始把项目移植到erlyweb，这个笔记将记录移植过程中的一些常见问题，主要是Rails和erlyweb的同与不同。

1. 怎样处理params
Rails：

ruby 代码

 

p = params.fetch(:p, "1")
s = params.fetch(:s, @@RECORDS_PER_PAGE) 
p = p.to_i   s = s.to_i  

erlyweb:
mymodel_controller.erl:

js 代码

 

1. -module(mymodel_controller).  
2. -define(RECORDS_PER_PAGE, "9").  
3.   
4. -export([get/1]).  
5.   
6. get(A) ->  
7.     %% A是yaws传进来的Arg, 包含了用户请求的所有内容  
8.     P = yaws_params:getopt("p", A, "1"),  
9.     S = yaws_params:getopt("s", A, ?RECORDS_PER_PAGE),  
10.     Page = list_to_integer(P), %% erlang里String就是list  
11.     Size = list_to_integer(S),  
12.   
13.     %% 查找表mymodel的记录  
14.     Records = mymodel:find_range((Page - 1) * Size, Size),  
15.   
16.     %% 返回plain text形式的记录  
17.     {response, [{html, mymodel:to_iolist(Records)}]}.  

在apps/myapps/lib下写了一个yaws_params.erl:

js 代码

 

-module(yaws_params).      -export([            getopt/2,            getopt/3           ]).      getopt(Key, Arg) ->       getopt(Key, Arg, undefined). %% ruby里有nil, erlang里有undefined      %% Usage: getopt(Key, Arg, Default)   getopt(Key, Arg, Default) ->       Params = yaws_api:parse_query(Arg), %% in form of [{p, "2"}, {s, "1"}] etc.       case lists:keysearch(Key, 1, Params) of           false ->               Default;           {value, Tuple} ->               Val = element(2, Tuple), %% erlang里element从1开始计数               if                   Val == undefined -> Default;                   true -> Val               end       end.  

[To be continued]