perl 实现真正的线程 Coro

hitsubunnu

http://search.cpan.org/~mlehmann/Coro-5.2/Coro.pm

hitsubunnu

给大家看一下 coro的性能

code ： http://gist.github.com/137424

1. 
   
2. Perl5.10.0, Coro 5.14
   
3. 
   
4.          Rate threads    fork
   
5. threads 226/s      --    -31%
   
6. fork    329/s     45%      --
   
7. 
   
8. ### use DateTime;
   
9. 
   
10.           Rate threads    fork
    
11. threads 29.9/s      --    -46%
    
12. fork    55.0/s     84%      --
    
13. 
    
14. Coro と fork 比较
    
15. 
    
16. [color=Red]
    
17.         Rate  fork  coro
    
18. fork   974/s    --  -96%
    
19. coro 21739/s 2133%    --[/color]
    
20. 
    

复制代码

文章出处 ： http://d.hatena.ne.jp/tokuhirom/20090629/1246239835

兰花仙子

看起来不错，有空试试

hitsubunnu

再给大家看看 资源利用率

Coro 使用内存 13MB ithreads 使用内存 76MB

code： http://gist.github.com/137442

1. 
   
2. 
   
3. TIME1=Coro, TIME2=serial
   
4. 
   
5. TIME1=1.9073486328125e-06
   
6. MEMORY=13,647,872
   
7. 4:129914      
   
8. 0:144257      
   
9. 3:85000      
   
10. 2:147701
    
11. 1:139747
    
12. 5:144191
    
13. TIME1=4.45059299468994
    
14. TIME2=9.5367431640625e-07
    
15. 0:144182
    
16. 1:140053
    
17. 2:147443
    
18. 3:85000
    
19. 4:130146
    
20. 5:145281
    
21. TIME2=16.2515659332275
    
22. 
    
23. TIME1=ithreads, TIME2=serial
    
24. 
    
25. TIME1=3.09944152832031e-06
    
26. MEMORY=76,292,096
    
27. 3:85040
    
28. 4:130146
    
29. 1:139934
    
30. 5:145085
    
31. 0:144175
    
32. 2:148010
    
33. TIME1=3.18102717399597
    
34. TIME2=3.09944152832031e-06
    
35. 0:144283
    
36. 1:139511
    
37. 2:147305
    
38. 3:85000
    
39. 4:130086
    
40. 5:144945
    
41. TIME2=16.0958790779114
    
42. 
    
43. 
    

复制代码

flw

我关注 Coro 很久了，
一直比较担心它的内部实现是否足够健康，
是否可以和其它的比较大型的模块，比如 Tk、Win32::GUI、POE 同时使用。

Coro 确实可以实现一些 POE 无法实现的功能，
我看 POE 的 TODO 里面也计划做协程，不知道会不会有人给 Coro 和 POE 做个 bridge

hitsubunnu

对应 POE的 birdge 是  AnyEvent
而且 AnyEvent 不是仅仅针对 POE 的

1. 
   
2. 
   
3. AnyEvent - the DBI of event loop programming
   
4. 
   
5. EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async, Qt and POE are various supported event loops/environments.
   
6. 
   

复制代码

[ 本帖最后由 hitsubunnu 于 2009-10-30 13:35 编辑 ]

flw

原帖由 hitsubunnu 于 2009-10-30 13:32 发表
对应 POE的 birdge 是  AnyEvent
而且 AnyEvent 不是仅仅针对 POE 的




AnyEvent - the DBI of event loop programming

EV, Event, Glib, Tk, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async,  ...

我对 EV/Event/AnyEvent 这套架构不是很清楚，
能稍微做一下介绍么？

hitsubunnu

原帖由 flw 于 2009-10-30 13:35 发表

我对 EV/Event/AnyEvent 这套架构不是很清楚，
能稍微做一下介绍么？

你就把它当 DBI 啊

azure1st

文档里说：
合作的方式，这些线程必须相互合作，当说到CPU使用率 - 总是只有一个线程拥有的CPU，如果其他线程想要CPU，运行中的线程必须放弃。或者是明确通过调用一个函数来这样做，或隐式等待资源（如信号量，还是有一些我完成/输出请求）。
是否意味着coro对多内核CPU利用率不高啊？

flw

原帖由 azure1st 于 2009-12-16 18:55 发表
文档里说：
合作的方式，这些线程必须相互合作，当说到CPU使用率 - 总是只有一个线程拥有的CPU，如果其他线程想要CPU，运行中的线程必须放弃。或者是明确通过调用一个函数来这样做，或隐式等待资源（如信号量， ...

Coro 和 POE 一样，本质上仍然是单线程的。
只是能够在编程的时候，给程序员一种多线程的假象而已。