简单测试了一下Coro的性能

撒哈拉里的鱼

第一次用Coro，代码写得很搓，所以测试出来结果很糟糕。

1. 
   
2. [yunshu@alisec ~]$ ./lwp.pl
   
3. Benchmark: timing 20 iterations of Coro_cede, Coro_nocede, Single...
   
4. coro cede: 6.49081897735596
   
5. coro cede: 6.15217590332031
   
6. coro cede: 6.05628800392151
   
7. coro cede: 6.21107196807861
   
8. coro cede: 6.00841999053955
   
9. coro cede: 6.26581907272339
   
10. coro cede: 6.17434310913086
    
11. coro cede: 6.00813794136047
    
12. coro cede: 6.1951699256897
    
13. coro cede: 6.06605410575867
    
14. coro cede: 5.94637799263
    
15. coro cede: 6.03272008895874
    
16. coro cede: 5.96221017837524
    
17. coro cede: 6.13361597061157
    
18. coro cede: 5.86121511459351
    
19. coro cede: 6.28835797309875
    
20. coro cede: 5.88967108726501
    
21. coro cede: 6.08243489265442
    
22. coro cede: 6.15819191932678
    
23. coro cede: 6.04327797889709
    
24. Coro_cede: 122 wallclock secs ( 5.32 usr +  0.60 sys =  5.92 CPU) @  3.38/s (n=20)
    
25. coro no cede: 9.09577894210815
    
26. coro no cede: 6.05727195739746
    
27. coro no cede: 5.76734018325806
    
28. coro no cede: 9.02401900291443
    
29. coro no cede: 5.81625485420227
    
30. coro no cede: 5.86933517456055
    
31. coro no cede: 5.99138998985291
    
32. coro no cede: 6.11405181884766
    
33. coro no cede: 5.76704406738281
    
34. coro no cede: 6.13680291175842
    
35. coro no cede: 8.82450413703918
    
36. coro no cede: 6.01463413238525
    
37. coro no cede: 6.02665209770203
    
38. coro no cede: 6.03721284866333
    
39. coro no cede: 5.83429312705994
    
40. coro no cede: 6.11594295501709
    
41. coro no cede: 5.95029497146606
    
42. coro no cede: 6.00661706924438
    
43. coro no cede: 5.88391184806824
    
44. coro no cede: 6.03061604499817
    
45. Coro_nocede: 128 wallclock secs ( 5.19 usr +  0.60 sys =  5.79 CPU) @  3.45/s (n=20)
    
46. single: 5.75780200958252
    
47. single: 6.01135516166687
    
48. single: 5.89875817298889
    
49. single: 5.99776697158813
    
50. single: 6.0035080909729
    
51. single: 6.08962893486023
    
52. single: 6.12317204475403
    
53. single: 6.15343594551086
    
54. single: 6.19344115257263
    
55. single: 6.09869790077209
    
56. single: 5.82484889030457
    
57. single: 6.16173100471497
    
58. single: 5.86830401420593
    
59. single: 6.08909893035889
    
60. single: 5.88979601860046
    
61. single: 6.01710295677185
    
62. single: 5.99976301193237
    
63. single: 6.0466160774231
    
64. single: 5.76599287986755
    
65. single: 6.08541393280029
    
66.     Single: 120 wallclock secs ( 5.12 usr +  0.57 sys =  5.69 CPU) @  3.51/s (n=20)
    
67.               Rate   Coro_cede Coro_nocede      Single
    
68. Coro_cede   3.38/s          --         -2%         -4%
    
69. Coro_nocede 3.45/s          2%          --         -2%
    
70. Single      3.51/s          4%          2%          --
    
71. [yunshu@alisec ~]$
    

复制代码

测试代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use LWP::Simple;
   
6. use Web::Scraper;
   
7. use Coro;
   
8. use Time::HiRes;
   
9. use Benchmark qw(timethese cmpthese);
   
10. 
    
11. my $scraper = scraper {
    
12.     process '//a', 'links[]' => '@href';
    
13. };
    
14. my $res     = $scraper->scrape(URI->new('http://www.soso.com'));
    
15. my @links   = @{ $res->{links} };
    
16. 
    
17. my $result = timethese(20, {
    
18.     Single => 'do_single',
    
19.     Coro_cede => 'do_coro',
    
20.     Coro_nocede => 'do_no_cede',
    
21. });
    
22. 
    
23. cmpthese($result);
    
24. 
    
25. sub do_single {
    
26.     my $t = Time::HiRes::time;
    
27. 
    
28.     foreach my $link (@links) {
    
29.         my $content = get $link;
    
30.     }
    
31.     print "single: ", Time::HiRes::time - $t, "\n";
    
32. }
    
33. 
    
34. sub do_coro {
    
35.     my $t = Time::HiRes::time;
    
36. 
    
37.     my @coros = ( );
    
38.     foreach my $link (@links) {
    
39.         push( @coros,
    
40.             async {
    
41.                 my $l = shift;
    
42.                 cede;
    
43.                 my $content = get $l;
    
44.             } $link
    
45.         );
    
46.     }
    
47.     cede;
    
48.     foreach (@coros) {
    
49.         $_->join();
    
50.     }
    
51.     print "coro cede: ", Time::HiRes::time - $t, "\n";
    
52. }
    
53. 
    
54. sub do_no_cede {
    
55.     my $t = Time::HiRes::time;
    
56. 
    
57.     my @coros = ( );
    
58.     foreach my $link (@links) {
    
59.         push( @coros,
    
60.             async {
    
61.                 my $content = get $link;
    
62.             }
    
63.         );
    
64.     }
    
65. 
    
66.     foreach (@coros) {
    
67.         $_->join();
    
68.     }
    
69.     print "coro no cede: ", Time::HiRes::time - $t, "\n";
    
70. }
    

复制代码

flw

看起来用法似乎有些不对的呢。

应该是先 use Coro::LWP;
然后 use Coro;
最后才 use LWP::Simple 或者 Web::Scraper 一类的。

撒哈拉里的鱼

我这个测试主要不是为了非阻塞的LWP，而是对比一下多个例程和没有使用多例程的效率。我再试试非阻塞的LWP。

flw

原帖由 撒哈拉里的鱼 于 2009-12-20 16:49 发表
我这个测试主要不是为了非阻塞的LWP，而是对比一下多个例程和没有使用多例程的效率。我再试试非阻塞的LWP。

Coro 本来就是单线程的东西，如果不用非阻塞，甭指望它能提高效率。

撒哈拉里的鱼

确实，根据后来的测试看来协程本身对性能提升没有好处，有用的是非阻塞。
有意思的是，URL不多时使用多线程并不比单线程快，可能是因为线程切换的原因吧。
空了我仔细看看。

[ 本帖最后由 撒哈拉里的鱼 于 2009-12-20 19:44 编辑 ]

flw

原帖由 撒哈拉里的鱼 于 2009-12-20 19:42 发表
确实，根据后来的测试看来协程本身对性能提升没有好处，有用的是非阻塞。
有意思的是，URL不多时使用多线程并不比单线程快，可能是因为线程切换的原因吧。
空了我仔细看看。

Coro 根本就不是多线程。

撒哈拉里的鱼

不是，我的意思是说我也顺便测试了threads。

撒哈拉里的鱼

Coro_cede: 17 wallclock secs ( 4.54 usr +  0.44 sys =  4.98 CPU) @  2.01/s (n=10)
Coro_nocede: 18 wallclock secs ( 4.54 usr +  0.41 sys =  4.95 CPU) @  2.02/s (n=10)
Single: 90 wallclock secs ( 4.68 usr +  0.44 sys =  5.12 CPU) @  1.95/s (n=10)
Threads: 23 wallclock secs (21.37 usr +  2.13 sys = 23.50 CPU) @  0.43/s (n=10)