使用erlang连接php的cgi处理方式,构建强大的web开发平台

bs

1. 
   
2. -module(test).
   
3. -export([cgi_worker/0]).
   
4. 
   
5. 
   
6. cgi_worker() ->
   
7.     Env = [{"SERVER_SOFTWARE","test web server"},
   
8.       {"SERVER_NAME","localhost"},
   
9.       {"HTTP_HOST","localhost"},
   
10.       {"GATEWAY_INTERFACE","CGI/1.1"},
    
11.       {"SERVER_PROTOCOL","HTTP/1.1"},
    
12.       {"SERVER_PORT","8080"},
    
13.       {"REQUEST_METHOD","GET"},
    
14.       {"REQUEST_URI","/t.php"},
    
15.       {"DOCUMENT_ROOT","d:/www"},
    
16.       {"DOCUMENT_ROOT_MOUNT","/"},
    
17.       {"SCRIPT_FILENAME","d:/www/t.php"},
    
18.       {"PATH_INFO",[]},
    
19.       {"PATH_TRANSLATED",[]},
    
20.       {"SCRIPT_NAME","/t.php"},
    
21.       {"REMOTE_ADDR","127.0.0.1"},
    
22.       {"REMOTE_HOST","127.0.0.1"},
    
23.       {"SERVER_ADDR","127.0.0.1"},
    
24.       {"LOCAL_ADDR","127.0.0.1"},
    
25.       {"QUERY_STRING",[]},
    
26.       {"HTTP_ACCEPT",
    
27.        "application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,i
    
28. mage/png,*/*;q=0.5"},
    
29.       {"HTTP_USER_AGENT",
    
30.        "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/532.0 (KHTML
    
31. , like Gecko) Chrome/4.0.206.1 Safari/532.0"},
    
32.       {"HTTP_ACCEPT_CHARSET","GBK,utf-8;q=0.7,*;q=0.3"},
    
33.       {"HTTP_ACCEPT_LANGUAGE","zh-CN,zh;q=0.8"},
    
34.       {"HTTP_ACCEPT_ENCODING","gzip,deflate,sdch"},
    
35.       {"HTTP_CACHE_CONTROL","max-age=0"}],%%构造http访问相关配置
    
36.    
    
37.     CGIPort = open_port({spawn, "f:/PHP/php-cgi.exe"},%%Port方式对外交互
    
38.                         [{env, Env},
    
39.                          {cd, "d:/www"},
    
40.                          exit_status,
    
41.                          binary]),
    
42. cgi_get_line({start, CGIPort}).
    
43. 
    
44. 
    
45. %%获取结果
    
46. cgi_get_line({start, Port}) ->
    
47.     receive
    
48.         {Port, {data,Data}} ->
    
49. io:fwrite("DATA:~p~n", [Data]);
    
50.         {Port, {exit_status, 0}} ->
    
51.             io:fwrite("~p~n", [{exit_status, 0}]);
    
52.         {Port, {exit_status, Status}} when Status /=0 ->
    
53.             io:fwrite("~p~n", [{exit_status, Status}]);
    
54.         _Other ->
    
55.             io:fwrite("~p~n", [_Other])
    
56.     end.
    

复制代码

php脚本

1. 
   
2. <?php
   
3. echo 'ello php-cgi!';
   
4. ?>
   

复制代码

以上纯粹直接构造，使用时请根据每个人环境加以修改，编译后运行如下：

67> c(test).         
{ok,test}
68> test:cgi_worker().
DATA:<<"X-Powered-By: PHP/5.2.6\r\nContent-type: text/html\r\n\r\nhello php-cgi!">>
ok



说明连接并执行成功，erlang以其强悍的网络并发处理(并非只谈性能)能力，加上php的脚本的简便，相信他们可以成为很好的互补。

yc1001aaa

楼主，我觉得你真的太厉害了~~~！