免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 接下来该怎么办？
123下一页
最近访问板块 发新帖
楼主: thevoice
打印 上一主题 下一主题

接下来该怎么办？ [复制链接]

路小佳

论坛徽章:
0
11楼 [报告]
发表于 2007-04-24 10:54 |只看该作者
IE的用于查看header插件很多， 但是都暴难用。(个人观点)
强烈推荐Firefox的livehttpheaders扩展。
如果是win下的， httpdetect这个sinffer最好用了。(而且很小很容易上手)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
Namelessxp

论坛徽章:
0
12楼 [报告]
发表于 2007-04-24 11:06 |只看该作者
鬼桥(achilles)
早几年停止更新了
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
13楼 [报告]
发表于 2007-04-24 13:12 |只看该作者
下了个httpwatch
看网业post信息确实只有
ekey ''
user_type 1
pass_word 835170
user_name thevoice

四个变量
地址也是post到了 http://www.cmfu.com/loginuser.asp

为什么print $res->content  就是body为空呢

  2. <body leftMargin=5 topMargin=0 bgcolor="#ffffff">

  4. <script>window.location.href = '';</script><!--尝试关闭未关闭的数据库-->
复制代码

哪里出错了 真搞不懂
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
路小佳

论坛徽章:
0
14楼 [报告]
发表于 2007-04-24 13:32 |只看该作者
嗯，试了下。loginuser.asp要检查ASPSESSIONIDAQBSSRSD
步骤是这样的1.GET index.asp, 保存cookie
2.带cookie, POST
3. 再更新cookie, GET你要的叶面。

这是我的代码。测试是成功的

  2. my $url = 'http://www.cmfu.com/index.asp';
  3. my $lurl = 'http://www.cmfu.com/loginuser.asp';
  4. my %form = (ekey => '', user_type => '1', pass_word => '835170', user_name => 'thevoice');
  5. my %header = (Referer => $url);
  6. my ($html, $cookie) = http_get($url, \%header);
  7. $header{Cookie} = $cookie if ($cookie);
  8. ($html, $cookie) = http_post($lurl, \%header, \%form);
  9. $header{Cookie} .= ';'.$cookie if ($cookie);
  10. ($html) = http_get($url, \%header);
  11. print $html;
复制代码

[ 本帖最后由 路小佳 于 2007-4-24 13:39 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
路小佳

论坛徽章:
0
15楼 [报告]
发表于 2007-04-24 13:38 |只看该作者
use LWP的话， cookie_jar一下应该就可以了。(猜的， 不确定).
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
flw

论坛徽章:
1
2015年辞旧岁徽章 日期:2015-03-03 16:54:15
16楼 [报告]
发表于 2007-04-24 13:38 |只看该作者
原帖由 路小佳 于 2007-4-24 13:38 发表
use LWP的话， cookie_jar一下应该就可以了。(猜的， 不确定).

我帮你确定。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
17楼 [报告]
发表于 2007-04-24 17:35 |只看该作者
还是不行，现在得到的结果说是没有这个用户，是不是我cookie那里处理的有问题？
还有如果我想查看cookie的值 怎么print出来呢？
print $ua->cookie_jar;
得到的是 http::cookie hash 后面一堆

  2. #! /usr/perl/bin
  3. use strict;
  4. use warnings;

  6. use LWP::UserAgent;
  7. use HTTP::Request::Common qw(POST GET);


  10. my %ua_option = (
  11.     agent => "Mozilla/5.0",
  12.     timeout => 180,
  13. );

  15. my $ua = LWP::UserAgent->new(%ua_option);

  17. $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt,autosave => 1, ignore_discard => 1" });
  18. my $lurl = 'http://www.cmfu.com/loginuser.asp'; # or 'https://...';
  19. my $url = 'http://www.cmfu.com/index.asp';

  21. my %form;
  22. $form{user_name} = 'the_voice';
  23. $form{pass_word} = '835170';
  24. $form{ekey}='';
  25. $form{user_type}=1;

  27. my $req = GET $url;
  28. my $res = $ua->request($req);

  30. $ua->cookie_jar->extract_cookies($res);
  31. $req  = POST($lurl, [%form]);
  32. $res = $ua->request($req);
  33. $ua->cookie_jar->extract_cookies($res);
  34. if ($res->is_success) {
  35.         print $res->content;
  36. }else{
  37.         print $res->status_line . "\n";
  38. }
复制代码
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
路小佳

论坛徽章:
0
18楼 [报告]
发表于 2007-04-24 17:37 |只看该作者
LWP我不熟, 爱莫能助。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
19楼 [报告]
发表于 2007-04-24 17:48 |只看该作者
原帖由 路小佳 于 2007-4-24 13:32 发表
嗯，试了下。loginuser.asp要检查ASPSESSIONIDAQBSSRSD
步骤是这样的1.GET index.asp, 保存cookie
2.带cookie, POST
3. 再更新cookie, GET你要的叶面。

这是我的代码。测试是成功的
[code]
my $url = 'ht ...


你的代码我perl不成功
Undefined subroutine &main::http_get called at D:\perl\cmfu.pl line 5.

activeperl + win
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
路小佳

论坛徽章:
0
20楼 [报告]
发表于 2007-04-24 17:54 |只看该作者
http_get是我封装的Net::HTTP的一个函数。(写的很烂， 不好意思献丑)

你这么一说， 我想起来了。LWP也是基于Net::HTTP的， 有个BUG.
就是当服务器返回多个Set-Cookie头时， 如果用Net::HTTP的示例代码的话只能读到一个

  2. my($code, $mess, %h) = $s->read_response_headers;
复制代码

我封装是是这样调用的

  2. my($code, $mess, @h) = $s->read_response_headers;
复制代码

然后手动处理， 你用sniffer试下， 可能是这个Bug的问题。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP