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

墨跡哥

Coro感覺很新鮮的樣子。。寫了個DEMO爽了下，雖然不知道為啥這模塊功能這么神奇，但是莫名的菊花感覺一涼，
各種想法呈現(xiàn)。。明天去改改那個蛋疼的工具腳本。。。

@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. }

復(fù)制代碼

laputa73

你這個不是標準的coro用法.用了cro,就不用$cv了
httpget和channel處理都可以放在一個asyn里面

mcshell

這方面資料太少  只能去摸索

墨跡哥

回復(fù) 2# laputa73


    好吧！我只是閑得無聊。。。覺得這個模塊很神奇，而且突然覺得好像沒這么難理解了，就隨手玩玩。。

    我記得PY很喜歡這個Coro模塊，多次提過。。

py

看文檔，文檔上的說明寫的很清楚。

墨跡哥

回復(fù) 5# py


    正有此想法。。你之前提到過的一個主進程掛起，子進程去做任務(wù)還是啥，那個東西有DEMO可以看看不？

    看到你寫的那個方法很有條理性，但是不知道真實跑起來是啥樣的，會不會有蛋疼的問題。。。。

    我知道多進程跑的時候會有一些二逼的錯誤，不知道為啥，有的時候偶爾會發(fā)生，正常跑是無事的。