杰晶网络

Erlang实现的一个Web服务器代码实例
脚本专栏 2024/11/23 佚名
3 2

转贴一个简单的Web服务器：

httpd.erl 

%% httpd.erl - MicroHttpd 
-module(httpd). 
-author("ninhenry@gmail.com"). 
 
-export([start/0,start/1,start/2,process/2]). 
-import(regexp,[split/2]). 
 
-define(defPort,8888). 
-define(docRoot,"public"). 
 
start() -> start("[ \r\n]"), 
 FileName = DocRoot ++ Name, 
 LogReq = Cmd ++ " " ++ Name ++ " " ++ Vers, 
 Resp = case file:read_file(FileName) of 
  {ok, Data} -> 
   io:format("~p ~p ok~n",[LogReq,FileName]), 
   Data; 
  {error, Reason} -> 
   io:format("~p ~p failed ~p~n",[LogReq,FileName,Reason]), 
   error_response(LogReq,file:format_error(Reason)) 
  end,  
 do_send(Sock,Resp), 
 gen_tcp:close(Sock). 
 
%% construct HTML for failure message 
error_response(LogReq,Reason) -> 
 "<html><head><title>Request Failed</title></head><body>\n" ++ 
 "<h1>Request Failed</h1>\n" ++ "Your request to " ++ LogReq ++ 
 " failed due to: " ++ Reason ++ "\n</body></html>\n". 
 
%% send a line of text to the socket 
do_send(Sock,Msg) -> 
 case gen_tcp:send(Sock, Msg) of 
  ok -> ok; 
   {error, Reason} -> exit(Reason) 
 end. 
 
%% receive data from the socket 
do_recv(Sock) -> 
 case gen_tcp:recv(Sock, 0) of 
  {ok, Bin} -> binary_to_list(Bin); 
   {error, closed} -> exit(closed); 
   {error, Reason} -> exit(Reason) 
 end

运行时在httpd.erl本地建一个public目录，public目录里放一个index.html文件
然后httpd:start()启动服务器，就可以访问http://localhost:8888/index.html了

标签：
Erlang,Web,服务器
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
评论“Erlang实现的一个Web服务器代码实例”
暂无“Erlang实现的一个Web服务器代码实例”评论...
www.imxmx.com 杰晶网络
8,675无损音乐
1,324高清电影
213破解软件
120,141站长资源
一句话新闻
苹果官宣WWDC 2024！预计会有大批AI功能 - 2024/11/23

3月27日消息，苹果宣布2024年全球开发者大会（WWDC）将于6月10日至6月14日举行，巧合的是，这次大会与端午假期重合。

苹果官方表示：

在线参加 Apple 每年规模最大的开发者盛会。亲眼见证 Apple 最新平台、技术和工具的发布。了解如何创建和改进你的 App 和游戏。与 Apple 设计师和工程师互动交流，与全球开发者社区建立联系。以上活动均免费在线举行。

探索各种新的工具、框架和功能，助力你打造出理想的 App 和游戏。通过视频讲座学习新技能，与 Apple 专家进行一对一会面，以推进你的项目，完善你的构思。

Swift Student Challenge 旨在支持和鼓舞下一代开发者、创作者和企业家。太平洋时间 3 月 28 日，我们将公布今年的获奖者名单。获奖者将有资格参加在 Apple Park 举办的特别活动。我们还会选出 50 名杰出获胜者，他们将受邀前往库比提诺，获得为期三天的非凡体验，包括参加 Apple Park 的特别活动。

RTX 5090要首发 性能要翻倍！三星展示GDDR7显存

三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。

首次推出的GDDR7内存模块密度为16GB，每个模块容量为2GB。其速度预设为32 Gbps（PAM3），但也可以降至28 Gbps，以提高产量和初始阶段的整体性能和成本效益。

据三星表示，GDDR7内存的能效将提高20%，同时工作电压仅为1.1V，低于标准的1.2V。通过采用更新的封装材料和优化的电路设计，使得在高速运行时的发热量降低，GDDR7的热阻比GDDR6降低了70%。

更新动态

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网