呵呵，请问下AnyEvent::HTTP。

y6cmE

呵呵，请问这个脚本为什么不能好好工作，无法模拟登录上网站，请各位指导，谢谢！怎么URL贴不上来。

1. use Coro;
   
2. use AnyEvent::HTTP;
   
3. my $url='xxxxx';
   
4. my $cookie_jar={};
   
5. my %headers={
   
6.         'Host'=>'xxxxxxxx',
   
7.         'User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:44.0) Gecko/20100101 Firefox/44.0',
   
8.         'Accept'=>'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
   
9.         'Accept-Language'=>'zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3',
   
10.         'Accept-Encoding'=>'gzip, deflate',
    
11.         'Referer'=>'xxxxxxx',
    
12.         'Content-Type'=>'application/x-www-form-urlencoded',
    
13.         #'keepalive'=>'1',
    
14.         };
    
15. http_post(
    
16.         "$url",
    
17.         '__EVENTTARGET'=>'',
    
18.         '__EVENTARGUMENT'=>'',
    
19.         '__VIEWSTATE'=>'/wEPDwUKLTQwMDQ2MTU5OGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFgEFF2N0bDAwJEJvZHkkY3RsMDAkZ2V0cHdk',
    
20.         'ctl00$Body$ctl00$UsernameTextBox'=>'UserName',
    
21.         'ctl00$Body$ctl00$PasswordTextBox'=>'PassWord',
    
22.         'ctl00$Body$ctl00$LoginButton'=>'登录',
    
23.         cookie_jar=>$cookie_jar,
    
24.         headers=>%headers,
    
25.         ,timeout=>10,cb=>Coro::rouse_cb
    
26. );
    
27. my @rouse=Coro::rouse_wait;
    
28. print $rouse[0];

复制代码

y6cmE

URL发不上来只能这样发
http://
www
.xmrc.
com.cn/
net/enterprise/
login.aspx

laputa73

你的写法太奇葩了。
先看看AE::http的例子，在考虑怎么和coro合

laputa73

基本的写法。

1. #!/usr/local/bin/perl
   
2. use strict;
   
3. use Coro;
   
4.   use AnyEvent;
   
5. use AnyEvent::HTTP;
   
6. 
   
7. 
   
8.   my $coro = async {        
   
9.         http_get ("http://www.baidu.com/", cb => Coro::rouse_cb );     
   
10.         print ("1.\n");
    
11. #        cede;
    
12.         my ($content, $hdr) = Coro::rouse_wait;
    
13. #       return $content;
    
14.       return $hdr->{Status};
    
15.    };
    
16. 
    
17.    my $result = $coro->join;
    
18. 
    
19.    print $result;
    
20. #  cede; # and again
    
21. print "b.\n";
    
22. #cede;
    
23. 
    

复制代码

y6cmE

@laputa73 呵呵，你好，我不清楚 AnyEvent::HTTP 是怎么传递 UserName、PassWord、cookies、header的，基本写法比较简单，AnyEvent::HTTP我得研究下，还望高手指正此题，感谢！
同样这个例子我用 LWP 或 Mojo::UserAgent 能实现

laputa73

回复 5# y6cmE


    你的代码的主要问题是根本就没有发起请求。
   因为没有调用coro的async方法。
   如果不用coro,就要用cv

1. use AnyEvent::Impl::Perl;
   
2. 
   
3. require AnyEvent::HTTP;
   
4. 
   
5. print "ok 1\n";
   
6. 
   
7. my $cv = AnyEvent->condvar;
   
8. 
   
9. AnyEvent::HTTP::http_get ("http://nonexistant.invalid/", timeout => 1, sub {
   
10.    print "ok 3\n";
    
11.    $cv->send;
    
12. });
    
13. 
    
14. print "ok 2\n";
    
15. $cv->recv;
    
16. print "ok 4\n";

复制代码

至于header,agent怎么写，不同包都差不多的。

y6cmE

呵呵，刚回到家。会返回登录界面网页信息回来，但登录不了，我好好看下理解下你说的，研究下……。
呵呵，你和py等几个大牛在 Perl 版有几篇贴子讨论这个Coro、AE