庆亮的博客-webgame架构

R13B04的Emacs erlang-mode在编译后少了几个文件，默认%erlang_root%/lib/tools-2.6.5.1/emacs下有如下文件：

-rw-r–r– 1 root root 183741 2010-05-21 11:43 erlang.el

-rw-r–r– 1 root root  10059 2010-05-21 11:43 erlang-eunit.el

-rw-r–r– 1 root root   3452 2010-05-21 11:43 erlang-start.el

-rw-r–r– 1 root root   1611 2010-05-21 11:43 README

-rw-r–r– 1 root root  12834 2010-05-21 11:43 test.erl.indented

-rw-r–r– 1 root root  11877 2010-05-21 11:43 test.erl.orig

一直知道mnesia的事务比较慢，但慢到什么程度却没有一个数值的概念，今天正好有空测试一下。

上代码：

-module(mnesia_read_test).

-export([start/0, init_data/0, start2/0]).

-record(r_test, {id, name}).

start() ->

        statistics(wall_clock),

    statistics(runtime),

        read(),

        {_, Time1} = statistics(wall_clock),

    {_, Time2} = statistics(runtime),

    io:format("times:~p, wall_clock ~p, runtime:~p", [100000, Time1, Time2]).

  (全文…)

日志系统的重要性就不罗嗦了，直接开始吧。

一、基本概念

在Erlang中，通过两个概念管理错误事情：事件管理器(event manager)和事件处理句柄(event handles)。通常各种错误、警告和消息事件都会有Erlang运行时系统发送给事件管理器。在Erlang中，默认的事情管理器为error logger，其进程名注册为error_logger。默认情况下error_logger把这些事件直接输出到控制台上。 (全文…)

可以使用List comprehensions时不要 使用map或者filter，简单的性能测试对比一下：

第一组，map和list comprehensions对比，代码如下：

%%map方式

-module(map_test).

-export([start/1]).

start(N) ->

        statistics(runtime),

        erlang:statistics(wall_clock),

        lists:map(fun (X) -> X*X end, lists:seq(1, N)),

        {_, T1} = erlang:statistics(runtime),

        {_, T2} = erlang:statistics(wall_clock),

        io:format("total times: ~p, load time: ~p (~p)", [N, T1, T2]).

%%list comprehensions方式

-module(list_comp_test).

-export([start/1]).

start(N) ->

        statistics(runtime),

        erlang:statistics(wall_clock),

        [X*X || X <- lists:seq(1, N)],

        {_, T1} = erlang:statistics(runtime),

        {_, T2} = erlang:statistics(wall_clock),

        io:format("total times: ~p, load time: ~p (~p)", [N, T1, T2]).

测试N为1000000时结果对比：

结果取得是平均值，可以很明显的看出comprehension方式性能要高。

关于filter，则类似。不再作测试。

erlang的bif中自带了md5计算函数，但是结果却是二进制的，即使转成list，也是10进制表示，google了一下得到一段代码用于获得字符串形式的md5结果（16位）：

md5(S) ->        

Md5_bin =  erlang:md5(S), 

Md5_list = binary_to_list(Md5_bin), 

lists:flatten(list_to_hex(Md5_list)). 

list_to_hex(L) -> 

lists:map(fun(X) -> int_to_hex(X) end, L). 

int_to_hex(N) when N < 256 -> 

[hex(N div 16), hex(N rem 16)]. 

hex(N) when N < 10 -> 

       $0+N; 

hex(N) when N >= 10, N < 16 ->      

$a + (N-10).

英文链接  http://sacharya.com/md5-in-erlang/