免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 4435 | 回复: 3
打印 上一主题 下一主题

使用mojo进行get的问题请教 [复制链接]

论坛徽章:
1
双子座
日期:2013-11-06 17:18:01
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2014-05-20 15:56 |显示全部楼层 |倒序浏览
本帖最后由 seufy88 于 2014-05-20 15:59 编辑

我想作用mojo,对 192.168.1.1/issue/1到 192.168.1.1/issue/100进行GET,对每个GET到的网页内容,找出
ahref为 /attachment/download/这样的链接地址。
但是运行脚本后,每次print的都是第1个网页地址的中/attachment/downlaod的结果

这是为何
  1. #!/usr/bin/perl
  2. use strict;
  3. use Mojo::UserAgent;
  4. use Data::Dumper;


  5. my $username='xxxxx';
  6. my $password='xxxxx';

  7. my $baseUrl = Mojo::URL->new('http://192.168.1.1/issues/');

  8. my $ua = Mojo::UserAgent->new(max_redirects => 3);

  9. #call back

  10. my $callback = sub  {
  11.     my ($ua, $tx) = @_;
  12.     return if !$tx->success;
  13.    
  14.     # ticket Number
  15.     my $ticket = $tx->req->headers->header('ticket');
  16.     print "==== Callback ======\n";
  17.         print "$ticket\n";
  18.        
  19.         #ticket Title
  20.         my $title = $tx->res->dom->html->head->title->text;
  21.         #print "=== Title: $title\n";
  22.        
  23.     my $array = $tx->res->dom->find("a[href]")->attr('href');
  24.    
  25.     my @arr;
  26.         @arr =  (map { if (m#attachments/download#) { 'http://192.168.1.1'.$_."\n";$_} } @$array);
  27.         print @arr;
  28.        
  29.     #$ua->get($newUrl)->res->content->asset->move_to($filename);
  30. };

  31. ##*******************************************/
  32. my $redmine_login = 'http://192.168.1.1/login';
  33. my $login = 'http://192.168.1.1/my/page';
  34. my $ticket_start = 1;
  35. my $ticket_end = 100;

  36. my $token;
  37. $ua->get($redmine_login)->res->dom->find("input")->each(sub{
  38. my $attrs  = shift->attr;
  39. if($attrs->{name} eq 'authenticity_token'){
  40.         $token = $attrs->{value};
  41.         }
  42. });

  43. if($token){
  44. my $tx = $ua->post("$redmine_login"=> form => {
  45.                 'username'  => "$username",
  46.         'password'  => "$password",
  47.         'login' =>'Login »',
  48.                 'utf8' =>'✓',
  49.                 'authenticity_token' =>"$token",});
  50.                

  51.         #登录成功,对 1~100的网页进行get
  52.         if (my $res = $tx->success){
  53.                
  54.                 foreach my $ticket ($ticket_start..$ticket_end){
  55.                         $baseUrl->path("$ticket");
  56.                         if (!$baseUrl->scheme){$baseUrl->scheme('http');}
  57.                        
  58.                         $ua->get($baseUrl => { ticket => $ticket} => $callback);
  59.                         print "==== get URL ======\n";
  60.                         print "$baseUrl\n";
  61.                 }
  62.                
  63.                 Mojo::IOLoop->start;
  64.         }else{
  65.                 print " login failed\n";
  66.         }
  67. }else{
  68.         print " token failed\n";
  69. }
复制代码

论坛徽章:
1
双子座
日期:2013-11-06 17:18:01
2 [报告]
发表于 2014-05-20 16:01 |显示全部楼层
本帖最后由 seufy88 于 2014-05-20 17:42 编辑

删除内容。

论坛徽章:
1
双子座
日期:2013-11-06 17:18:01
3 [报告]
发表于 2014-05-20 16:13 |显示全部楼层
本帖最后由 seufy88 于 2014-05-20 17:41 编辑

删除内容。

论坛徽章:
1
双子座
日期:2013-11-06 17:18:01
4 [报告]
发表于 2014-05-21 09:38 |显示全部楼层
回复 6# py


    非常感谢。我这个问题找到原因了。应该是get时的URL是一样的。
   至于为什么,是由于$baseUrl->path("$ticket");这个操作造成的。
  
  没用过CORO.有机会我 会尝试一下。
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP