December 16th Wednesday 2009

今天从Mr. yufeng的blog上学了几招。先抄袭一下。^_^别拍我，我也为了查找方便嘛！

 

escript Erlang scripting support, 可以让erl模块转身变成unix script来使用，大大方便用户，具体的使用参看otp文档。我这里要演示的是些比较被忽视的高级特性:

首先crack erts/etc/common/escript.c:33  static int debug = 1; 让之显示调用参数。

root@nd-desktop:~# cat >factorial
#!/usr/bin/env escript
%% -*- erlang -*-
%%! -smp enable -sname factorial -mnesia debug verbose
main([String]) ->
    try
        N = list_to_integer(String),
        F = fac(N),
        io:format("factorial ~w = ~w/n", [N,F])
    catch
        _:_ ->
            usage()
    end;
main(_) ->
    usage().
       
usage() ->
    io:format("usage: factorial integer/n"),
    halt(1).
       
fac(0) -> 1;
fac(N) -> N * fac(N-1).

CTRL＋Ｄ

root@nd-desktop:~# chmod +x factorial 
root@nd-desktop:~#　./factorial  10
　erl +B -boot start_clean -noshell -smp enable -sname factorial -mnesia debug verbose -run escript start -extra ./factorial 10
factorial 10 = 3628800

特性1：

摘抄文档。。。
On the third line (or second line depending on the presence of the Emacs directive), it is possible to give arguments to the emulator, such as

%%! -smp enable -sname factorial -mnesia debug verbose

Such an argument line must start with %%! and the rest of the line will interpreted as arguments to the emulator.

我们可以看到　这些选项被传递给了 erl

特性2：
-mode(compile).

这个选项是在escript.erl这个模块处理的。默认情况下 escript是被解释执行的，如果你的脚本很复杂，那么效率估计会是瓶颈。这种情况下， 你可以通过这个选项来让escript来先编译你的模块成opcode, 在vm里面运行。

特性3：
-d 选项 用来调试script的
-c  编译执行
-i  解释执行
-s  只检查不执行
root@nd-desktop:~#　escript -d ./factorial  10
我们就可以看到 调试界面如下图 
 

 

（这是我在自己的vm上实验的截图，那个GUI的debug画面是自己跳出来的，cool!）

特性4：
可以把一个beam文件作为script

root@nd-desktop:/usr/src# cat hello.erl
-module(hello).
-export([start/0,main/1]).

main(_)->
    start().

start()->
    io:format("hello world~n",[]).

root@nd-desktop:/usr/src# erlc hello.erl

root@nd-desktop:/usr/src# cat >hello
#!/usr/bin/env escript
%% -*- erlang -*-
%%! -smp enable -sname factorial -mnesia debug verbose
CTRL+D

root@nd-desktop:/usr/src# cat hello.beam >>hello
root@nd-desktop:/usr/src# chmod +x hello
root@nd-desktop:/usr/src# ./hello
hello world


特性5:
可以把一个zip文件作为script

root@nd-desktop:/usr/src# cat hello.erl
-module(hello).
-export([start/0,main/1]).

main(_)->
    start().


start()->
    io:format("hello world, fac(10)=~w ~n",[fac:fac(10)]).

root@nd-desktop:/usr/src# cat fac.erl
-module(fac).
-export([fac/1]).

fac(0) ->
     1;
fac(N) -> N * fac(N-1).

root@nd-desktop:/usr/src# erlc *.erl
root@nd-desktop:/usr/src# erl
Erlang R13B03 (erts-5.7.4) [source] [smp:2:2] [rq:2] [async-threads:0] [hipe] [kernel-poll:false]

Eshell V5.7.4  (abort with ^G)
1> zip:zip("hello.zip", ["hello.beam", "fac.beam"]).
{ok,"hello.zip"}
2>

root@nd-desktop:/usr/src# cat >hello
#!/usr/bin/env escript
%% -*- erlang -*-
%%! -smp enable -sname factorial -mnesia debug verbose -escript main hello
CTRL+D

root@nd-desktop:/usr/src# cat hello.zip >>hello
root@nd-desktop:/usr/src# chmod +x hello      
root@nd-desktop:/usr/src# ./hello
hello world, fac(10)=3628800

特性6：
在独立的包里面 把escript伪装成我们的应用程序

root@nd-desktop:/usr/src# cat >hello.escript
-module(hello).
-export([start/0,main/1]).

main(_)->
    start().

start()->
    io:format("hello world~n",[]).

CTRL+D
root@nd-desktop:/usr/src#  cp `which escript` hello
root@nd-desktop:/usr/src# ./hello
hello world

规则是 escript 改名成xxxx 执行xxxx的时候 实际上要读取的脚本是 xxxx.escript

综述： escript是很强大的 未来的erlang standalone全靠它。

特性5，没有成功哇！下面截图。不知道，别人会不会遇上同样现象。

我现在调查原因。

 

 

 

 

另外，今天修改了nginx用来构建makefile的脚本。nginx的http, mail与其他我不感兴的代码，都被我去掉了。nginx的核心就是个用来开发高性能服务器的框架。http服务也好，mail服务也好都是有上面做的开发。但是这个是面向短连接的。