莫名其妙玩Coro然后玩hi了。。。

墨迹哥

Coro感觉很新鲜的样子。。写了个DEMO爽了下，虽然不知道为啥这模块功能这么神奇，但是莫名的菊花感觉一凉，
各种想法呈现。。明天去改改那个蛋疼的工具脚本。。。

@mcshell   看看这个东西。。明天我们上班再讨论下。。

1. #!perl
   
2. # use AnyEvent;
   
3. use AnyEvent::HTTP;
   
4. use Data::Dumper;
   
5. # use AnyEvent::Socket;
   
6. # use AnyEvent::DBI::MySQL;
   
7. use Coro;
   
8. 
   
9. my $calculate = new Coro::Channel;
   
10. my $result = new Coro::Channel;
    
11. 
    
12. 
    
13. async {
    
14.         while (){
    
15.                 my $cv = AnyEvent->condvar;
    
16.                 $cv->begin;
    
17.                 my $message = $calculate->get;
    
18.                 http_get(
    
19.                         "http://www.baidu.com/s?wd=$message",
    
20.                         sub {
    
21.                                         $cv->end();
    
22.                                         my ($word,$content,$hrd)=@_;
    
23.                                         if ($content->{Status}==200){
    
24.                                                 $result->put("yes");
    
25.                                         } else{
    
26.                                                 $result->put("No");
    
27.                                         }
    
28.                                 }
    
29.                 );
    
30.                
    
31.                 $cv->recv();
    
32. 
    
33.         }
    
34. };
    
35. 
    
36. for (1..100){
    
37.         $calculate->put($_);
    
38. 
    
39.         print "put:".$result->get."\n";
    
40. }

复制代码

laputa73

你这个不是标准的coro用法.用了cro,就不用$cv了
httpget和channel处理都可以放在一个asyn里面

mcshell

这方面资料太少  只能去摸索

墨迹哥

回复 2# laputa73


    好吧！我只是闲得无聊。。。觉得这个模块很神奇，而且突然觉得好像没这么难理解了，就随手玩玩。。

    我记得PY很喜欢这个Coro模块，多次提过。。

py

看文档，文档上的说明写的很清楚。

墨迹哥

回复 5# py


    正有此想法。。你之前提到过的一个主进程挂起，子进程去做任务还是啥，那个东西有DEMO可以看看不？

    看到你写的那个方法很有条理性，但是不知道真实跑起来是啥样的，会不会有蛋疼的问题。。。。

    我知道多进程跑的时候会有一些二逼的错误，不知道为啥，有的时候偶尔会发生，正常跑是无事的。