使用 AnyEvent::HTTP 抓取网页

cobrawgl

这是用 AnyEvent::HTTP 抓取网页的一个示例。
我对 AnyEvent 不熟悉，希望有 大侠 能指点指点，谢谢！

1. #!/usr/bin/perl
   
2. 
   
3. use 5.014;
   
4. 
   
5. use AnyEvent;
   
6. use AnyEvent::HTTP;
   
7. 
   
8. use IO::File;
   
9. 
   
10. my $file = IO::File->new('test.csv');
    
11. 
    
12. my $cv = AnyEvent->condvar;
    
13. 
    
14. my $task = 0;
    
15. 
    
16. my $w; $w = AnyEvent->timer(
    
17.         after         => 0,
    
18.         interval => 0.001,
    
19.         cb                 => sub {
    
20.                 my $url = $file->getline;
    
21.                 chomp $url;
    
22.                 if ($url) {
    
23.                         $task += 1;
    
24.                         $cv->begin;
    
25.                         http_get $url, sub {
    
26.                                 my ($body, $header) = @_;
    
27.                                 say $header->{Status};
    
28.                                 $task -= 1;
    
29.                                 $cv->end;
    
30.                         };
    
31.                 } else {
    
32.                         $cv->send unless $task;
    
33.                 }
    
34.         }
    
35. );
    
36. 
    
37. $cv->recv;

复制代码

AnyEvent 的确要比 POE 容易上手

flw

POE 是框架，AnyEvent 只是个事件驱动。

成千上万行的代码，POE 可以组织得了，AnyEvent 就不行了。

cobrawgl

感觉 POE 很复杂啊，想做点小事情得花不少功夫

flw

还行吧，就你这件事情，用 POE 做也不会复杂到哪里去。

cobrawgl

版主指点指点，用 POE 怎么弄比较好？给个大体框架就行

谢谢谢谢!



版主对 POE 的传播好像停滞了？