亚洲国产成人精品久久久国产成人一区二区三区综 ,一个色综合久久,精品视频久久久久

暗夜教父 — Mon, 07 Dec 2009 15:49:00 GMT

2009-12-7 22:19:36 LinkTalk.NET(909327571)
暗夜教父�Q?你说�?万连接，每个�q�接每秒�?K包吗�Q?br>
2009-12-7 22:19:49 暗夜教父(199033)
en

2009-12-7 22:19:49 jack(357794482)
��是后面函数执行完成之后的结果给前面的原子吗

2009-12-7 22:20:54 LinkTalk.NET(909327571)
机器配置如何�Q�还�?万个客户端如何模拟的�Q?br>
2009-12-7 22:21:41 暗夜教父(199033)
机器是AMD 双核 3200+

2009-12-7 22:21:50 LinkTalk.NET(909327571)
另外��是每个�q�接上的旉��间隔�?�U�，没有延迟吗？

2009-12-7 22:22:12 暗夜教父(199033)
内存�?G�Q�操作系�l�ubuntu 9.10

2009-12-7 22:22:53 暗夜教父(199033)
我�h为的没做�q�种延迟

2009-12-7 22:23:04 暗夜教父(199033)
服务器和客户端都是这个配�|?br>
2009-12-7 22:23:16 暗夜教父(199033)
客户端是用erlang模拟�q�发

2009-12-7 22:23:39 暗夜教父(199033)
不过创徏6W个连接花费了一定的旉��

2009-12-7 22:24:09 暗夜教父(199033)
对哦�Q�这样就不是6万个一起�ƈ发出来的

2009-12-7 22:24:09 LinkTalk.NET(909327571)
大概多久�Q?br>
2009-12-7 22:24:19 暗夜教父(199033)
没统计时�?br>
2009-12-7 22:24:42 暗夜教父(199033)
�q�里存在问题�?br>
2009-12-7 22:25:27 暗夜教父(199033)
其实�q�发应该�?�q�接�?/ 创徏�q�发的时�?br>
2009-12-7 22:25:27 LinkTalk.NET(909327571)
什么问题？

2009-12-7 22:25:49 LinkTalk.NET(909327571)
�q�个无所�?br>
2009-12-7 22:26:08 LinkTalk.NET(909327571)
只要你全部连接创建好后一直保持住��可以了

2009-12-7 22:26:23 暗夜教父(199033)
一直保持也不是6万同�?br>
2009-12-7 22:26:32 暗夜教父(199033)
创徏�q�接有时�?br>
2009-12-7 22:26:35 LinkTalk.NET(909327571)
6万个如果能够1k/s的保�?8��时的话�Q�非常牛��g��

2009-12-7 22:26:38 暗夜教父(199033)
那么发生数据也有时差

2009-12-7 22:27:53 LinkTalk.NET(909327571)
你通过什么方式做到间隔一�U�发一�ơ数据的�Q?br>
2009-12-7 22:28:32 LinkTalk.NET(909327571)
sleep吗？

2009-12-7 22:29:19 LinkTalk.NET(909327571)
你有没有看一下网卡的带宽消�?br>
2009-12-7 22:29:37 LinkTalk.NET(909327571)
按道理应�?k * 6�?= 60M/s

2009-12-7 22:30:12 LinkTalk.NET(909327571)
如果辑ֈ�60M以上基本��是真正的稳定的实现�?万�ƈ�?br>
2009-12-7 22:30:34 暗夜教父(199033)
client那边是我同事写的

2009-12-7 22:30:39 暗夜教父(199033)
我不知道是不是sleep

2009-12-7 22:30:52 暗夜教父(199033)
带宽消耗我�q�也真没�?br>
2009-12-7 22:30:53 LinkTalk.NET(909327571)
erlang里面好像也就只有sleep�?br>
2009-12-7 22:31:06 暗夜教父(199033)
我估计不�?br>
2009-12-7 22:31:52 LinkTalk.NET(909327571)
另外我怀疑当�q�发高了以后�Q�sleep会不准，真正的间隔肯定会大于sleep的时�?br>
2009-12-7 22:32:50 暗夜教父(199033)
恩，��实有待验证

2009-12-7 22:33:04 暗夜教父(199033)
不过只有用应用来验证�?br>
2009-12-7 22:33:14 暗夜教父(199033)
�{�项目上�U�了�Q�看看实际情�?br>
2009-12-7 22:33:17 LinkTalk.NET(909327571)
嗯，呵呵

2009-12-7 22:33:24 LinkTalk.NET(909327571)
你们�q�个用在什么项目上马？

2009-12-7 22:33:27 LinkTalk.NET(909327571)
上面

2009-12-7 22:33:30 LinkTalk.NET(909327571)
游戏吗？

2009-12-7 22:33:31 暗夜教父(199033)
恩，游戏�?br>
2009-12-7 22:34:48 LinkTalk.NET(909327571)
[表情]

2009-12-7 22:34:59 暗夜教父(199033)
不过风险也很�?br>
2009-12-7 22:35:15 LinkTalk.NET(909327571)
��Z��么？

2009-12-7 22:35:24 暗夜教父(199033)
没做�q?br>
2009-12-7 22:35:28 暗夜教父(199033)
没有成熟��目的经�?br>
2009-12-7 22:35:29 LinkTalk.NET(909327571)
呵呵

2009-12-7 22:35:32 暗夜教父(199033)
什么都有可能发�?br>
2009-12-7 22:35:45 LinkTalk.NET(909327571)
传统的游戏服务器�Q�单台到两三万�ƈ发已�l�很牛X�?br>
2009-12-7 22:35:50 暗夜教父(199033)
未知因素太多

2009-12-7 22:36:00 暗夜教父(199033)
我估�?W�q�能�?br>
2009-12-7 22:36:00 LinkTalk.NET(909327571)
而且��g�q�不差的情况�?br>
2009-12-7 22:36:11 LinkTalk.NET(909327571)
游戏的数据通信量比较大

2009-12-7 22:36:22 LinkTalk.NET(909327571)
�?br>
2009-12-7 22:36:30 暗夜教父(199033)
没过6W是因为客��L��的端口基本上没了

2009-12-7 22:36:45 LinkTalk.NET(909327571)
�q�个不会�?br>
2009-12-7 22:36:51 LinkTalk.NET(909327571)
客户端端口没有关�pȝ��

2009-12-7 22:36:55 暗夜教父(199033)
有吧

2009-12-7 22:36:59 LinkTalk.NET(909327571)
因�ؓIP不一�?br>
2009-12-7 22:37:11 暗夜教父(199033)
不是。我��试的时�?br>
2009-12-7 22:37:15 LinkTalk.NET(909327571)
同一个IP�?5535个端口的限制

2009-12-7 22:37:18 暗夜教父(199033)
6万个�q�接从一台机器来�?br>
2009-12-7 22:37:18 LinkTalk.NET(909327571)
哦，了解

2009-12-7 22:37:23 LinkTalk.NET(909327571)
�?br>
2009-12-7 22:37:54 david(258667581)
服务器端只监听一个端�?应该不会有端口数限制吧？

2009-12-7 22:38:24 LinkTalk.NET(909327571)
服务器端不会

2009-12-7 22:38:50 david(258667581)
做游戏的�?不是都雍和宫服务器吗

2009-12-7 22:38:55 david(258667581)
都做的服务器�?br>
2009-12-7 22:39:24 暗夜教父(199033)
。。�?br>
2009-12-7 22:39:32 暗夜教父(199033)
我是做测�?br>
2009-12-7 22:39:36 david(258667581)
另外如果端口socket属性设�|�reuse为true 是否可以��过6W端口

2009-12-7 22:39:48 LinkTalk.NET(909327571)
不会

2009-12-7 22:39:53 暗夜教父(199033)
服务器端是一台机器，客户端也是一台机�?br>
2009-12-7 22:39:56 LinkTalk.NET(909327571)
那个是针对不同的protocol

2009-12-7 22:40:02 暗夜教父(199033)
客户端发�?W个连�?br>
2009-12-7 22:40:19 暗夜教父(199033)
��p��占用6W多个端口

2009-12-7 22:40:18 david(258667581)
不同的protocol是什么意�?br>
2009-12-7 22:40:35 LinkTalk.NET(909327571)
tcp �?udp 可以reuse同一个port

2009-12-7 22:41:09 LinkTalk.NET(909327571)
erlang其实我只是大概的了解

2009-12-7 22:41:22 LinkTalk.NET(909327571)
我打��用C#和Java模拟erlang

2009-12-7 22:41:26 david(258667581)
�E�序a试用端口2000 tcp�q?然后 �E�序b�?000端口udp再连接另外一个程序？

2009-12-7 22:41:36 david(258667581)
模拟�Q?br>
2009-12-7 22:41:40 LinkTalk.NET(909327571)
�?br>
2009-12-7 22:41:47 LinkTalk.NET(909327571)
我已�l�用C#实现�?br>
2009-12-7 22:41:47 david(258667581)
怎么模拟�Q?br>
2009-12-7 22:41:59 LinkTalk.NET(909327571)
��是Actor模式

2009-12-7 22:42:07 LinkTalk.NET(909327571)
自己实现消息的调�?br>
2009-12-7 22:42:15 LinkTalk.NET(909327571)
�q�有实现异步�~�程接口

2009-12-7 22:42:41 david(258667581)
actor模式是什么意�?br>
2009-12-7 22:42:59 LinkTalk.NET(909327571)
一�U��Y件设计模�?br>
2009-12-7 22:43:16 LinkTalk.NET(909327571)
erlang/scala�{��ƈ发��^台都是actor模式

2009-12-7 22:44:06 david(258667581)
不懂

2009-12-7 22:44:25 david(258667581)
��Z��么要用c#模拟�Q?br>
2009-12-7 22:44:33 LinkTalk.NET(909327571)
因�ؓ我熟悉C#

2009-12-7 22:44:39 LinkTalk.NET(909327571)
也打��用java模拟

2009-12-7 22:45:01 LinkTalk.NET(909327571)
同时也因为C#/Java有大量的开发�h员和丰富的第三方扩展

2009-12-7 22:45:25 LinkTalk.NET(909327571)
同时也有很爽的IDE

2009-12-7 22:45:26 LinkTalk.NET(909327571)
�Q�）

2009-12-7 22:45:42 david(258667581)
�?但是感觉如果你是要测性能的话 c#的性能可能跟不上erlang�?br>
2009-12-7 22:45:49 david(258667581)
用c的都会好�?br>
2009-12-7 22:46:01 LinkTalk.NET(909327571)
其实erlang语言本��n性能不见得高�Q�因为是脚本语言

2009-12-7 22:46:15 LinkTalk.NET(909327571)
高�ƈ发是因�ؓ�U�消息传递，可以有效的避免死�?br>
2009-12-7 22:46:27 LinkTalk.NET(909327571)
传统语言比如c/c++要避免死锁比较难

2009-12-7 22:46:49 LinkTalk.NET(909327571)
�l�大家看老外的一个测试数�?br>
2009-12-7 22:46:57 LinkTalk.NET(909327571)
erlang其实��是执行效率相对比较差的

2009-12-7 22:47:20 david(258667581)
哪里 erlang的性能应该是可以跟c叫板�?br>
2009-12-7 22:48:04 LinkTalk.NET(909327571)
http://shootout.alioth.debian.org/u32q/benchmark.php?test=all&lang=csharp&lang2=hipe&box=1

2009-12-7 22:48:16 LinkTalk.NET(909327571)
�q�个里面有很多语�a�的性能��试比较

2009-12-7 22:48:23 LinkTalk.NET(909327571)
erlang��是比较差的

2009-12-7 22:49:02 LinkTalk.NET(909327571)
传统语言达不到高�q�发是因为无法有效的避免死锁�Q�还有cpu调度做得不好

2009-12-7 22:50:17 暗夜教父(199033)
恩，C如果使用erlang的模�?br>
2009-12-7 22:50:26 暗夜教父(199033)
�l�对不会�?br>
2009-12-7 22:50:29 LinkTalk.NET(909327571)
�?br>
2009-12-7 22:50:37 LinkTalk.NET(909327571)
erlang本��n��是C写的

2009-12-7 22:50:41 暗夜教父(199033)
�?br>
2009-12-7 22:50:54 LinkTalk.NET(909327571)
我记得国内好像有个牛人在研究用C++模拟erlang

2009-12-7 22:51:00 LinkTalk.NET(909327571)
好像是盛大的一个架构师

2009-12-7 22:51:13 暗夜教父(199033)
貌似现在做linux下做服务器端得，C比C++多了

2009-12-7 22:51:20 LinkTalk.NET(909327571)
�?br>
2009-12-7 22:51:29 LinkTalk.NET(909327571)
linux下c�?br>
2009-12-7 22:51:36 暗夜教父(199033)
我记得好像云风把大话西游的服务器端改成C�?br>
2009-12-7 22:52:28 ��生啊牙(86753957)
51.com的服务器��是用C++模拟erlang�?br>
2009-12-7 22:52:50 ��生啊牙(86753957)
使用协程

2009-12-7 22:53:59 LinkTalk.NET(909327571)
嗯，协程可以在传�l�的面向�q�程的线�E�上模拟异步操作

2009-12-7 22:55:05 LinkTalk.NET(909327571)
其实高�ƈ发只是一�U�设计模�?br>
2009-12-7 22:55:19 LinkTalk.NET(909327571)
erlang把这个设计模式固化�ƈ强制到语法里�?br>
2009-12-7 22:56:22 LinkTalk.NET(909327571)
C#2.0开始有个新的特性，叫iterator�Q�通过yield关键字来实现coroutine�Q�协�E�）

2009-12-7 22:56:39 LinkTalk.NET(909327571)
�q�且在语法上也可以用�q�诏的�Ş式来实现异步的操�?br>
2009-12-7 22:56:49 LinkTalk.NET(909327571)
和erlang的�Ş式类�?br>
2009-12-7 22:57:10 LinkTalk.NET(909327571)
java里面目前只有anonymous class可以实现异步调用

2009-12-7 22:57:44 LinkTalk.NET(909327571)
但是那个语法写�v来有些牵强，花括号会��嵌��深

2009-12-7 22:59:19 LinkTalk.NET(909327571)
我用C#实现的actor模式也可以处理每分钟大概200万条消息�Q�在PC上）

2009-12-7 22:59:24 LinkTalk.NET(909327571)
AMD双核

2009-12-7 23:00:28 LinkTalk.NET(909327571)
也测试过HTTP ��h��Q�大概可以达�?万多�q�发�Q�不�q�是6�U�一个请求（sleep6�U�，实际会�g�q�到10�U�以上）�Q�cpu占用40-60

2009-12-7 23:01:54 LinkTalk.NET(909327571)
每分�?00万消息是最��单的ping/pong��试

2009-12-7 23:06:12 david(258667581)
以前没听说过协程呵呵

2009-12-7 23:06:33 LinkTalk.NET(909327571)
是否有协�E�无所谓的

2009-12-7 23:07:14 LinkTalk.NET(909327571)
关键是纯消息传递（避免死锁�Q�还有线�E�合理有效的调度�Q�实现高效的异步处理�Q?br>
2009-12-7 23:07:35 david(258667581)
�?关键是避开�?br>
2009-12-7 23:08:04 LinkTalk.NET(909327571)
�q�最好再能够在语法上��异步操作用��序化的代码来表�C?br>
2009-12-7 23:08:22 LinkTalk.NET(909327571)
实在不行也无所谓，可以用event handler的方�?br>
2009-12-7 23:08:48 david(258667581)
能否举一个异步操作的具体应用场景�Q?br>
2009-12-7 23:09:08 LinkTalk.NET(909327571)
很多都是异步操作�Q�那样IO才可以做到高效）

2009-12-7 23:09:19 LinkTalk.NET(909327571)
比如epoll和windows的iocp

2009-12-7 23:09:22 LinkTalk.NET(909327571)
都是异步�?br>
2009-12-7 23:09:44 LinkTalk.NET(909327571)
��单的原理��是调用函数递交或注册一个IO��h��到系�l�内�?br>
2009-12-7 23:09:45 david(258667581)
是不是都是底层的

2009-12-7 23:09:55 LinkTalk.NET(909327571)
然后不需要阻塞，立即�q�回

2009-12-7 23:10:17 LinkTalk.NET(909327571)
�pȝ��IO内核收到数据或相关的事�g会触发当初注册的回调函数

2009-12-7 23:10:59 LinkTalk.NET(909327571)
调用��h�� ?数据�q�回或事件触�?不在同一个操作系�l�线�E�上完成�Q�就�U�Cؓ异步

2009-12-7 23:11:13 LinkTalk.NET(909327571)
异步的IO才比较高�?br>
2009-12-7 23:11:37 LinkTalk.NET(909327571)
操作�pȝ��的线�E�数有限�?br>
2009-12-7 23:11:42 david(258667581)
�q�些都不�?无论是java和c#�q�是c�Q�都已经有专门的api支撑�?br>
2009-12-7 23:11:51 david(258667581)
关键是业务上的操�?

2009-12-7 23:11:55 LinkTalk.NET(909327571)
一般上了千以后�Q�线�E�的效率��比较差�?br>
2009-12-7 23:11:58 david(258667581)
锁的都是业务

2009-12-7 23:12:02 LinkTalk.NET(909327571)
而且很耗cpu和内�?br>
2009-12-7 23:12:23 LinkTalk.NET(909327571)
所以要通过合理的调度和异步操作来分享宝�늚�操作�pȝ��U�程

2009-12-7 23:12:51 LinkTalk.NET(909327571)
严格遵守actor模式可以有效的避免死�?

2009-12-7 23:13:04 david(258667581)
[表情]

2009-12-7 23:14:34 LinkTalk.NET(909327571)
我也在摸索和��试�Q�erlang的消息调度和分布式支持是目前最好的

2009-12-7 23:14:49 LinkTalk.NET(909327571)
scala也不错，twitter��放弃erlang转向scala

2009-12-7 23:15:00 LinkTalk.NET(909327571)
但是scala在分布式支持斚w��不及erlang

2009-12-7 23:15:30 LinkTalk.NET(909327571)
但是scala有最大的好处��是��Z��JVM�Q�可以利用java的各�U�好�?br>
2009-12-7 23:15:33 david(258667581)
分布式以后是��势所以感觉erlang的生命力应该�q�是很强�?br>
2009-12-7 23:15:44 LinkTalk.NET(909327571)
嗯，分布式其实其他语�a�也可以做�?br>
2009-12-7 23:16:05 LinkTalk.NET(909327571)
只是erlang已经做了十几�q�了

2009-12-7 23:16:19 LinkTalk.NET(909327571)
其他语言也肯定会逐渐支持�?br>
2009-12-7 23:16:25 david(258667581)
�?br>
2009-12-7 23:16:43 LinkTalk.NET(909327571)
但是我个人比较觉得遗憄��是erlang的语法和�~�程模式

2009-12-7 23:17:08 LinkTalk.NET(909327571)
如果erlang代码上到一定的量以后维护和调试��q��当麻烦了

2009-12-7 23:17:11 david(258667581)
语法习惯了就�?关键是对于结构的支持

2009-12-7 23:17:17 david(258667581)
可读性太�?br>
2009-12-7 23:17:31 LinkTalk.NET(909327571)
嗯，数据�l�构表现力也不够丰富

2009-12-7 23:17:35 LinkTalk.NET(909327571)
都是tuple

2009-12-7 23:17:43 LinkTalk.NET(909327571)
眼睛要看�׃��

2009-12-7 23:19:09 david(258667581)
开发环境也没跟�?没有很好的IDE

2009-12-7 23:19:16 LinkTalk.NET(909327571)
�?br>
2009-12-7 23:19:37 LinkTalk.NET(909327571)
脚本语言重构��h��q��当麻烦了

2009-12-7 23:19:57 T.t.T!Ck.�K?(121787333)
有一个老外也用C#来模拟erlang的模�?br>
2009-12-7 23:20:06 LinkTalk.NET(909327571)
因�ؓ无类型，无法反射元数据，没有办法自动生成文档�Q�更��N��?br>
2009-12-7 23:20:07 Lenn(28663)
ERLANG跟Java一��h��~�译态语�a��Q�怎么成脚本语�a��?br>
2009-12-7 23:20:22 LinkTalk.NET(909327571)
erlang严格来讲是脚�?br>
2009-12-7 23:20:31 LinkTalk.NET(909327571)
��q��型的基本都是脚本

2009-12-7 23:20:44 LinkTalk.NET(909327571)
包括php也号�U�支持编�?br>
2009-12-7 23:20:47 LinkTalk.NET(909327571)
其实�q�是脚本

2009-12-7 23:21:16 Lenn(28663)
bin code只有200多条指��o�Q�属于典型的中间太语�a��Q�效率不会比Java差多��?br>
2009-12-7 23:21:34 LinkTalk.NET(909327571)
�?br>
2009-12-7 23:21:48 LinkTalk.NET(909327571)
我觉得�Q何东襉K��有得必有�?br>
2009-12-7 23:21:57 LinkTalk.NET(909327571)
一斚w��太强了，比如有其他的�~�陷

2009-12-7 23:22:06 LinkTalk.NET(909327571)
��q��自己的喜好和具体的应用场景了

2009-12-7 23:22:08 Lenn(28663)
囑�Ş太弱

2009-12-7 23:22:47 Lenn(28663)
调试��h��最爽，业务惛_��了基本不会编�E�从出错

2009-12-7 23:23:16 LinkTalk.NET(909327571)
�?br>
2009-12-7 23:24:26 Lenn(28663)
我们��是一个案例，用Ｊ�Q�）�Q�做的东西，现在�q�不停改代码�Q��Iｒｌａｎｇ那一块，要改也只是几行一会的事情

2009-12-7 23:25:17 jack(357794482)
其实�q�种事情要看你对语言的处理能�?

2009-12-7 23:25:20 LinkTalk.NET(909327571)
�?br>
2009-12-7 23:25:35 LinkTalk.NET(909327571)
google的首席架构师是搞java�?br>
2009-12-7 23:25:41 LinkTalk.NET(909327571)
其实�q�个看具体情�늚�

2009-12-7 23:26:17 Lenn(28663)
用什么还有历史原因，比如新的facebook很多用Erlang

2009-12-7 23:26:33 Lenn(28663)
因�ؓ做好的东西更改语�a�是个大问�?br>
2009-12-7 23:26:36 LinkTalk.NET(909327571)
但是更新的twitter由erlang转向了scala

2009-12-7 23:26:58 LinkTalk.NET(909327571)
另外erlang十几�q�了�Q�到今天才红�Q�也是有一定的原因�?br>
2009-12-7 23:27:13 LinkTalk.NET(909327571)
erlang有非常突出的优势�Q�但是也存在一些不够完��的地方

2009-12-7 23:29:04 Lenn(28663)
现在�C�֌�也挺�z�跃�Q�业务有比较强的优势

2009-12-7 23:29:37 LinkTalk.NET(909327571)
嗯，是的�Q�）

2009-12-7 23:29:57 LinkTalk.NET(909327571)
所以就��其他语�a�的开发�h员也开始了�?br>
2009-12-7 23:30:02 LinkTalk.NET(909327571)
学习�?br>
2009-12-7 23:30:04 Lenn(28663)
囑�Ş斚w��却丝毫不�?br>
2009-12-7 23:30:05 LinkTalk.NET(909327571)
或模拟erlang

2009-12-7 23:30:08 LinkTalk.NET(909327571)
�?br>

暗夜教父 2009-12-07 23:49 发表评论

Patch Mnesia 使用TokyoCabinet引擎�H�破2G存储限制

暗夜教父 — Tue, 29 Sep 2009 07:12:00 GMT

为啥要PATCH�Q?/p>

Mnesia最大的�~�陷是存储限制。这不是数据库系�l�的错误�Q�因为Mnesia能够控制虚拟数据的大��。主要的问题在于�q�时的Erlang DETS存储引擎�Q�速度慢�ƈ且��用的32位偏�U�量�Q�限制单文�g大小�?GB�Q��?

思�\�Q?/p>

��乎惌��?mnesia 补丁�?mnesiaex 。这个东西解除了加在 mnesia 数据库系�l�上所有的限制(虽说上面已经提到�Q�实际上 mnesia 代码本��n没有什么真正的限制)——你现在可以�?SleepyCat/BerkeleyDB/MySQL/Amazon S3/Tokyo Cabinet/… 甚至是你自己喜欢的某�U�东西来当作 mnesia 的后端，��像 ets/dets 一栗��而访问的接口仍保持不变——��l�沿�?mnesia 的接口，一行也不用攏V�?DIY �q�种扩展也变得相当容易，写一�?behavior ��成了�?/p>

实现�q�程

1�Q�与从源代码�~�译的方式安装Erlang

tar xvf otp_src_R12B-5.tar.gz

cd otp_src_R12B-5

./configure & make & make install

注意�Q�我的系�l�是RHEL 5.3�Q�默认安装目录�ؓ/usr/local/erlang

2�Q�安装Mnesiaex

tar xvf mnesia-4.4.7.6.tar.gz

cd mnesia-4.4.7.6

./configure --prefix=/usr/local

make

make check

make install

注意�Q�这里一定要指定prefix�Q�不然就装到/usr目录��M��

3�Q�安装Tokyo Cabinet

tar xvf tokyocabinet-1.4.10.tar.gz

cd tokyocabinet-1.4.10

./configure --prefix=/usr

make & make install

3�Q�安装tcerl

tar xvf tcerldrv-1.3.1e.tar.gz

cd tcerldrv-1.3.1e

./configure --prefix=/usr

make & make install

tar xvf tcerl-1.3.1e.tar.gz

cd tcerl-1.3.1e

./configure --prefix=/usr/local

make & make install

本文来自CSDN博客�Q��{载请标明出处�Q?a >http://blog.csdn.net/jimmychou/archive/2009/03/13/3988468.aspx

暗夜教父 2009-09-29 15:12 发表评论

暗夜教父 — Thu, 24 Sep 2009 14:23:00 GMT

http://shiningray.cn/some-facts-about-erlang-and-smp.html

原文�Q?a >http://groups.google.com/group/erlang-questions/browse_thread/thread/7827f5e32681ca8e

by.Kenneth Erlang/OTP team, Ericsson
译：ShiningRay

以下是一�?span class=hilite1>Erlang SMP实现的细节和与性能与�׾~�性相关一些简单介�l��?/p>

几周之内�q�有有一个关于多核如何运作以及未来如何发展的更详�l�的介绍。我打算��一些内�Ҏ��在我的报告中�Q�将�?�?7日的ICFP2008�Q?span class=hilite1>Erlang Workshop在Victoria BC展示�l�大家�?/p>

没有SMP支持�?span class=hilite1>Erlang VM只有1个运行在��d��理线�E�中的调度器。该调度器从�q�行队列�Q�run-queue�Q�中取出可以�q�行�?span class=hilite1>Erlang�q�程以及IO��d��Q�而且因�ؓ只有一个线�E�访问他们所以无��锁定�Q何数据�?/p>

而带有SMP支持�?span class=hilite1>Erlang VM可以有一个或多个调度器，每个�q�行在一个线�E�中。调度器从同一个公��p��行队列中取出可运行的Erlang�q�程和IO��d��。在SMP VM中所有的�׃�n数据�l�构都会由锁�q�行保护�Q�运行队列就是这样一个由锁保护的数据�l�构�?/p>

从OTP R12B开始，如果操作�pȝ��报告有多�?个的CPU�Q�或者核心）VM的SMP版本会自动启动，�q�且�Ҏ��CPU或者核心的数量启动同样数量的调度器�?/p>

你可以从“erl”命��o打印出来的第一行看到它选择了哪些参数。例如：


Erlang (BEAM) emulator version 5.6.4 [source] [smp:4] [asynch-threads:0] …..
其中“[smp:4]”表示SMP VM�q�行�?个调度器�?/code>


默认值可以用“-smp [enable|disable|auto]”来替换，auto是默认的。如果smp被启用了�Q?smp enable�Q�，要设�|�调度器的数量可以���?#8220;+S Number”其中Number是调度器的数量（1�?024�Q?/p>
注意1�Q�运行多于CPU或核心��L��的调度器不会有�Q何提升�?/p>
注意2�Q�在某些操作�pȝ��中一个进�E�可使用的CPU或者核心的数量可以被限制。例如，在Linux中，命��o“taskset”���可以实现这个功能�?Erlang VM目前�q�只能探���CPU或者核心的��L���Q�不会考虑“taskset”所讄���的掩码。正因如此，例如可能会出玎ͼ�已经出现�q�了�Q�即�?span class=hilite1>Erlang VM�q�行�?个调度器�Q�也只��用了2个核心。OS会进行限制因为它要考虑“taskset”所讄���的掩码�?/p>
每个Erlang VM的调度器都运行于一个OS�U�程上，是OS来决定线�E�是否执行在不同的核心上。一般来说OS会很好地处理�q�个问题�q�且会保证线�E�在执行期间�q�行于同一个核心上�?/p>
Erlang�q�程会被不同的调度器�q�行�Q�因��Z��们是从一个公��p��行队列中被取出，由首先可用的调度器运行�?/p>
性能和�׾~��?/h3>
只有一个调度器的SMP VM要比非SMP的VM�E�微慢那么一点点。SMP VM内部需要用到各�U�锁�Q�不�q�只要不存在锁的争用�Q�那么由锁引��L��开销不会非常大（���是锁争用上面需要花旉����Q�。这也解释了��Z��在某些情况下�Q�运行多个只有一个调度器的SMP VM要比包含多个调度器的单一SMP VM更加高效。当然运行多个VM要求应用可以按照多个�q�行��d��的方式运行�ƈ且之间没有或者几乎不通讯�?/p>
一个程序是否能在多�怸�的SMP VM中良好地�q�行提升很大�E�度上取决于�E�序的性质�Q�某些程序可以保持线性提升至8核甚�?6核，同时其他某些�E�序基本不能提升�Q�连2栔R��不行。实际应用中很多�E�序都能在主���市场的核心��C��得到提升�Q�见下文�?/p>
若�ƈ行的持箋“通话”由每个核心一个或多个Erlang�q�程来表�C�，实际的支持大量通话的电信��品已�l�先现出在双核和四核处理器上不俗的�׾~�性。注意，�q�些产品是在SMP VM和多核处理器出现很久以前按照普通的Erlang风格来写的，他们也能无须��M��修改甚至不需重新�~�译代码���p���?span class=hilite1>Erlang SMP VM中获益�?/p>
SMP性能得到持箋改进
SMP实现正被不断改进以便能得到更好的性能和�׾~�性。在每个服务发布版R12B-1,2,3,4,5…,R13B�{�等中，你都能发现新的优化�?/p>
一些已知的瓉���
单一的常见运行队列随着CPU或核心的数量的增加会成�ؓ一个显著的瓉����?/p>
�q�从4核开始往上就会显现出来，不过4�总�然可以�ؓ多数应用�E�序提供不错的性能。我们正在从事一个每个调度器一个运行队列的解决�Ҏ��作�ؓ目前最重要的改�q��?/p>
Ets表格会引入锁。在R12B-4之前在每�ơ对一个ets-table的访问中会用��C��个锁�Q�但是在R12B-4中meta-table的锁被优化过�Q�可以显著减���争用（前面已经提到争用是有很大代�h的）。如果很�?span class=hilite1>Erlang�q�程讉K��同一个表��|����׃��有很多锁争用造成性能降低���其当这些进�E�主要工作是讉K��ets-table。锁存在于表�U�而非记录�U�。注意！�q�也会媄响到Mnesia因�ؓMnesia用到了很多ets-table�?/p>
我们关于SMP的策�?/h3>
当我们开始实现SMP VM的最初，我们���q��定了�{�略�Q?#8220;首先让它可以�q�行�Q�然后测量，然后优化”。自�?006�q�五月我们发布了�W�一个稳定的SMP VM�Q�R11B�Q�以来，我们一直遵循着�q�个�{�略�?/p>
�q�有更多已知的东西可以改�q�，我们会按照性能的收益大���先后各个击破�?/p>
我们���主要的�_�֊�攑֜�多核�Q�大�?�Q�上更好的连�l��׾~�性上�?/p>
卓越典范
即��SMP�pȝ��有还有一些已知的瓉���不过已经有不错的整体性能和�׾~�性，同时我相信在让程序员利用多核机器事半功倍方面，我们是一个卓���的典范�?/p>




暗夜教父 2009-09-24 22:23 发表评论



Erlang开发徏�?杂记�?
暗夜教父 — Wed, 23 Sep 2009 17:00:00 GMT
以下是在erlang��目开发中的一些记录，卛_��含很多通俗易懂的原则，也包含一些似是而非的徏议，比较混�ؕ�Q�还没有�U�篏��C��个可以分门别�cȝ��地步�Q�各位就���就看吧..

:) 

* ���保没有��M���~�译警告 

* Erlang中String采用list实现�Q?2位系�l�中�Q�其1个字�W�用8个字节的�I�间�Q?个保存value,
4个保存指�?。因此string速度较慢�Q�空间占用较�?

* 在Server中，��L�����力书写���N��归(tail-recursive)的函�?


* 使用'++'�Ӟ��left list会被拯����Q�然后添加到right list的头部，因此最好把length较短的list攑֜�左侧


* 避免使用regexp�Q�如果需要正则表辑ּ��Q�请使用re 

*
timer模块的大部分函数实现�Q�依赖于一个process�Q�如果过多��用timer�Q�会��D���q�个process负蝲�q�大�Q�媄响效率�?
  推荐使用erlang:send_after/3�?span class="hilite1">erlang:start_timer/3 

* 避免使用list_to_atom/1�Q�因�?span class="hilite1">erlang中atom数量最大�ؓ1048576, 且不�q�行GC控制。因此如果持�l�性的调用list_to_atom/1

  可能很容易达到系�l�上限，从而导致emulator terminate。请使用list_to_existing_atom/1�?

*
list内部实现��Z��个列表，因此length(List), 需要遍历整个list比较耗时 

*
对于不同的数据类型，使用不同的size函数�Q�tuple_size/1, byte_size/1, bit_size/1 

* 使用binary
match来进行binary的分�Ԍ��而不使用split_binary/2 

*
如果两个list都拥有很多数据，那么请不要���?--'�Q�而是���数据�{化到ordsets�Q�然后调用ordsets:substract/2. 

*
对于binary相关操作可以�q�行binary优化�Q�bin_opt_info�~�译选项�Q�代码框�Ӟ�� 

*  
f(<>,...) ->  
       ... % Rest is
not used here  
       f(Rest,...);  
   
f(<>,...) ->  
      ... % Rest is not
used here  
      f(Rest,...);  
    ...  
    f(<<>>, ...)
->  
      ReturnValue. 

*
调用lists:flatten/1可以���list扁��^化，�q�个操作代�h很大�Q�比'++'�q�要昂贵。下面这些时候我们可以避免： 
    ���数据发送给port�?

    调用list_bo_binary/1和iolist_to_binary�?

* ���的函数可以让您方便的找出错误的函数和代�?


* 不要在同一行出现相同的�W�号 
20    some_fun() -> 
21       L = [{key1, v1},
{key2, [some_record#v21, v22]}], 
22      ... 
�~�译�Ӟ��会提�C�line 21 '[' 语法错误�Q?
因�ؓ21行有多个 '[' �Q�所以这个bug不能准确定位�Q�你需要花旉�����L��查代码�?
好的做法是： 
20 some_fun() ->

21      L = [{key1, v1}, 
22            {key2, [some_record#v21, v22]}

23            ], 
      ... 
�q�样�Q�编译其会提�C�Z�� line 22 '['
语法错误�Q�你很开���q��道是那个地方错了�?

* 使用 CTRL �Q?\ �?init:stop()�Q?可以退�?span class="hilite1">Erlang�Q?使用CTRL �Q?G �?CTRL + C 弹出菜单选项�Q�可以选择是否退�?span class="hilite1">Erlang�?
其中CTRL �Q?G可以用来�q�接其他的shell�Q?CTRL �Q?C可以查看其他一些系�l�信�?

Ctrl + C abort 是野蛮的退出方�?

* use "open_port({fd,0,2}, [out])" make
erlang program write standard error to unix system


* If you don't run experiments before you start designing a new system,
your entire system will be an experiment! 

* standard data structure
desc: 

Module Description 
sets sets, i.e. a collection of unique
elements. 
gb_sets sets, but based on a general balanced data structure

gb_tree a general balanced tree 
dict maps, also called associative
arrays 
ets hash tables and ordered sets (trees) 
dets on-disk hash tables


Suggestion�Q?
elments count: 0 �Q?100 | 100 - 10000  |  10000 - 
our
select   :  list   |      ets     |  gb_tree 

* 通过code:clash/0
������代码中是否有module冲突现象�Q�sticky) 

* epmd -d -d 启动 epmd 可以查看erlang node之间的通讯 

*
���正常的逻辑代码和错误处理代码分���，发生错误�Ӟ�����管错误。由另一个错误处理模块进行处�?

* �c�M��于操作系�l�，我们的程序也可以分�ؓkernel �?
user 两层�Q?对于kernel�l�对不能出现错误�Q?对于user可以出现错误�Q�进行恢�?

*
process��层loop涉及的代码及函数�Q�最好在一个module中实�?

* process 的register
name和module名称一��_�� 便于��L��代码 

* 每个process��h��一个单一的角�Ԍ��比如�Q�supervisor 用来�q�行错误恢复�Q?
work 工作者，可以出现错误�Q?trusted worker 不会出现错误 

*
通过函数调用可以实现的功能，��׃��要��用sever实现�Q�如gen_server, 及类似的loop 实现�Q?

*
�l�消息加一个tag�Q�在发生错误的时候，可以定位到消息，同时也有利于�E�序的稳�?

*
在消息��@环中�Q�对于unknown的消息，误���用lib:flush_receive/0 ���其清除�Q�减轻process msg queue的长�?

*
server中��L��书写���N��归的��@�?

* ���量使用record�Q?而不是原始的tuple来表现数据结构， 在��用record�Ӟ��使用select
match�Q?
#person{name = Name, age = Age} = Person 

*
对于�q�回��|��最好也��d��一个tag�Q�用来说明返回值类型，或者执行成功与�?

* ���可能少的��用catch和try�Q�在erlang�E�序中，不推荐主动捕获异常。只有当我们的逻辑特别复杂�Q�我们可以��用throw来返回数据，使用catch来获取返回倹{�?


* 当然�E�序与外界交互，外界数据不可靠时�Q�需要��用catch和try 

* 慎重使用process dictory�Q?
当你使用get/1, put/1�Ӟ��你的应用会具有很大的slide effect。可以通过加入一个新的参数来保存原本需要存储到process
dictory中数�?

* 如果不想使自��q��涂，请不要��用import 

*
使用export�Ӟ�����功能类似的接口�l�合在一��P���q�添加合理的注视�Q�这样你的接口更清晰�Q�别��Z��用�v来更方便 

* 不要书写嵌套太深的代�?


* 不要书写太长的module 

* 不要书写太长的函�?

* 每行代码不能太长 

* 避免使用
"_" 匿名变量�Q�请为每个变量选择有意义的名称�Q�如够某个变量暂时不使用�Q�请以下划线 "_" 开�?

* {error, enfile} enfile error in socket
是以为内linux�pȝ���?ulimit 限制�Q?在root下修改：ulimit -n 25000 

* {error, enotconn}
表示socket已经关闭 

* �?span class="hilite1">erlang开发时�Q�慎重��用macro�Q�因�?span class="hilite1">erlang的single
assign的缘故，同时调用某个marco�Q�而macro又定义了某个变量�Q�可能导致badmatch错误�?
比如�Q?

-define(ADDLINEINFO1(F), 
        ( 
        begin 
        Str1 =
lists:concat(["[Mod:", ?MODULE, " Line:", ?LINE, "]"]), 
        Str1 ++ F

        end 
        )). 
-define(WARN(Log, F, D), log4erl:warn(Log,
?ADDLINEINFO(F), D)). 
如果�q�箋使用 WARN, 会出现此错误 

* erlang中可以定义很多环境变量： 
ERL_MAX_ETS_TABLES 讄���最大的ets数目 默认1400

ERL_MAX_PORTS erlang最大的port数目 默认1024 

*
.app文�g中的start_phases�Q?选项既可以用来作为include
applications之间的同步启动，也可以用来对单个application�q�行分布启动�?
��序如下 
包含included app:


application:start(prim_app) 
=> prim_app_cb:start(normal, [])

=> prim_app_cb:start_phase(init, normal, []) 
=>
prim_app_cb:start_phase(go, normal, []) 
=> incl_app_cb:start_phase(go,
normal, []) 
ok 

无included app: 
application:start(prim_app)

=> prim_app_cb:start(normal, []) 
=> prim_app_cb:start_phase(init,
normal, []) 
=> prim_app_cb:start_phase(go, normal, []) 
ok 

*
��M��时候，都要重视函数的返回��|��通过match���保您的预期�Q�如果发生错误，那么���大胆的表达出来�?

暗夜教父 2009-09-24 01:00 发表评论


暗夜教父 — Wed, 23 Sep 2009 16:59:00 GMT
A Million-user Comet Application with Mochiweb, Part 1

在MacOSX�q�_��上遇到的一些问题： 

一. IPv6��D��的问�?

在MacOS下测试时报错econnrefused�Q�mochi-urls.txt文�g的url不能用localhost�Q�得�?27.0.0.1才行


在Erlang的邮件列表中扑ֈ�了解释： 
We have seen the same issue with CouchDB. What
we found out 
is that in our case localhost was not only resolving to
127.0.0.1 (IPv4) 
but also ::1 (IPv6) and that http:request() would try to
connect to 
::1 where no service was listening.


Erlang的http模块�~�省是打开IPv6模式的，当测试程序通过http模块�q�接localhost�Ӟ���q�接的地址是IPv6�?:1地址�Q�但是mochi没有在此监听�Q�所以连接出�?
{error,econnrefused} 

解决�Ҏ��两种�Q?
1. ���mochi-urls.txt中的地址都改�?27.0.0.1

2.
在http:request(…)�q�行之前调用http:set_options([{ipv6,disabled}])�Q�关闭测试程序的IPv6模式�Q���用IPv4模式


理论上还有一�U�方法：让mochi服务器开启IPv6模式监听�Q�这个我不知道这么开�Q?
参�?
You should teach
Yaws to listen also on IPv6 - “localhost” resolves not 
only to IPv4
127.0.0.1, but also to IPv6 ::1. 


�? �q�程能打开的文件描�q�符数量的限�?

MacOSX下缺省能同时打开的文件描�q�符最大数�?56个，使用 ulimit -a命��o查看 
$ ulimit -a 
core file
size          (blocks, -c) 0 
data seg size           (kbytes, -d) 6144

file size               (blocks, -f) unlimited 
max locked memory      
(kbytes, -l) unlimited 
max memory size         (kbytes, -m) unlimited

open files                      (-n) 256 
pipe
size            (512 bytes, -p) 1 
stack size              (kbytes, -s) 8192

cpu time               (seconds, -t) unlimited 
max user
processes              (-u) 266 
virtual memory          (kbytes, -v)
unlimited 
使用ulimit -n XXXX讄����Q�但最大数量还是不能超�q?0240 

查看内核每进�E�最大文件数�Q?
$
sysctl kern.maxfiles kern.maxfilesperproc 
kern.maxfiles: 12288

kern.maxfilesperproc: 10240 

增大每进�E�最大文件数�Q?
$ sudo sysctl -w
kern.maxfilesperproc=20480 kern.maxfiles=22528 

然后讄��� 
$ ulimit -n
20480 
注意ulimit只在每个shell�H�口生命周期内有效，当新开一个shell后，得再�ơ设�|?
sysctl做的修改没有�q�个问题


三、调节IP端口可�����_��不然最多只能有15K个连�?
�~�省动态端口号�?9152开始，�Ҏ��2000后最多可以有63K个连�?

sysctl -w net.inet.ip.portrange.hifirst=2000
net.inet.ip.portrange.first=2000 


暗夜教父 2009-09-24 00:59 发表评论


ubuntu下编译安装Erlang
暗夜教父 — Fri, 18 Sep 2009 11:12:00 GMT
先要�q�样 
apt-get install build-essential   
apt-get install libncurses5-dev   
apt-get install m4   
apt-get install libssl-dev  

然后要用新立得装如下库： 
libc6 
unixodbc
unixodbc-dev
gcj 

freeglut3-dev
libwxgtk2.8-dev
g++


然后下蝲源代�?
tar -xvf otp-src-R12B-0.tar.gz   
cd otp-src-R12B-0  
sudo ./configure --prefix=/otp/erlang   
sudo make   
sudo make install  

安装完毕�Q�可以rm -fr opt-src-R12B-0删除源代�?
然后�Ҏ��/etc/profile 
export PATH=/opt/erlang/bin:$PATH
alias ls='ls -color=auto'
alias ll='ll -lht'
可以source /etc/profile一下，及时修改PATH 


暗夜教父 2009-09-18 19:12 发表评论


Erlang与ActionScript3采用JSON格式�q�行Socket通讯
暗夜教父 — Fri, 18 Sep 2009 08:07:00 GMT
前提�Q?
需要下�?a  target=_blank>as3corelib来�ؓActionScript3处理JSON codec 

server.erl 

-module(server).   
-export([start/0,start/1,process/1]).   
-define(defPort, 8888).   
  
start() -> start(?defPort).   
  
start(Port) ->   
  case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of   
    {ok, LSock} -> server_loop(LSock);   
    {error, Reason} -> exit({Port,Reason})   
  end.   
  
%% main server loop - wait for next connection, spawn child to process it   
server_loop(LSock) ->   
  case gen_tcp:accept(LSock) of   
    {ok, Sock} ->   
      spawn(?MODULE,process,[Sock]),   
      server_loop(LSock);   
    {error, Reason} ->   
      exit({accept,Reason})   
  end.   
  
%% process current connection   
process(Sock) ->   
  Req = do_recv(Sock),   
  io:format("~p~n", [Req]),   
  {ok, D, []} = rfc4627:decode(Req),   
  {obj, [{"name", _Name}, {"age", Age}]} = D,   
  Name = binary_to_list(_Name),   
  io:format("Name: ~p, Age: ~p~n", [Name, Age]),   
  Resp = rfc4627:encode({obj, [{"name", 'Hideto2'}, {"age", 24}]}),   
  do_send(Sock,Resp),   
  gen_tcp:close(Sock).   
  
%% 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.  


Person.as 

package  
{   
    public class Person   
    {   
        public var name:String;   
        public var age:int;   
        public function Person()   
        {   
        }   
    }   
}  

Client.as 

package {   
    import com.adobe.serialization.json.JSON;   
       
    import flash.display.Sprite;   
    import flash.events.*;   
    import flash.net.Socket;   
    import flash.text.*;   
       
    public class Client extends Sprite   
    {   
        private var socket:Socket;   
        private var myField:TextField;   
        private var send_data:Person;   
        public function Client()   
        {   
            socket = new Socket();   
            myField = new TextField();   
            send_data = new Person();   
            send_data.name = "Hideto";   
            send_data.age = 23;   
            socket.addEventListener(ProgressEvent.SOCKET_DATA, onSocketData);   
            socket.connect("localhost", 8888);   
            socket.writeUTFBytes(JSON.encode(send_data));   
            socket.flush();   
            myField.x = 20;   
            myField.y = 30;   
            myField.text = "test";   
            myField.autoSize = TextFieldAutoSize.LEFT;   
            addChild(myField);   
        }   
        private function onSocketData(event:ProgressEvent):void {   
            while(socket.bytesAvailable) {   
                var recv_data:* = JSON.decode(socket.readUTFBytes(socket.bytesAvailable));   
                myField.text = "Name: " + recv_data.name + ", age: " + recv_data.age.toString();   
            }   
        }   
    }   
} 

�q�行Erlang服务器端�Q?br>
Eshell> c(server).   
Eshell> server:start().   
"{\"name\":\"Hideto\",\"age\":23}"  
Name: "Hideto", Age: 23 

�q�里打印��Z��Erlang Socket Server接收到的AS3 Client发过来的JSON decode�q�的一个person对象 

�q�行AS3客户端： 
client.html上首先显�C?#8220;test”�Q�然后异步处理完Socket消息发送和接受后，decode Erlang Server端发�q�来的person对象�Q�将��面上的TextField替换�?#8220;Name: Hideto2, age: 24” 


暗夜教父 2009-09-18 16:07 发表评论


暗夜教父 — Fri, 18 Sep 2009 07:38:00 GMT
使用下列JSON库： 
http://www.lshift.net/blog/2007/02/17/json-and-json-rpc-for-erlang 

该JSON库采�?a  target=_blank>Joe Armstrong prefered Data type mapping 
卻I�� 

JSON Obj    = type obj()   = {obj, [{key(), val()}]}   
JSON Array  = type array() = [val()]   
JSON Number = type num()   = int() | float()    
JSON String = type str()   = bin()   
JSON true false null       = true, false null (atoms)   
With Type val() = obj() | array() | num() | str() | true | false | null  
and key() being a str(). (Or a binary or atom, during JSON encoding.)  

���试如下�Q?

Eshell V5.6.3  (abort with ^G)   
1> O = rfc4627:encode({obj, [{name, hideto}, {age, 23}]}).   
"{\"name\":\"hideto\",\"age\":23}"  
2> rfc4627:decode(O).   
{ok,{obj,[{"name",<<"hideto">>},{"age",23}]},[]}   
3> A = rfc4627:encode([1,2,3,4,5]).   
"[1,2,3,4,5]"  
4> rfc4627:decode(A).   
{ok,[1,2,3,4,5],[]}   
5> N = rfc4627:encode(12345).   
"12345"  
6> rfc4627:decode(N).   
{ok,12345,[]}   
7> S = rfc4627:encode("12345").   
"[49,50,51,52,53]"  
8> rfc4627:decode(S).   
{ok,"12345",[]}   
9> T = rfc4627:encode(true).   
"true"  
10> rfc4627:decode(T).   
{ok,true,[]}   
11> F = rfc4627:encode(false).   
"false"  
12> rfc4627:decode(F).   
{ok,false,[]}   
13> Null = rfc4627:encode(null).   
"null"  
14> rfc4627:decode(Null).   
{ok,null,[]}  





暗夜教父 2009-09-18 15:38 发表评论


暗夜教父 — Fri, 18 Sep 2009 04:40:00 GMT
转自http://www.javaeye.com/topic/401041


学erlang有一�D�|��间了�Q�现在在�l�护一套webim�pȝ�� 
�q�打���扩展成 webgame 的服务程�?/p>
在没有��用包协议的时候，遇到好多�_�包问题�Q�实在恼�?/p>
查阅了相兌���料：
Flash Socket �?writeUTF() 会自动增加包头长度的协议�Q�刚好对应了 
Erlang的Socket选项 {packet,2} 

�q���得两者的通信非常完美�Q�再也不用担心粘包什么的问题�?/p>
 
下面是我写的一个Flash Socket 接口�Q�SocketBridge.as
package {   
    import flash.display.Sprite;   
    import flash.events.*;   
    import flash.net.Socket;   
    import flash.utils.*;   
    import flash.external.ExternalInterface;   
    import flash.system.*;   
    public class SocketBridge extends Sprite {   
        Socket.prototype.timeout    =3000;   
        private var socket:Socket;   
        public function SocketBridge()   
        {   
            socket = new Socket();   
            socket.addEventListener( Event.CONNECT, onConnect );   
            socket.addEventListener( ProgressEvent.SOCKET_DATA, onDataRecevice);   
            socket.addEventListener( Event.CLOSE, onClose);   
            socket.addEventListener( IOErrorEvent.IO_ERROR, onError);    
               
            if(ExternalInterface.available)   
            {   
                   
                ExternalInterface.addCallback("socket_connect",socket_connect);   
                ExternalInterface.addCallback("socket_send",socket_send);   
                ExternalInterface.addCallback("load_policy",load_policy);   
            }   
        }   
        public function onError(e):void  
        {   
            ExternalInterface.call("sb_onerror",e.text);   
            socket.close();   
        }   
        public function load_policy(host:String,port):void  
        {   
            Security.loadPolicyFile("xmlsocket://"+host+":"+port);     
        }   
           
        public function socket_connect(host:String,port):void  
        {   
            try{   
                socket.connect(host,port);   
            }catch(e){   
                ExternalInterface.call("sb_onerror",e.text);   
            }   
        }   
           
        public function socket_send(msg:String)   
        {      
            socket.writeUTF(msg);   
            socket.flush();   
        }   
           
        private function onConnect(event:Event):void    
        {   
            ExternalInterface.call("sb_onconnect",true);   
        }   
           
        private function onClose(event:Event):void    
        {   
            socket.close();   
            ExternalInterface.call("sb_onclose",true);   
        }   
  
        private function onDataRecevice( eventrogressEvent ):void  
        {   
            var sdata:String;   
            while(socket.bytesAvailable){   
                sdata = socket.readUTF();   
                ExternalInterface.call("sb_ondata",sdata);   
            }   
        }   
  
    }   
}  



暗夜教父 2009-09-18 12:40 发表评论


erlang�|�络�~�程的几个性能调优和注意点
暗夜教父 — Mon, 14 Sep 2009 04:25:00 GMT
转自http://coderplay.javaeye.com/blog/94209

前些天给echo_server写了个非常简单的�q�接压力���试�E�序,



   1.  -module(stress_test).  
   2.   
   3. -export([start/0, tests/1]).  
   4.   
   5. start() ->  
   6.     tests(12345).  
   7.   
   8. tests(Port) ->  
   9.     io:format("starting~n"),  
  10.     spawn(fun() -> test(Port) end),  
  11.     spawn(fun() -> test(Port) end),  
  12.     spawn(fun() -> test(Port) end),  
  13.     spawn(fun() -> test(Port) end).  
  14.   
  15. test(Port) ->  
  16.      case gen_tcp:connect("192.168.0.217", Port, [binary,{packet, 0}]) of  
  17.     {ok, _} ->  
  18.             test(Port);  
  19.     _ ->  
  20.         test(Port)  
  21.     end.  

一开始我的这个stress_test客户端运行在windows上面, echo_server服务器端�q�行在linux上面�?
�l�果接受�?016个连接就停止�? 于是我用ulimit -n 改了服务器端的文件描�q�符数量�?0240.
接着�q�是如此,折腾了几�?最�l�还是没有搞明白�?



于是���求助于公司的linux�~�程牛�h,�l�果让我一�?..  客户端没有修�Ҏ��件描�q�符个数. windows上得在注册表里面�? 

牛�h开始对�q�东西的性能感兴���了,刚好我摸了一阵子erlang的文�?于是我俩���p��向了erlang�|�络�q�接的性能调优之旅啦~~�q�程真是让�h兴奋�?我们很快通过�?024�q�一关~~��C��4999个连�?很兴�? 



但�ؓ什�?999个连接呢, ���查一下代码终于发现echo_server.erl定义了一个宏, 最大连接数�?000. 我又倒~~

修改�~�译之后, �q�接数跑�?01xx多了, 太哈皮了!

再测102400个连接时,�?2767个连接数erl挂了~说是�q�程开得太多了. 好在记得�q�个erl的参�?P,可以定义erlang能生成的�q�程�? 默认�?2768. 改了!



后面不知怎么着,�?1231个连接停止了. 新的性能瓉���又卡了我�?  好在牛�h对linux�? 用strace(�q�东西会莫名地退�?,
stap查出一些苗�?  
我也惛_��在otp文档好像提过另一个limit,那就是端口数...在此同时我们发现erlang在linux上是用的传统poll模型.
但查erlang的源代码发现是支持epoll�? 在网上搜了半�?�l�于搜到了个maillist的帖�? 



代码


    $./configure --enable-kernel-poll  




�׃��我们的测试服务器是双核的,我们在配�|�的时候也打开了smp支持.  �Ƣ快的make  & make install之后....

�?/proc/sys/net/ipv4/ip_local_port_range 的内�Ҏ��成了1024�?5535.  最多也也能�Ҏ��65535 :)



代码


    $echo 1024 65535 > ip_local_port_range  




另外再添加一个erl的环境变�?br>
代码


    $export ERL_MAX_PORTS=102400  




于是开始跑�?不过�q�次跑不一样了

echo_server

 

    $erl -noshell  +P 102400 +K true +S 2 -smp -s echo_server start  


   
stress_test

 

    $erl -noshell  +P 102400 +K true +S 2 -smp -s stress_test start  


�q�里�?K true,表示使用内核poll,+S 2 表示两个�? �q�样可欢快啦~~~ 10w大关�q�咯! 而且比刚才没用epoll的速度快暴多~~

于是我们又开始了204800个连接发���试了~~~



用top一看cpu占用率极�?服务器只�?%左右�?内存也不是很大~~



暗夜教父 2009-09-14 12:25 发表评论


echo_server
暗夜教父 — Mon, 14 Sep 2009 04:24:00 GMT
转自http://coderplay.javaeye.com/blog/93403

   1.  -module(echo_server).  
   2. -export([start/0,stop/0]).  
   3.   
   4. -define(LISTEN_PORT,12345).     % 开攄����?nbsp; 
   5. -define(MAX_CONN, 5000).        % 最大连接数  
   6.   
   7. start() ->  
   8.     process_flag(trap_exit, true), % 讄���退出陷�?nbsp; 
   9.     tcp_server:start_raw_server(?LISTEN_PORT,  
  10.                 fun(Socket) -> socket_handler(Socket,self()) end,  
  11.                 ?MAX_CONN,   
  12.                 0).  
  13.   
  14. %% 处理数据  
  15. socket_handler(Socket,Controller) ->  
  16.     receive  
  17.         {tcp, Socket, Bin} ->  
  18.             gen_tcp:send(Socket, Bin); % echo  
  19.         {tcp_closed, Socket} ->  
  20.             ok;  
  21.         _ ->  
  22.             socket_handler(Socket,Controller)  
  23.     end.  
  24.   
  25. stop() ->  
  26.     tcp_server:stop(?LISTEN_PORT).  


��Z��Joe Armstrong 的tcp_server模块来做�? 试试�?:)



�~�译 

    erl -noshell -s make all -s init stop

�q�行

    erl -noshell -sname coderplay -s echo_server start



暗夜教父 2009-09-14 12:24 发表评论


erlang �|�络调优实战
暗夜教父 — Mon, 14 Sep 2009 03:20:00 GMT
原文�|�址�Q?a   target="_blank">erlang�|�络�~�程的几个性能调优和注意点

原文作者：coderplay

前些天给echo_server写了个非常简单的�q�接压力���试�E�序,

下蝲: stress_test.erl


    -module(stress_test).  
    

    
    -export([start/0, tests/1]).  
    

    
    start() ->  
    

    tests(12345).  
    

    
    tests(Port) ->  
    

    io:format("starting~n"),  
    

    spawn(fun() -> test(Port)

    end),  
    

    spawn(fun() -> test(Port)

    end),  
    

    spawn(fun() -> test(Port)

    end),  
    

    spawn(fun() -> test(Port)

    end).  
    

    
    test(Port) ->  
    

    case

    gen_tcp:connect("192.168.0.217", Port, [binary,{packet, 0}])

    of

    
        {ok, _} ->  
    

    test(Port);  
    

    _ ->  
    

    test(Port)

    
    

    end.



一开始我的这个stress_test客户端运行在windows上面,echo_server服务器端�q�行在linux上面。结果接受了1016个连接就停止�? 于是我用ulimit -n改了服务器端�?span  onclick="tagshow(event)" class="t_tag">文�g描述�W�数量�ؓ10240. 接着�q�是如此,折腾了几�?最�l�还是没有搞明白�?br>
于是���求助于公司的linux�~�程牛�h,�l�果让我一�?#8230;  客户端没有修�Ҏ��件描�q�符个数. windows上得在注册表里面�?



牛�h开始对�q�东西的性能感兴���了,刚好我摸了一阵子erlang�?span  onclick="tagshow(event)" class="t_tag">文档,于是我俩���p��向了erlang�|�络�q�接的性能调优之旅啦~~�q�程真是让�h兴奋�?我们很快通过�?024�q�一关~~��C��4999个连�?很兴�?

但�ؓ什�?999个连接呢, ���查一下代码终于发现echo_server.erl定义了一个宏, 最大连接数�?000. 我又倒~~

修改�~�译之后, �q�接数跑�?01xx多了, 太哈皮了!

再测102400个连接时,�?2767个连接数erl挂了~说是�q�程开得太多了. 好在记得�q�个erl的参�?P,可以定义erlang能生成的�q�程�? 默认�?2768. 改了!

后面不知怎么着,�?1231个连接停止了. 新的性能瓉���又卡了我�? 好在牛�h对linux�?
用strace(�q�东西会莫名地退�?,stap查出一些苗�?我也惛_��在otp文档好像提过另一个limit,那就是端口数…在此同时我们发现
erlang在linux上是用的传统poll模型.但查erlang的源代码发现是支持epoll�?
在网上搜了半�?�l�于搜到了个maillist的帖�?


    $./configure --enable-kernel-poll



�׃��我们的测试服务器是双核的,我们在配�|�的时候也打开了smp支持. �Ƣ快的make  & make install之后….

�?/proc/sys/net/ipv4/ip_local_port_range 的内�Ҏ��成了1024�?5535. 最多也也能�Ҏ��65535  


    $echo 1024 65535 > ip_local_port_range



另外再添加一个erl的环�?span  onclick="tagshow(event)" class="t_tag">变量


    $export ERL_MAX_PORTS=102400



于是开始跑�?不过�q�次跑不一样了

echo_server


    $erl -noshell  +P 102400 +K true +S 2 -smp -s echo_server start



stress_test


    $erl -noshell  +P 102400 +K true +S 2 -smp -s stress_test start



�q�里�?K true,表示使用内核poll,+S 2 表示两个�? �q�样可欢快啦~~~ 10w大关�q�咯! 而且比刚才没用epoll的速度快暴多~~

于是我们又开始了204800个连接发���试了~~~

用top一看cpu占用率极�?服务器只�?%左右。内存也不是很大~~

暗夜教父 2009-09-14 11:20 发表评论


ErLang语法提要
暗夜教父 — Fri, 11 Sep 2009 03:04:00 GMT
ErLang语法中充满了一些约定。大写字母开头的名字�Q�比如Address�Q�，表示一个变量，包括参数、局部变量等�Q�小写字母开头的单词�Q�比如ok�Q�，表示一个常量，叫做atom�Q�原子的意思）�Q�包括常量名、函数名、模块名�{��?

ErLang的注释用%开头。ErLang用下划线“_”表示��L��变量�Q�类��g��Java的switch语法里面的default选项�?

ErLang��p��于Prolog�Q�不�q�，我觉得，ErLang语法和Haskell语法比较象，都是采用 -> 定义函数�?

ErLang语句中的标点�W�号用法很象文章的标点符受��?

整个函数定义�l�束用一个句�?#8220;.”�Q�同一个函��C���Q��ƈ列的逻辑分支之间�Q�用分号“;”分界�Q�顺序语句之��_��用逗号“,”分隔�?

ErLang中，{ }不是表示�E�序块的开头和�l�尾�Q�而是表示一�U�特�D�的数据�l�构�c�d��——Tuple�Q�元�l�）�Q�比如，{12, 3, ok}。我们可以把Tuple理解为定长数�l��?

[ ] 则表�C�最基本的函数式�~�程的数据结构类型——List。List数据�l�构很基本，写法和用法也有一定的复杂度，不是表面上看��h��那么���单，后面讲解Closure的章节会详细介绍List的最基本的构造原理�?

下面我们来看一个简单的例子�?

我们首先定义一个最���单的函数�Q�把一个参��C���?0�Q�然后加1�?
times10( Number ) –> 
Temp = 10 * Number, 
Temp + 1. 

��Z��说明问题�Q�上面的代码把乘法操作和加法操作分成两个步骤。Temp = 10 * Number语句后面是逗号�Q�因�����是两条顺序执行的语句。Temp + 1语句后面是句��P��表示整个函数定义�l�束。而且�Q�可以看出，ErLang没有return语句�Q�最后执行的那条语句的执行结果就是返回倹{�?

下面�Q�我们把�q�个函数优化一下。当参数�{�于0的时候，直接�q?�Q�否则，��׃���?0�Q�然后加1�Q�然后返回。这时候，我们���p��用到case of逻辑分支语句�Q�相当于java的switch语句�?

times10( Number ) –> 
case Number of 
0 -> 1; 
_ -> 
Temp = 10 * Number, 
Temp + 1 
end. 

我们来仔�l�观察这�D�ErLang�E�序�?

当Number�{�于0的时候，直接�q�回1。由于这是一条分支语句，和后面的分支是�ƈ列的关系�Q�所以，1的后面的标点�W�号是分受���后面这个分支，下划�U?#8220;_”表示��M��其它��|���q�里���p���C�除�?之外的�Q何其它数倹{�?

需要注意的一�Ҏ���Q�case of语句需要用end�l�尾�Q�end之前不需要有标点�W�号�?

上述代码中的case of 语句�Q�其实就是Pattern Match的一�U�。ErLang的Pattern Match很强大，能够大幅度简化程序逻辑�Q�后面进行专门介�l��?
Pattern Match 
Pattern Match主要有两个功能——比较分�z�֒�变量赋倹{�?
其中�Q�比较分�z�是最主要的功能。比较分�z����意思是�Q�根据参数��D��行条件分支的分派。可以把比较分派功能看作是一�U�类��g��if, else�{�条件分支语句的����z�强大写法�?
上面的例子中�Q�case Number of ���是�Ҏ��Number的��D��行比较分�z�。更常见的写法是�Q�可以把Pattern Match部分提到函数定义分支的高度。于是，上述代码可以写成下面的�Ş式： 
times10( 0 ) –> 1; 
times10( Number ) –> 
Temp = 10 * Number, 
Temp + 1. 

�q�段代码�׃��个函数定义分支构成，�׃��两个函数分支的函数名相同�Q�而且参数个数相同�Q�而且两个函数定义分支之间采用分号“;”分隔�Q�说明这是同一个函数的定义。函数式�~�程语言中，�q�种定义方式很常见，看�v来�Ş式很整齐�Q�宛如数学公式�?

�q�段代码的含义是�Q�当参数值等�?的时候，那么�Q�程序走�W�一个函数定义分支（卛_���?#8220;;”�l�尾�?#8220;times10( 0 ) –> 1;”�Q�，否则�Q�走下面的函数定义分支（�?#8220;times10( Number ) –>…”�Q��?

�W�二个分支中的参��C��是一个常敎ͼ�而是一个变量Number�Q�表�C����个分支可以接受�Q何除�?之外的参数��|��比如�Q?�?�?2�{�等�Q�这些值将赋给变量Number�?
因此�Q�这个地方也体现了Pattern Match的第二个功能——变量赋倹{�?

Pattern Match的�Ş式可以很复杂�Q�下面�D几个典型的例子�?
�Q?�Q�数据结构拆解赋�?
前面���到了ErLang语言有一�U�相当于定长数组的Tuple�c�d���Q�我们可以很方便地根据元素的位置�q�行�q�行赋倹{��比如， 
{First, Second} = {1, 2} 
我们�q�可以对复合Tuple数据�l�构�q�行赋��|��比如 
{A, {B, C}, D} = { 1, {2, 3}, 4 } 
List数据�l�构的赋��g��是类伹{��由于List的写法和用法不是那么���单，三言两语也说不清楚，�q�徒增困扎ͼ��q�里不再赘述�?
�Q?�Q�assertEquals语句 
在Java�{�语�a�中，我们写单元测试的时候，会写一些assert语句�Q�验证程序运行结果。这些assert语句通常是以API的方式提供，比如�Q�assertTrue()、assertEquals()�{��?
在ErLang中，可以用简单的语句辑ֈ��c�M��于assertTrue()、assertEquals()�{�API的效果�?
比如�Q�ErLang中，true = testA() �q�样的语句表�C�testA的返回结果必���L��true�Q�否则就会抛出异常。这个用法很巧妙。这里解释一下�?
前面讲过�Q�ErLang语法�U�定�Q�小写字母开头的名字�Q�都是常量名。这里的true自然也是一个常量，既然是常量，我们不可能对它赋��|��那么true = testA()的意思就不是赋��|��而是�q�行匚w��比较�?
�Q?�Q�匹配和赋值同时进�?
我们来看�q�样一�D�代码�?
case Result of 
{ok, Message} -> save(Message); 
{error, ErrorMessage} -> log(ErrorMessage) 
end. 

�q�段代码中，Result是一个Tuple�c�d���Q�包含两个元素，�W�一个元素表�C�成功（ok�Q�或者失败（error�Q�，�W�二个元素表�C�具体的信息�?
可以看到�Q�这两个条�g分支中，同时出现了常量和变量。第一个条件分支中的ok是常量，Message是变量；�W�二个条件分支中的error是常量，ErrorMessage是变量�?
�q�两个条件分支都既有比较判断�Q�也有变量赋倹{��首先，判断ResultTuple中的�W�一个元素和哪一个分支的�W�一个元素匹配，如果盔R���Q�那么把ResultTuple中的�W�二个元素赋�l�这个分支的�W�二个变量元素。即�Q�如果Result的第一个元素是ok�Q�那么走�W�一个条件分支，�q�且把Result的第二个元素赋给Message变量�Q�如果Result的第二个元素是error�Q�那么走�W�二个条件分支，�q�且把Result的第二个元素赋给ErrorMessage变量�?

在Java�{�语�a�中，实现上述的条件分支逻辑�Q�则需要多写几条语句ErLang语法可以从�Ş式上���化和简化逻辑分支分派复杂的程序�?
除了支持数相�{�比较，Pattern Match�q�可以进行范围比较、大���比较等�Q�需要用到关键字when�Q�不�q�用到when的情况，���比if else����z�不了多���，�q�里不再赘述�?
匿名函数 
ErLang允许在一个函��C��内部定义另一个匿名函敎ͼ��q�是函数式编�E�的最基本的功能。这��P��函数式语�a�才可以支持Closure。我们来看一个ErLang的匿名函数的例子�?
outer( C ) –> 
Inner = fun(A, B) -> A + B + C end, 
Inner(2, 3). 

�q�段代码首先定义了一个命名函数outer�Q�然后在outer函数内部定义了一个匿名函数。可以看刎ͼ��q�个匿名函数采用关键字fun来定义。前面讲�q�，函数式编�E�的函数���q��当于面向对象�~�程的类实例对象�Q�匿名函数自然也是这��P��也相当于�c�d��例，我们可以把这个匿名函数赋�l�一个变量Inner�Q�然后我们还可以把这个变量当作函数来调用�Q�比如，Inner(2, 3)�?
fun是ErLang用来定义匿名函数的关键字。这个关键字很重要。fun定义匿名函数的用法不是很复杂�Q�和命名函数定义�c�M���?
函数分支的定义也是类��|��只是需要用end�l�尾�Q�而不是用句号“.”�l�尾�Q�而且fun只需要写一�ơ，不需要向命名函数那样�Q�每个分支都要写。比如， 
MyFunction = fun(0) -> 0; 
(Number) -> Number * 10 + 1 end, 
MyFunction(3), 
函数作�ؓ变量 
匿名函数可以当作对象赋给变量�Q�命名函数同样也可以赋给变量。具体用法还是需要借助重要的fun关键字。比如， 
MyFunction = fun outer / 1 

���可以把上述定义的outer函数赋给MyFunction变量。后面的 / 0表示�q�个outer函数只有一个参数。因为ErLang允许有多个同名函数的定义�Q�只要参��C����C��同，���是不同的函数�?
我们可以看到�Q��Q何函数都可以作�ؓ变量�Q�也可以作�ؓ参数和返回��g��来传去，�q�些变量也可以随时作为函数进行调用，于是���具有了一定的动态性�?
函数的动态调�?
ErLang有一个apply函数�Q�可以动态调用某一个函数变量�?
基本用法�?apply( 函数变量�Q�函数参数列�?)。比如，上面的MyFunciton函数变量�Q�就可以�q�么调用�Q�apply( MyFunction, [ 5 ])�?
那么我们能否�Ҏ��一个字�W�串作�ؓ函数名获取一个函数变量呢�Q�这��h��们就可以�Ҏ��一个字�W�串来动态调用某个函��C���?
ErLang中，做到�q�一点很���单。前面讲�q�，函数名一旦定义了�Q�自然就固定了，�q�也�c�M��于常量名�Q�属于不可变的atom�Q�原子）。所有的atom都可以�{换成字符�Ԍ��也可以从字符串�{换过来。ErLang中的字符串实质上都是List。字�W�串和atom之间的�{换通过list_to_atom和atom_to_list来�{换�?
于是我们可以�q�样获取MyFunciton�Q�MyFunction = list_to_atom(“outer”) 
如果outer函数已经定义�Q�那么MyFucntion���q��于outer函数�Q�如果outer函数没有定义�Q�那么list_to_atom(“outer”)会��生一个新的叫做outer的atom�Q�MyFucntion���q��于这个新产生的atom�?
如果需要强制��生一个已�l�存在的atom�Q�那么我们需要调用list_to_existing_atom转换函数�Q�这个函��C��会��生新的atom�Q�而是�q�回一个已�l�存在了的atom�?
Tuple作�ؓ数据成员集合 
前面讲解函数式编�E�特性的时候，提到了函数式�~�程没有面向对象�~�程的成员变量，�q�是一个限制�?
ErLang的Tuple�c�d��可以一定程度克服这个限制。Tuple可以一定程度上担当容纳成员变量的职责�?
面向对象的类定义�Q�其实就是一���数据和函数的集合，只是集合的成员之间都有一个this指针相关联，可以�怺�扑ֈ��?
ErLang的Tuple�c�d�����是数据的集合，可以很自然地发挥成员变量的作用，比如�Q�{Member1, Member2}�?
读者可能会��_��ErLang的函��C��可以作�ؓ变量�Q�也可以攑ֈ�Tuple里面�Q�比如， { Memer1, Member2, Funtion1, Function2}。这不就和面向对象编�E�一样了吗？ 
遗憾的是�Q�这样做是得不偿��q��。因为函数式�~�程没有面向对象的那�U�内在的this指针支持�Q�自然也没有内在的多态和�l�承支持�Q�硬把数据和函数�p�合在一个Tuple里面�Q�一点好处都没有�Q�而且�q����׃��函数作�ؓ实例对象的灵�z�L���?
所以，函数式编�E�的最佛_��践（Best Practice�Q�应该是�Q�Tuple用来容纳成员数据�Q�函数操作Tuple。Tuple定义和函数定义加在一��P�����构成了松散的数据结构，功能上类��g��面向对象的类定义。Tuple + 函数的数据结构，��h��多态的�Ҏ��，因�ؓ函数本��n能够作�ؓ变量替换�Q�但是不��h���l�承的特性，因�ؓ没有this指针的内在支持�?
正是因�ؓTuple在数据类型构造方面的重大作用�Q�所以，ErLang专门引入了一�U�叫做Record的宏定义�Q�可以对Tuple的数�l�下标位�|�命名。比如，把第一个元素叫做Address�Q�第二个元素叫做Zipcode�Q�这��L��序员���可以这些名字访问Tuple里面的元素，而不需要按照数�l�下标位�|�来讉K���?
Tuple和Record的具体用法还是有一定复杂度�Q�限于篇�q�，本章没有展开说明�Q�只提了一些原理方面的要点�?
其它 
ErLang�q�有其它语法�Ҏ��和�l�节�Q�不再一一赘述。有兴趣的读者，可以自行去ErLang�|�站�Q�www.erlang.org�Q�进行研�I��?


暗夜教父 2009-09-11 11:04 发表评论


暗夜教父 — Fri, 11 Sep 2009 02:16:00 GMT
1。Erlang的保留字有：

after and andalso band begin bnot bor bsl bsr bxor case catch cond div end fun if let not of or orelse query receive rem try when xor 
基本都是些用于逻辑�q�算、位�q�算以及�Ҏ��表达式的�W�号

2.Erlang的类�?/span>�Q�除了在前面入门一提到的类型外�Q�还包括�Q?br>1)Binary�Q�用于表�C�某�D�|��知类型的内存区域
比如�Q?br>1> <<10,20>>. 
<<10,20>> 
2> <<"ABC">>.
 <<65,66,67>> 

2�Q�Reference�Q�通过调用mk_ref/0产生的运行时的unique term

3)String�Q�字�W�串�Q�Erlang中的字符串用双引号包括�v来，其实也是list。编译时期，两个邻近的字�W�串���被�q�接��h���Q�比�?string" "42" �{��h�?"string42"

4)Record�Q�记录类型，与c语言中的struct�c�M���Q�模块可以通过-record属性声明，比如�Q?br>-module(person). 
-export([new/2]).
-record(person, {name, age}). 
new(Name, Age) ->
     #person{name=Name, age=Age}. 
1> person:new(dennis, 44). 
{person,dennis,44} 
 在编译后其实已经被�{化�ؓtuple。可以通过Name#person.name来访问Name Record的name属性�?br>
3.模块的预定义属�?/span>�Q?br>-module(Module).    声明模块名称�Q�必���M��文�g名相�?br>-export(Functions).   指定向外界导出的函数列表
-import(Module,Functions).   引入函数�Q�引入的函数可以被当作本地定义的函数使用
-compile(Options).     讄����~�译选项�Q�比如export_all
-vsn(Vsn).         模块版本�Q�设�|�了此项�Q�可以通过beam_lib:version/1 获取此项信息
可以通过-include�?include_lib来包含文�Ӟ��两者的区别是include-lib不能通过�l�对路径查找文�g�Q�而是在你当前Erlang的lib目录�q�行查找�?br>
4.try表达�?/span>�Q�try表达式可以与catch�l�合使用�Q�比如：

try Expr
catch
    throw:Term -> Term;
    exit:Reason -> {'EXIT',Reason}
    error:Reason -> {'EXIT',{Reason,erlang:get_stacktrace()}}
end

不仅如此�Q�try�q�可以与after�l�合使用�Q�类似java中的try..finally�Q�用于进行清除作用，比如�Q?br>termize_file(Name) ->
{ok,F} = file:open(Name, [read,binary]),
try
{ok,Bin} = file:read(F, 1024*1024),
binary_to_term(Bin)
after
file:close(F)
end.


5.列表推断�Q�List Comprehensions�Q�，函数式语�a��Ҏ��之一�Q�Erlang中的语法�c�M���Q?br>[Expr || Qualifier1,...,QualifierN]
Expr可以是�Q意的表达式，而Qualifier是generator或者filter。还是各举例子说明下�?br>1>  [X*2 || X <- [1,2,3]].
[2,4,6]

2> L=[1,2,3,4,5,6,7].
[1,2,3,4,5,6,7]


3> [X|X<-L,X>=3].
[3,4,5,6,7]


再看几个比较��L��例子�Q�来自Programming Erlang�Q?br>比如快速排�?/span>�Q?br>-module(qsort).
-export([qsort/1]).
qsort([])->[];
qsort([Pivot|T])->
  qsort([X||X<-T,X




6.�?/span>�Q�定义常量或者函数等�{�，语法如下�Q?br>
-define(Const, Replacement).

-define(Func(Var1,...,VarN), Replacement).



使用的时候在宏名前加个问��P���Q�比�?Const�Q�Replacement���插入宏出现的位�|�。系�l�预定义了一些宏:

?MODULE   表示当前模块�?br>


?MODULE_STRING 同上�Q�但是以字符串�Ş�?br>
?FILE    当前模块的文件名

?LINE    调用的当前代码行�?br>
?MACHINE  机器�?br>


Erlang的宏与C语言的宏很相��|��同样有宏指示�W�，包括�Q?br>
-undef(Macro). 
取消宏定�?br>
-ifdef(Macro). 
当宏Macro有定义的时候，执行以下代码

-ifndef(Macro). 
同上�Q�反�?br>
-else. 
接在ifdef或者ifndef之后�Q�表�C�Z��满��前者条件时执行以下代码



-endif. 
if�l�止�W?/dd>
假设�?define(Square(X),X*X).用于计算�q�x���Q�那�??X���返回X表达式的字符串�Ş式，�c�M��C语言�?arg



一个简单的宏例子：

ruby 代码

 

    -module(macros_demo).  
    
-ifdef(debug).  
    
-define(LOG(X), io:format("{~p,~p}: ~p~n", [?MODULE,?LINE,X])).  
    
-else.  
    
-define(LOG(X), true).  
    
-endif.  
    
-define(Square(X),X*X).  
    
-compile(export_all).  
    
test()->  
    
    A=3,  
    
    ?LOG(A),  
    
    B=?Square(A),  
    
    io:format("square(~w) is ~w~n",[A,B]).   




当编译时不开启debug选项的时候：

17> c(macros_demo).

{ok,macros_demo}

18> macros_demo:test().

square(3) is 9



当编译时开启debug之后�Q?br>


19> c(macros_demo,{d,debug}).

{ok,macros_demo}

20> macros_demo:test().

{macros_demo,11}: 3

square(3) is 9

ok



可以看到LOG的输��Z���Q�行数、模块名以及参数



7�?span style="FONT-WEIGHT: bold">Process Dictionary�Q�每个进�E�都有自��q��process dictionary�Q�用于存储这个进�E�内的全局变量�Q�可以通过下列

BIFs操作�Q?br>
put(Key, Value)

get(Key)

get()

get_keys(Value)

erase(Key)

erase()



8、关于分布式�~�程�Q�需要补充的几点

1�Q�节点之间的�q�接默认是transitive�Q�也���是当节点A�q�接了节点B�Q�节点B�q�接了节点C�Q�那么节点A也与节点C互相�q�接

可以通过启动节点时指定参�?connect_all false来取消默认行�?br>


2�Q�隐藏节点，某些情况下，你希望连接一个节点而不去连接其他节点，你可以通过在节点启动时指定-hidden选项

来启动一个hidden node。在此情况下�Q�通过nodes()查看所有连接的节点���不会出现隐藏的节点�Q�想看到隐藏的节�?br>
可以通过nodes(hidden)或者nodes(connected)来查看�?br>


完整的erl选项如下�Q?br>



    
        
            -connect_all false 
            上面已经解释�?
        
        
            -hidden 
            启动一个hidden node

        
        
            -name Name 
            启动一个系�l�成�����点，使用long name. 
        
        
            -setcookie Cookie 
            �?code>Erlang:set_cookie(node(), Cookie).相同�Q�设�|�magic cookie

        
        
            -sname Name 
            启动一个Erlang�pȝ��作�ؓ节点�Q���用short name 

        
    





注意,short name启动的节�Ҏ��无法与long name节点通信�?/span>�?br>


.一个小�l�节�Q�在Erlang中小于等于是�?<表示�Q�而不是一般语�a�中的<=语法�Q�我犯过错误的地方，同样�Q�不�{�于都是�?��P��而不�?/span>
!,比如/=�?/=�?/span>

10.and or 和andalso orelse的区�?/span>

and和or会计���两边的表达式，而andalso和orelse的求值采用短路机�Ӟ��比如exp1 andalso exp2�Q�当exp1�q�回false之后�Q�就不会��L���?br>exp2�Q�而是直接�q�回false�Q�而exp1 and exp2会对exp1和exp2都进行求��|��or与orelse也类伹{�?/pre>




暗夜教父 2009-09-11 10:16 发表评论


Erlang入门�Q�三�Q�——分布式�~�程
暗夜教父 — Fri, 11 Sep 2009 02:13:00 GMT
    所谓分布式的Erlang应用是运行在一�p�d��Erlang节点�l�成的网�l�之上。这��L���pȝ��的性质与单一节点上的Erlang�pȝ���q�没有什么不同。分布式�q�是�?#8220;大词”�Q�Erlang从语�a�原生角度支持分布式编�E�，相比于java���单不����?br>一、分布式机制
下列的BIFs是用于分布式�~�程�Q?br>spawn(Node, Mod, Func, Args)
启动�q�程节点的一个进�E?br>
spawn_link(Node, Mod, Func, Args)
启动�q�程节点的一个进�E��ƈ创徏�q�接到该�q�程

monitor_node(Node, Flag)
如果Flag是true,�q�个函数�����调用�Q�该函数�Q�的�q�程可以监控节点Node。如果节点已�l�舍弃或者�ƈ不存在，调用的进�E�将收到一个{nodedown,Node}的消息。如果Flag是false,监控���被关闭

node()
�q�回我们自己的进�E�name

nodes()
�q�回其他已知的节点name列表

node(Item)
�q�回原来Item的节点名�U�ͼ�Item可以是Pid,引用�Q�reference�Q�或者端�?port)

disconnect_node(Nodename)
从节点Nodename断开�?br>
    节点是分布式Erlang的核心概��c��在一个分布式Erlang应用中，术语�Q�term)节点(node�Q�意味着一个可以加入分布式 transactions的运行系�l�。通过一个称为net kernal的特�D�进�E�，一个独立的Erlang�pȝ��可以成�ؓ一个分布式Erlang�pȝ��的一部分。当net kernal�q�程启动的时候，我们�U�系�l�是alive的�?br>
    与远�E�节点上的进�E�进行通信�Q�与同一节点内的�q�程通信只有一点不同：

java 代码


    {Name, Node} ! Mess.   


   
昄����Q�需要接收方增加一个参数Node用于指定接受�q�程所在的节点。节点的name一般是用@隔开的atom�c�d���Q�比如pong@dennis�Q�表�C�������机名�ؓdennis上的pong节点。通过执行:

java 代码


    erl -sname pong   



���在执行的计���机中创��Z��个节点pong。�ؓ了运行下面的例子�Q�你可能需要两台计���机�Q�如果只有一収ͼ�只要同时开两个Erlang�pȝ���q�以不同的节点名�U�运行也可以�?br>
二、一些例子�?br>    �q�个例子完全来自上面提到的翻译的�q�接�Q�关于分布式�~�程的章节。我增加了截囑֒�说明�?br>首先是代码：

java 代码

 

    -module(tut17).  
    
  
    
-export([start_ping/1, start_pong/0,  ping/2, pong/0]).  
    
  
    
ping(0, Pong_Node) ->  
    
    {pong, Pong_Node} ! finished,  
    
    io:format("ping finished~n", []);  
    
  
    
ping(N, Pong_Node) ->  
    
    {pong, Pong_Node} ! {ping, self()},  
    
    receive  
    
        pong ->  
    
            io:format("Ping received pong~n", [])  
    
    end,  
    
    ping(N - 1, Pong_Node).  
    
  
    
pong() ->  
    
    receive  
    
        finished ->  
    
            io:format("Pong finished~n", []);  
    
        {ping, Ping_PID} ->  
    
            io:format("Pong received ping~n", []),  
    
            Ping_PID ! pong,  
    
            pong()  
    
    end.  
    
  
    
start_pong() ->  
    
    register(pong, spawn(tut17, pong, [])).  
    
  
    
start_ping(Pong_Node) ->  
    
    spawn(tut17, ping, [3, Pong_Node]).   



    代码是创��Z��个相互通信的进�E�，�怺�发送消息�ƈ通过io昄���在屏�q�上�Q�本来是一个单一�pȝ��的例子，现在我们让两个进�E�运行在不同的两个节点上。注�?start_ping�Ҏ���Q�创建的�q�程调用ping�Ҏ���Q�ping�Ҏ��有两个参敎ͼ�一个是发送消息的�ơ数�Q�一个就是远�E�节点的name了，也就是我们将�?创徏的进�E�pong的所在节炏V��start_pong创徏一个调用函数pong的进�E�，�q�注册�ؓ名字pong�Q�因此在ping�Ҏ��中可以直接发送消息给 pong)�?br>    我是在windows机器上测试，首先打开两个cmd�H�口�Q��ƈcd到Erlang的安装目录下的bin目录�Q�比如C:\Program Files\erl5.5.3\bin,���上面的�E�序存�ؓtut17.erl�Q��ƈ拯���到同一个目录下。我们将创徏两个节点�Q�一个叫 ping@dennis,一个叫pong@dennis,其中dennis是我的机器名。见下图�Q?br>
采用同样的命�?br>
erl -sname ping

创徏ping节点。然后在pong节点下执行start_pong()�Q?br>

OK,�q�样���在节点pong上启动了pong�q�程�Q�然后在ping节点调用start_ping�Q�传入参数就是pong@dennis

java 代码

 

    tut17:start_ping(pong@dennis).   



执行�l�果如下图：

同样在pong节点上也可以看到�Q?br>

    �l�果如我们预期的那样�Q�不同节点上的两个进�E�相互通信如此���单。我们给模块tut17增加一个方法，用于启动�q�程�q�程�Q�也���是调用spawn(Node,Module,Func,Args)�Ҏ���Q?br>
java 代码

 

    start(Ping_Node) ->  
    
    register(pong, spawn(tut17, pong, [])),  
    
    spawn(Ping_Node, tut17, ping, [3, node()]).   



pong�q�程启动Ping_Node节点上的�q�程ping。具体结果不再给出�?br>


暗夜教父 2009-09-11 10:13 发表评论


暗夜教父 — Fri, 11 Sep 2009 02:13:00 GMT
  ��M��一门语�a�都有自己的错误处理机�Ӟ��Erlang也不例外�Q�语法错误编译器可以帮你指出�Q�而逻辑错误和运行时错误���只有靠�E�序员利用Erlang提供的机制来妥善处理�Q�放�|�程序的崩溃�?br>    Erlang的机制有�Q?br>1)监控某个表达式的执行
2�Q�监控其他进�E�的行�ؓ
3�Q�捕捉未定义函数执行错误�{?br>
一、catch和throw语句
    调用某个会��生错误的表达式会��D��调用�q�程的非正常退出，比如错误的模式匹配（2=3�Q�，�q�种情况下可以用catch语句�Q?br>                                      catch expression
    试看一个例子，一个函数foo�Q?br>

java 代码

 

    foo(1) ->  
    
hello;  
    
foo(2) ->  
    
throw({myerror, abc});  
    
foo(3) ->  
    
tuple_to_list(a);  
    
foo(4) ->  
    
exit({myExit, 222}).   



当没有��用catch的时候，假设有一个标识符为Pid的进�E�调用函数foo�Q�在一个模块中�Q�，那么�Q?br>foo(1) - �q�回hello
foo(2) - 语句throw({myerror, abc})执行�Q�因为我们没有在一个catch中调用foo(2),因此�q�程Pid���因为错误而终止�?br>
foo(3) - tuple_to_list���一个元�l��{化�ؓ列表�Q�因为a不是元组�Q�因此进�E�Pid同样因�ؓ错误而终�?br>
foo(4) - 因�ؓ没有使用catch�Q�因此foo(4)调用了exit函数����ɘq�程Pid�l�止�Q�{myExit, 222} 参数用于说明退出的原因�?br>
foo(5) - �q�程Pid���因为foo(5)的调用而终止，因�ؓ没有和foo(5)匚w��的函数foo/1�?br>
    让我们看看用catch之后是什么样�Q?br>
java 代码

 

    demo(X) ->  
    
case catch foo(X) of  
    
  {myerror, Args} ->  
    
       {user_error, Args};  
    
  {'EXIT', What} ->  
    
       {caught_error, What};  
    
  Other ->  
    
       Other  
    
end.   



再看看结果，
demo(1) - 没有错误发生�Q�因此catch语句���返回表辑ּ��l�果hello
demo(2) - foo(2)抛出错误{myerror, abc}�Q�被catch�q�回�Q�因此将�q�回{user_error,abc}

demo(3) - foo(3)执行��p�|�Q�因为参数错误，因此catch�q�回{'EXIT',badarg'},最后返回{caught_error,badarg}

demo(4) - �q�回{caught_error,{myexit,222}}
demo(5) - �q�回{caught_error,function_clause}

    使用catch和throw可以���可能��生错误的代码包装��h���Q�throw可以用于���N��归的退出等�{�。Erlang是和scheme一栯���行尾递归优化的，它们都没有显式的�q�代�l�构�Q�比如for循环�Q?br>
二、进�E�的�l�止
    在进�E�中调用exit的BIFs���可以显式地�l�止�q�程�Q�exit(normal)表示正常�l�止�Q�exit(Reason)通过Reason�l�出非正常终止的原因。进�E�的�l�止也完全有可能是因�����行时错误引�v的�?br>
三、连接的�q�程
    �q�程之间的连接是双向的，也就是说�q�程A打开一个连接到B,也意味着有一个从B到A的连接。当�q�程�l�止的时候，有一个EXIT信号���发�l�所有与它连接的�q�程。信��L��格式如下�Q?br>               {'EXIT', Exiting_Process_Id, Reason} 
Exiting_Process_Id 是指�l�止的进�E�标记符
Reason 是进�E�终止的原因。如果Reason是normal�Q�接受这个信��L���q�程的默认行为是忽略�q�个信号。默认对Exit信号的处理可以被重写�Q�以允许�q�程对Exit信号的接受做��Z��同的反应�?br>1.�q�接�q�程�Q?br>通过link(Pid)�Q�就可以在调用进�E�与�q�程Pid之间建立�q�接
2.取消�q�接
反之通过unlink(Pid)取消�q�接�?
3.创立�q�程�q�连接：
通过spawn_link(Module, Function, ArgumentList)创徏�q�程�q�连接，该方法返回新创徏的进�E�Pid

    通过�q�程的相互连接，许多的进�E�可以组�l�成一个网状结构，EXIT信号�Q�非normal)从某个进�E�发出（该进�E�终止）�Q�所有与它相�q�的�q�程以及与这些进 �E�相�q�的其他�q�程�Q�都���收到这个信号�ƈ�l�止�Q�除非它们实��C��自定义的EXIT信号处理�Ҏ��。一个进�E�链状结构的例子�Q?br>
java 代码

 

    -module(normal).  
    
-export([start/1, p1/1, test/1]).  
    
start(N) ->  
    
register(start, spawn_link(normal, p1, [N - 1])).  
    
 p1(0) ->  
    
   top1();  
    
 p1(N) ->  
    
   top(spawn_link(normal, p1, [N - 1]),N).  
    
top(Next, N) ->  
    
receive  
    
X ->  
    
Next ! X,  
    
io:format("Process ~w received ~w~n", [N,X]),  
    
top(Next,N)  
    
end.  
    
top1() ->  
    
receive  
    
stop ->  
    
io:format("Last process now exiting ~n", []),  
    
exit(finished);  
    
X ->  
    
io:format("Last process received ~w~n", [X]),  
    
top1()  
    
end.  
    
test(Mess) ->  
    
start ! Mess.   



执行�Q?br>
java 代码

 

    > normal:start(3).  
    
true  
    
> normal:test(123).  
    
Process 2 received 123  
    
Process 1 received 123  
    
Last process received 123  
    
  
    
> normal:test(stop).  
    
Process 2 received stop  
    
Process 1 received stop  
    
Last process now exiting  
    
stop   



四、运行时��p�|
    一个运行时错误���导致进�E�的非正常终止，伴随着非正常终止EXIT信号���发出给所有连接的�q�程�Q�EXIT信号中有Reason�q�且Reason中包含一个atom�c�d��用于说明错误的原因，常见的原因如下：

badmatch - 匚w����p�|�Q�比如一个进�E�进�?=3的匹配，�q�个�q�程���终止，�q�发出{'EXIT', From, badmatch}信号�l�连接的�q�程

badarg  - ��֐�思义�Q�参数错误，比如atom_to_list(123),数字不是atom�Q�因此将发出{'EXIT', From, badarg}信号�l�连接进�E?br>
case_clause - �~�少分支匚w���Q�比�?br>    

java 代码

 

    M = 3,  
    
case M of  
    
  1 ->  
    
    yes;  
    
  2 ->  
    
    no  
    
end.   



没有分支3�Q�因此将发出{'EXIT', From, case_clause}�l�连接进�E?br>
if_clause - 同理�Q�if语句�~�少匚w��分支

function_clause - �~�少匚w��的函敎ͼ�比如�Q?br>
java 代码

 

    foo(1) ->  
    
  yes;  
    
foo(2) ->  
    
  no.   



如果我们调用foo(3)�Q�因为没有匹配的函数�Q�将发出{'EXIT', From, function_clause} �l�连接的�q�程�?br>
undef - �q�程执行一个不存在的函�?br>
badarith - 非法的算术运���，比如1+foo�?br>
timeout_value - 非法的超时时间设�|�，必须是整数或者infinity

nocatch - 使用了throw�Q�没有相应的catch去通讯�?br>
五、修攚w��认的信号接收action
   当进�E�接收到EXIT信号�Q�你可以通过process_flag/2�Ҏ��来修攚w��认的接收行�ؓ。执行process_flag(trap_exit, true)讄���捕获EXIT信号为真来改变默认行为，也就是将EXIT信号作�ؓ一般的�q�程间通信的信可���行接受�ƈ处理�Q�process_flag (trap_exit,false)���重新开启默认行为�?br>   例子�Q?br>
java 代码

 

    -module(link_demo).  
    
-export([start/0, demo/0, demonstrate_normal/0, demonstrate_exit/1,  
    
demonstrate_error/0, demonstrate_message/1]).  
    
start() ->  
    
  register(demo, spawn(link_demo, demo, [])).  
    
demo() ->  
    
  process_flag(trap_exit, true),  
    
demo1().  
    
  demo1() ->  
    
  receive  
    
    {'EXIT', From, normal} ->  
    
      io:format("Demo process received normal exit from ~w~n",[From]),  
    
     demo1();  
    
    {'EXIT', From, Reason} ->  
    
      io:format("Demo process received exit signal ~w from ~w~n",[Reason, From]),  
    
     demo1();  
    
    finished_demo ->  
    
      io:format("Demo finished ~n", []);  
    
    Other ->  
    
      io:format("Demo process message ~w~n", [Other]),  
    
     demo1()  
    
  end.  
    
demonstrate_normal() ->  
    
  link(whereis(demo)).  
    
demonstrate_exit(What) ->  
    
  link(whereis(demo)),  
    
  exit(What).  
    
demonstrate_message(What) ->  
    
  demo ! What.  
    
demonstrate_error() ->  
    
  link(whereis(demo)),  
    
  1 = 2.  
    
    



    创徏的进�E�执行demo�Ҏ���Q�demo�Ҏ��中设�|�了trap_exit为true,因此�Q�在receive中可以像对待一般的信息一样处理EXIT信号�Q�这个程序是很简单了�Q�测试看看：

java 代码

 

    > link_demo:start().  
    
true  
    
> link_demo:demonstrate_normal().  
    
true  
    
Demo process received normal exit from <0.13.1>  
    
> link_demo:demonstrate_exit(hello).  
    
Demo process received exit signal hello from <0.14.1>  
    
** exited: hello **  
    
  
    
> link_demo:demonstrate_exit(normal).  
    
Demo process received normal exit from <0.13.1>  
    
** exited: normal **  
    
  
    
> link_demo:demonstrate_error().  
    
!!! Error in process <0.17.1> in function  
    
!!! link_demo:demonstrate_error()  
    
!!! reason badmatch  
    
** exited: badmatch **  
    
Demo process received exit signal badmatch from <0.17.1>   



六、未定义函数和未注册名字
1.当调用一个未定义的函数时�Q�Mod:Func(Arg0,...,ArgN)�Q�这个调用将被�{为：
error_handler:undefined_function(Mod, Func, [Arg0,...,ArgN]) 
其中的error_handler模块是系�l�自带的错误处理模块

2.当给一个未注册的进�E�名发送消息时�Q�调用将被�{为：
error_handler:unregistered_name(Name,Pid,Message) 

3.如果不��用系�l�自带的error_handler�Q�可以通过process_flag(error_handler, MyMod) 讄���自己的错误处理模块�?br>
七、Catch Vs. Trapping Exits
�q�两者的区别在于应用场景不同�Q�Trapping Exits应用于当接收到其他进�E�发送的EXIT信号�Ӟ��而catch仅用于表辑ּ�的执行�?br>
�W?章介�l�了如何利用错误处理机制��L��造一个健壮的�pȝ���Q�用了几个例子，我将8.2节的例子完整写了下，�q�添加客��L���q�程用于���试�Q?br>
java 代码

 

    -module(allocator).  
    
-export([start/1,server/2,allocate/0,free/1,start_client/0,loop/0]).  
    
start(Resources) ->  
    
   Pid = spawn(allocator, server, [Resources,[]]),  
    
register(resource_alloc, Pid).  
    
%函数接口  
    
allocate() ->  
    
   request(alloc).  
    
free(Resource) ->  
    
  request({free,Resource}).  
    
request(Request) ->  
    
  resource_alloc ! {self(),Request},  
    
  receive  
    
    {resource_alloc, error} ->  
    
      exit(bad_allocation); % exit added here  
    
    {resource_alloc, Reply} ->  
    
      Reply  
    
 end.  
    
% The server.  
    
server(Free, Allocated) ->  
    
 process_flag(trap_exit, true),  
    
 receive  
    
   {From,alloc} ->  
    
         allocate(Free, Allocated, From);  
    
   {From,{free,R}} ->  
    
        free(Free, Allocated, From, R);  
    
   {'EXIT', From, _ } ->  
    
       check(Free, Allocated, From)  
    
 end.  
    
allocate([R|Free], Allocated, From) ->  
    
   link(From),  
    
   io:format("�q�接客户端进�E�~w~n",[From]),  
    
   From ! {resource_alloc,{yes,R}},  
    
   server(Free, [{R,From}|Allocated]);  
    
allocate([], Allocated, From) ->  
    
   From ! {resource_alloc,no},  
    
   server([], Allocated).  
    
free(Free, Allocated, From, R) ->  
    
  case lists:member({R,From}, Allocated) of  
    
   true ->  
    
              From ! {resource_alloc,ok},  
    
              Allocated1 = lists:delete({R, From}, Allocated),  
    
              case lists:keysearch(From,2,Allocated1) of  
    
                     false->  
    
                            unlink(From),  
    
                        io:format("从进�E�~w断开~n",[From]);  
    
                     _->  
    
                            true  
    
              end,  
    
             server([R|Free],Allocated1);  
    
   false ->  
    
           From ! {resource_alloc,error},  
    
         server(Free, Allocated)  
    
 end.  
    
  
    
check(Free, Allocated, From) ->  
    
   case lists:keysearch(From, 2, Allocated) of  
    
         false ->  
    
           server(Free, Allocated);  
    
        {value, {R, From}} ->  
    
           check([R|Free],  
    
           lists:delete({R, From}, Allocated), From)  
    
end.  
    
start_client()->  
    
    Pid2=spawn(allocator,loop,[]),  
    
    register(client, Pid2).  
    
loop()->  
    
    receive  
    
        allocate->  
    
            allocate(),  
    
            loop();  
    
        {free,Resource}->  
    
            free(Resource),  
    
            loop();  
    
        stop->  
    
            true;  
    
        _->  
    
            loop()  
    
    end.  
    
       



回家了，有空再详�l�说明下�q�个例子吧。执行：

java 代码

 

    1> c(allocator).  
    
{ok,allocator}  
    
2> allocator:start([1,2,3,4,5,6]).  
    
true  
    
3> allocator:start_client().  
    
true  
    
4> client!allocate  
    
.  
    
allocate�q�接客户端进�E?lt;0.37.0>  
    
  
    
5> client!allocate.  
    
allocate�q�接客户端进�E?lt;0.37.0>  
    
  
    
6> client!allocate.  
    
allocate�q�接客户端进�E?lt;0.37.0>  
    
  
    
7> allocator:allocate().  
    
�q�接客户端进�E?lt;0.28.0>  
    
{yes,4}  
    
8> client!{free,1}.  
    
{free,1}  
    
9> client!{free,2}.  
    
{free,2}  
    
10> client!allocate.  
    
allocate�q�接客户端进�E?lt;0.37.0>  
    
  
    
11> client!allocate.  
    
allocate�q�接客户端进�E?lt;0.37.0>  
    
  
    
12> client!stop.  
    
stop  
    
13> allocator:allocate().  
    
�q�接客户端进�E?lt;0.28.0>  
    
{yes,3}  
    
14> allocator:allocate().  
    
�q�接客户端进�E?lt;0.28.0>  
    
{yes,2}  
    
15> allocator:allocate().  
    
�q�接客户端进�E?lt;0.28.0>  
    
{yes,1}  
    
16>   






暗夜教父 2009-09-11 10:13 发表评论


暗夜教父 — Fri, 11 Sep 2009 02:12:00 GMT
    Erlang中的process——进�E�是轻量�U�的�Q��ƈ且进�E�间无共享。查了很多资料，��g��没�h说清楚轻量��q�程���是什么概念，�l�箋查找中。。。闲话不 提，�q�入�q�发�~�程的世界。本文算是学习笔讎ͼ�也可以说是《Concurrent Programming in ERLANG》第五张的简略翻译�?
1.�q�程的创�?/span>
    �q�程是一�U�自包含的、分隔的计算单元�Q��ƈ与其他进�E��ƈ发运行在�pȝ��中，在进�E�间�q�没有一个��承体�p�，当然�Q�应用开发者可以设计这样一个��承体�p�R�?br>    �q�程的创��Z��用如下语法：

java 代码


    Pid = spawn(Module, FunctionName, ArgumentList)   



spawn接受三个参数�Q�模块名�Q�函数名以及参数列表�Q��ƈ�q�回一个代表创建的�q�程的标识符�Q�Pid�Q��?br>如果在一个已知进�E�Pid1中执行：

java 代码


    Pid2 = spawn(Mod, Func, Args)   



那么�Q�Pid2仅仅能被Pid1可见�Q�Erlang�pȝ��的安全性就构徏在限制进�E�扩展的基础上�?br>
2.�q�程间通信
    Erlang�q�程间的通信只能通过发送消息来实现�Q�消息的发送���?�W�号�Q?br>
java 代码


    Pid ! Message   



    其中Pid是接受消息的�q�程标记�W�，Message���是消息。接受方和消息可以是��M��的有效的Erlang�l�构�Q�只要他们的�l�果�q�回的是�q�程标记�W�和消息�?br>    消息的接受是使用receive关键字，语法如下�Q?br>
java 代码


    receive  
    
      Message1 [when Guard1] ->  
    
          Actions1 ;  
    
      Message2 [when Guard2] ->  
    
          Actions2 ;  
    
  
    
end   



    每一个Erlang�q�程都有一�?#8220;邮箱”�Q�所有发送到�q�程的消息都按照到达的顺序存储在“邮箱”里，上面所�C�的消息Message1,Message2�Q?当它们与“邮箱”里的消息匚w���Q��ƈ且约束（Guard�Q�通过�Q�那么相应的ActionN���执行，�q�且receive�q�回的是ActionN的最后一条执�?语句的结果。Erlang�?#8220;邮箱”里的消息匚w��是有选择性的�Q�只有匹配的消息���被触发相应的Action�Q�而没有匹配的消息���仍然保留在“邮箱”里。这 一机制保证了没有消息会��d��其他消息的到达�?br>    消息到达的顺序�ƈ不决定消息的优先�U�，�q�程���轮���检�?#8220;邮箱”里的消息�q�行���试匚w��。消息的优先�U�别下文再讲�?br>
    如何接受特定�q�程的消息呢�Q�答案很���单，���发送方(sender)也附送在消息当中�Q�接收方通过模式匚w��军_��是否接受�Q�比如：

java 代码


    Pid ! {self(),abc}   



�l�进�E�Pid发送消息{self(),abc}�Q�利用self�q�程得到发送方作�ؓ消息发送。然后接收方�Q?br>
java 代码


    receive  
    
  {Pid1,Msg} ->  
    
  
    
end   



通过模式匚w��军_��只有Pid1�q�程发送的消息才接受�?br>
3.一些例�?/span>
    仅说明下书中计数的进�E�例�?我添加了���单注释：

java 代码

 

    -module(counter).  
    
-compile(export_all).  
    
% start()�Q�返回一个新�q�程�Q�进�E�执行函数loop  
    
start()->spawn(counter, loop,[0]).  
    
% 调用此操作递增计数  
    
increment(Counter)->  
    
    Counter!increament.  
    
% �q�回当前计数�?nbsp; 
    
value(Counter)->  
    
    Counter!{self(),value},  
    
    receive  
    
        {Counter,Value}->  
    
            %�q�回�l�调用方  
    
            Value  
    
        end.  
    
  %停止计数        
    
 stop(Counter)->  
    
     Counter!{self(),stop}.  
    
 loop(Val)->  
    
     receive  
    
         %接受不同的消息，军_���q�回�l�果  
    
         increament->  
    
             loop(Val+1);  
    
         {From,value}->  
    
             From!{self(),Val},  
    
             loop(Val);  
    
         stop->  
    
             true;  
    
         %不是以上3�U�消息，���q���l�等�?nbsp; 
    
         Other->  
    
             loop(Val)  
    
      end.     
    
               
    
                          
    
           



调用方式�Q?br>

java 代码

 

    1> Counter1=counter:start().  
    
<0.30.0>  
    
2> counter:value(Counter1).  
    
0  
    
3> counter:increment(Counter1).  
    
increament  
    
4> counter:value(Counter1).  
    
1   



��Z���q�程的消息传递机制可以很�Ҏ��地实现有限状态机�Q�FSM�Q�，状态��用函数表�C�，而事件就是消息。具体不再展开

4.���时讄���
    Erlang中的receive语法可以��d��一个额外选项�Q�timeout�Q�类��|��

java 代码


    receive  
    
   Message1 [when Guard1] ->  
    
     Actions1 ;  
    
   Message2 [when Guard2] ->  
    
     Actions2 ;  
    
     
    
   after  
    
      TimeOutExpr ->  
    
         ActionsT  
    
end   



after之后的TimeOutExpr表达式返回一个整数time�Q�毫�U���别）�Q�时间的�_�����E�度依赖于Erlang在操作系�l�或者硬件的实现。如果在time毫秒内，没有一个消息被选中�Q�超时设�|�将生效�Q�也���是ActionT���执行。time有两个特�D���|��
1)infinity(无穷�?�Q�infinity是一个atom�Q�指定了���时讄������永�q�不会被执行�?br>2) 0�Q�超时如果设定�ؓ0意味着���时讄������立��L��行，但是�pȝ�����首先尝试当�?#8220;邮箱”里的消息�?br>
    ���时的常见几个应用，比如挂�v当前�q�程多少毫秒�Q?br>
java 代码

 

    sleep(Time) ->  
    
  receive  
    
    after Time ->  
    
    true  
    
end.   



    比如清空�q�程�?#8220;邮箱”,丢弃“邮箱”里的所有消息：

java 代码

 

    flush_buffer() ->  
    
  receive  
    
    AnyMessage ->  
    
      flush_buffer()  
    
  after 0 ->  
    
    true  
    
end.   


    
    ���当前进�E�永�q�挂��P��

java 代码

 

    suspend() ->  
    
    receive  
    
    after  
    
        infinity ->  
    
            true  
    
    end.   



       ���时也可以应用于实现定时器，比如下面�q�个例子�Q�创��Z��个进�E�，�q�个�q�程���在讑֮�旉���后向自己发送消息：

java 代码

 

    -module(timer).  
    
-export([timeout/2,cancel/1,timer/3]).  
    
timeout(Time, Alarm) ->  
    
   spawn(timer, timer, [self(),Time,Alarm]).  
    
cancel(Timer) ->  
    
   Timer ! {self(),cancel}.  
    
timer(Pid, Time, Alarm) ->  
    
   receive  
    
    {Pid,cancel} ->  
    
       true  
    
   after Time ->  
    
       Pid ! Alarm  
    
end.   



    
5、注册进�E?/span>
    ��Z���l�进�E�发送消息，我们需要知道进�E�的Pid�Q�但是在某些情况下：在一个很大系�l�里面有很多的全局servers�Q�或者�ؓ了安全考虑需要隐藏进�E?Pid。�ؓ了达到可以发送消息给一个不知道Pid的进�E�的目的�Q�我们提供了注册�q�程的办法，�l�进�E�们注册名字�Q�这些名字必���L��atom�?br>    基本的调用�Ş式：

java 代码


    register(Name, Pid)  
    
���Name与进�E�Pid联系��h��  
    
  
    
unregister(Name)  
    
取消Name与相应进�E�的对应关系�?nbsp; 
    
  
    
whereis(Name)  
    
�q�回Name所兌���的进�E�的Pid�Q�如果没有进�E�与之关联，���p��回atom:undefined  
    
  
    
registered()  
    
�q�回当前注册的进�E�的名字列表   



6.�q�程的优先��
讑֮��q�程的优先��可以使用BIFs:
process_flag(priority, Pri) 

Pri可以是normal、low,默认都是normal
优先�U�高的进�E�将相对低的执行多一炏V�?br>
7.�q�程�l�（process group)
    所有的ERLANG�q�程都有一个Pid与一个他们共有的�U�CؓGroup Leader相关联，当一个新的进�E�被创徏的时候将被加入同一个进�E�组。最初的�pȝ���q�程的Group Leader���是它自�w�，因此它也是所有被创徏�q�程及子�q�程的Group Leader。这���意味着Erlang的进�E�被�l�织��Z�����Tree�Q�其中的根节点就是第一个被创徏的进�E�。下面的BIFs被用于操�U�进�E�组�Q?br>group_leader()
�q�回执行�q�程的Group Leader的Pid
group_leader(Leader, Pid)
讄����q�程Pid的Group Leader������E�的Leader 

8.Erlang的进�E�模型很�Ҏ����L��建Client-Server的模型，书中有一节专门讨��Z���q�一点，着重强调了接口的设计以及抽象层�ơ的隔离问题�Q�不���译了�?/span> 


暗夜教父 2009-09-11 10:12 发表评论


暗夜教父 — Fri, 11 Sep 2009 02:11:00 GMT
   读erlang.org上面的Erlang Course四天教程
1.数字�c�d���Q�需要注意两�?br>1�Q�B#Val表示以B�q�制存储的数字Val�Q�比�?br>
ruby 代码

 

    7> 2#101.  
    
5   


�?/span>�q�制存储�?01���是10�q�制�?�?br>2�Q?Char表示字符Char的ascii�~�码�Q�比�?A表示65

2.比较难以���译的概念——atom�Q�可以理解成帔R���Q�它可以包含��M��字符�Q�以���写字母开��_��如果不是以小写字母开头或者是字母之外的符��P��需要用单引号包括�v来，比如abc,'AB'

3.另一个概念——Tuple,有�h���译成元�l�，可以理解成定长数�l�，是Erlang的基���数据�l�构之一�Q?br>
ruby 代码


    8> {1,2,3,4,5}.  
    
{1,2,3,4,5}  
    
9> {a,b,c,1,2}.  
    
{a,b,c,1,2}  
    
10> size({1,2,3,a,b,c}).  
    
6   



内置函数size求长度，元组可以嵌套元组或者其他结构。下面所讲的列表也一栗��?br>
4.另外一个基���数据�l�构���是各个语言都有的list�Q�列表）�Q�在[]内以,隔开�Q�可以动态改变大���， 

python 代码

 

    [123, xyz]  
    
[123, def, abc]  
    
[{person, 'Joe', 'Armstrong'},  
    
    {person, 'Robert', 'Virding'},  
    
    {person, 'Mike', 'Williams'}  
    
]   



可以使用内置函数length求列表大���。以""包含的ascii字母代表一个列表，里面的元素就是这些字母的ascii��|��比如"abc"表示列表[97,98,99]�?br>
5.通过�q�两个数据结构可以组合成各种复杂�l�构�Q�与Lisp的cons、list演化出各�U�结构一��L��奇妙�?br>
6.Erlang中变量有两个特点�Q?br>1�Q�变量必���M��大写字母开�?br>2�Q�变量只能绑定一�ơ，或者以一般的说法���是只能赋��g���ơ，其实Erlang�q�没有赋��D����L��概念,=号也是用于验证匹配�?br>
7.模式匚w��——Pattern Matching�Q�Erlang的模式匹配非常强大，看了buaawhl的�?a >Erlang语法提要》的介绍�Q�模式匹配的功能不仅仅在评���中介�l�的数据�l�构的拆解，在程序的分派也扮演重要角�Ԍ��或者说Erlang的控制的����{是通过模式匚w��来实现的。具体功能参见链接，�l�出书中拆解列表的例子：

python 代码


    [A,B|C] = [1,2,3,4,5,6,7]  
    
     Succeeds - binds A = 1, B = 2,  
    
     C = [3,4,5,6,7]  
    
   
    
 [H|T] = [1,2,3,4]  
    
     Succeeds - binds H = 1, T = [2,3,4]  
    
   
    
 [H|T] = [abc]  
    
     Succeeds - binds H = abc, T = []  
    
   
    
 [H|T] = []  
    
     Fails   


  
下面会给出更多模式匹配的例子�Q�给��Z��个模块用来计���列表等

8.Erlang中函数的定义必须在一个模块内�Q�Module�Q�，�q�且模块和函数的名称都必���L��atom�Q�函数的参数可以是�Q何的Erlang�c�d��或者数据结构，函数要被调用需要从模块中导出，函数调用的�Ş式类��|��
moduleName:funcName(Arg1,Arg2,...).
写我们的�W�一个Erlang�E�序�Q��h见�h��q��Hello World�Q?br>
java 代码

 

    -module(helloWorld).  
    
-export([run/1]).  
    
run(Name)->  
    
    io:format("Hello World ~w~n",[Name]).   



存�ؓhelloWorld.erl�Q�在Erlang Shell中执行：

java 代码

 

    2> c(helloWorld).  
    
{ok,helloWorld}  
    
3> helloWorld:run(dennis).  
    
Hello World dennis  
    
ok   



打印出来了，现在解释下程序构造，

java 代码


    -module(helloWorld).   



�q�一行声明了模块helloWorld�Q�函数必���d��义在模块内，�q�且模块名称必须与源文�g名相同�?br>
java 代码

 

    -export([run/1]).   



而这一行声明导出的函数�Q�run/1指的是有一个参数的run函数�Q�因为Erlang允许定义同名的有不同参数的多个函敎ͼ�通过指定/1来说明要导出的是哪个函数�?br>接下来就是函数定义了�Q?br>
java 代码

 

    run(Name)->  
    
    io:format("Hello World ~w~n",[Name]).   



大写开头的是变量Name�Q�调用io模块的format�Ҏ��输出�Q�~w可以理解成占位符�Q�将被实际Name取代�Q�~n���是换行了。注意，函数定义完了要以句号.�l�束。然后执行c(helloWorld).�~�译源代码，执行�Q?br>
java 代码


    helloWorld:run(dennis);   



9.内置的常用函敎ͼ�

java 代码

 

    date()  
    
time()  
    
length([1,2,3,4,5])  
    
size({a,b,c})  
    
atom_to_list(an_atom)  
    
list_to_tuple([1,2,3,4])  
    
integer_to_list(2234)  
    
tuple_to_list({})  
    
hd([1,2,3,4])  %输出1�Q�也���是列表的head  
    
tl([1,2,3,4])  %输出[2,3,4],也就是列表的tail   



10.常见Shell命��o�Q?br>1�Q?span style="FONT-WEIGHT: bold">h(). 用来打印最�q�的20条历史命�?br>2�Q?span style="FONT-WEIGHT: bold">b(). 查看所有绑定的变量
3) f(). 取消�Q�遗忘）所有绑定的变量�?br>4) f(Val).  取消指定的绑定变�?br>5) e(n).   执行�W�n条历史命�?br>6) e(-1).  执行上一条shell命��o

11.又一个不知道怎么���译的概念——Guard。翻译成�U�束�Q�呵��c��用于限制变量的�c�d��和范��_��比如�Q?br>
java 代码

 

    number(X)    - X 是数�?nbsp; 
    
integer(X)    - X 是整�?nbsp; 
    
float(X)    - X 是��Q�Ҏ��  
    
atom(X)        - X 是一个atom  
    
tuple(X)    - X 是一个元�l?nbsp; 
    
list(X)        - X 是一个列�?nbsp; 
    
  
    
length(X) == 3    - X 是一个长度�ؓ3的列�?nbsp; 
    
size(X) == 2    - X 是一个长度�ؓ2的元�l?nbsp; 
    
  
    
X > Y + Z    - X >Y+Z  
    
X == Y        - X 与Y相等  
    
X =:= Y        - X 全等于Y  
    
(比如�Q?nbsp;1 == 1.0 成功  
    
           1 =:= 1.0 ��p�|)   



��Z��方便比较�Q�Erlang规定如下的比较顺序：

java 代码


    number < atom < reference < port < pid < tuple < list   




12.忘了介绍apply函数�Q�这个函数对于熟悉javascript的�h来说很亲切，javascript实现mixin���得靠它�Q�它的调用方式如下：

apply(Mod, Func, Args),三个参数分别是模块、函��C��及参数列表，比如调用我们的第一个Erlang�E�序�Q?br>
java 代码


    apply(helloWorld,run,[dennis]).  



13.if和case语句�Q�if语句的结构如下：

java 代码

 

    if  
    
   Guard1 ->  
    
        Sequence1 ;  
    
   Guard2 ->  
    
        Sequence2 ;  
    
...  
    
end  



而case语句的结构如下：

java 代码

 

    case Expr of  
    
   Pattern1 [when Guard1] -> Seq1;  
    
   Pattern2 [when Guard2] -> Seq2;  
    
  
    
   PatternN [when GuardN] -> SeqN  
    
end  



if和case语句都有一个问题，���是当没有模式匹配或者Grard都是false的时候会��D��error�Q�这个问题case可以增加一个类似java中default的：

java 代码

 

    case Fn of  
    
  
    
   _ ->  
    
   true  
    
end   



通过_指代��L��的Expr�Q�返回true,而if可以�q�样�Q?br>
java 代码

 

    if  
    
    
    
  true ->  
    
   true  
    
end   



一��L��道理。case语句另一个需要注意的问题���是变量范围�Q�每个case分支中定义的变量都将默认导出case语句�Q�也���是在case语句�l�束后可以被引用�Q�因此一个规则就是每个case分支定义的变量应该一��_��不然���是非法的，�~�译器会�l�出警告�Q�比如：

java 代码

 

    f(X) ->  
    
case g(X) of  
    
true -> A = h(X), B = A + 7;  
    
false -> B = 6  
    
end,  
    
h(A).   



如果执行true分支�Q�变量A和变量B都被定义�Q�而如果执行的false分支�Q�只有变量B被引用，可在case语句执行后，h(A)调用了变量A�Q�这是不安全的，因�ؓ变量A完全可能没有被定义，�~�译器将�l�出警告
variable 'A' unsafe in 'case' (line 10)



14.�l�出一些稍微复杂的模型匚w��例子�Q�比如用于计���数字列表的和、��^均倹{��长度、查找某元素是否在列表中�Q�我们把�q�个模块定义为list:

java 代码

 

    -module(list).  
    
-export([average/1,sum/1,len/1,double/1,member/2]).  
    
average(X)->sum(X)/len(X).  
    
sum([H|T]) when number(H)->H+sum(T);  
    
sum([])->0.  
    
len([_|T])->1+len(T);  
    
len([])->0.  
    
double([H|T]) -> [2*H|double(T)];  
    
double([]) -> [].  
    
member(H, [H|_]) -> true;  
    
member(H, [_|T]) -> member(H, T);  
    
member(_, []) -> false.  
    
                   



�l�细体会�Q�利用递归来实玎ͼ�比较有趣。_用于指代��L��的变量，当我们只��x��此处有变量，但�ƈ不关心变量的值的时候��用。用分号;来说明是同一个函数定义，只是不同的定义分支，通过模式匚w��来决定调用哪个函数定义分支�?br>另一个例子，计算各种囑�Ş的面�U�，也是评���中给出的例子�Q?br>
java 代码

 

    -module(mathStuff).  
    
-export([factorial/1,area/1]).  
    
factorial(0)->1;  
    
factorial(N) when N>0->N*factorial(N-1).  
    
%计算正方形面�U�，参数元组的第一个匹配square      
    
area({square, Side}) ->  
    
    Side * Side;  
    
%计算圆的面积�Q�匹配circle    
    
area({circle, Radius}) ->  
    
   % almost :-)  
    
   3 * Radius * Radius;  
    
%计算三角形的面积�Q�利用�v伦公式，匚w��triangle   
    
area({triangle, A, B, C}) ->  
    
   S = (A + B + C)/2,  
    
math:sqrt(S*(S-A)*(S-B)*(S-C));  
    
%其他  
    
area(Other) ->  
    
   {invalid_object, Other}.   



执行一下看看：

java 代码

 

    1> c(mathStuff).  
    
{ok,mathStuff}  
    
2> mathStuff:area({square,2}).  
    
4  
    
3> mathStuff:area({circle,2}).  
    
12  
    
4> mathStuff:area({triangle,2,3,4}).  
    
2.90474  
    
5> mathStuff:area({other,2,3,4}).  
    
{invalid_object,{other,2,3,4}}   



Erlang使用%开始单行注释�?br>


暗夜教父 2009-09-11 10:11 发表评论

`-connect_all false`	上面已经解释�?
`-hidden`	启动一个hidden node
`-name Name`	启动一个系�l�成��点，使用long name.
`-setcookie Cookie`	�?code>Erlang:set_cookie(node(), Cookie).相同�Q�设�\|�magic cookie
`-sname Name`	启动一个Erlang�pȝ��作�ؓ节点�Q��用short name

亚洲国产成人精品久久久国产成人一区二区三区综 ,一个色综合久久,精品视频久久久久

Patch Mnesia 使用TokyoCabinet引擎�H�破2G存储限制

SMP性能得到持箋改进

一些已知的瓉���

卓越典范

Erlang开发徏�?杂记�?

ubuntu下编译安装Erlang

Erlang与ActionScript3采用JSON格式�q�行Socket通讯

erlang�|�络�~�程的几个性能调优和注意点

echo_server

erlang �|�络调优实战

ErLang语法提要

Erlang入门�Q�三�Q�——分布式�~�程

一些已知的瓉��