免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 程序设计 › Perl › 接下来该怎么办？
12下一页
最近访问板块 发新帖
查看: 4743 | 回复: 12
打印 上一主题 下一主题

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

thevoice

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2007-04-23 09:30 |显示全部楼层 |倒序浏览
把论坛上的那本 Perl语言入门(第四版).pdf 大概的过了一遍 在此感谢大大狗，
正则看的不是很明白，后面的进程管理那些 高级perl技术 perl模块等等 没太看
只能说是 懂了些基本的语法了  能做些课后习题了

那接下来该做什么呢 直接上programming perl?
还是说找些小东西 自己写的试试？

比如说 我喜欢看小说，连载中，我就要时不时的登陆网站看更新了没有，我很想用perl写个自动检测的东西
如果更新了就提示我，然后我就去看，或者说 vip更新了 就去检测D帖更新了没有(当然不要骂我看D贴)

但我不清楚怎么实现他。可能会用到LWP模块，但我不知道具体怎么用。
我想请问下各位，当初你们学PERL的时候遇到和这样差不多的问题的时候是怎么解决的？

cpan有很多模块 但我不知道哪个是我需要的，也不知道怎么用。所以想问问各位
thevoice

论坛徽章:
0
2楼 [报告]
发表于 2007-04-23 09:31 |显示全部楼层
中间还有个登陆的问题 登陆以后才能查看自己的书架。 这个我也不清楚怎么处理
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
3楼 [报告]
发表于 2007-04-23 13:34 |显示全部楼层
大家难道就是看完了一本书以后 就一下子精通了PERL 中间没个过程的吗？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
4楼 [报告]
发表于 2007-04-23 15:45 |显示全部楼层
动手确实上最好的办法
可问题是我都不知道该怎么动手啊 比如说我可能会用到哪些模块 分别有什么作用
一点都不知道 我就知道有个LWP模块 可以帮住我get 某个页面的 html代码
可 怎么实现登陆  是一点方向也没有
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
5楼 [报告]
发表于 2007-04-24 10:33 |显示全部楼层

  2. function loginsubmit(frm)

  4.             {

  6.                         if (frm.ekey.value=='无则不填')

  8.                         {

  10.                                 frm.ekey.value='';

  12.                         }

  14.                         if (frm.sendpost)

  16.                         {

  18.                               frm.sendpost.disabled = true;

  20.                         }



  24.                       frm.method = "post";

  26.                       frm.action = (window.location.hostname.indexOf("big5.cmfu.com")<0) ? "/loginuser.asp" : "/www.cmfu.com/loginuser.asp";

  28.                       frm.submit();

  30.             }
复制代码

难道form不是post到了www.cmfu.com/loginuser.asp吗？
为什么post过去后 没有显示出body内容？

  2. use LWP::UserAgent;
  3. use HTTP::Request::Common qw(POST);

  5. my %ua_option = (
  6.     agent => "Mozilla/5.0",
  7.     timeout => 180,
  8. );

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

  12. my $url = 'http://www.cmfu.com/loginuser.asp'; # or 'https://...';

  14. my %form;
  15. $form{user_name} = 'thevoice';
  16. $form{pass_word} = '835170';
  17. $form{ekey}='';
  18. $form{user_type}=1;
  19. my $req  = POST($url, [%form]);

  21. my $res = $ua->request($req);

  23. if ($res->is_success) {
  24. print $res->header("Content-Type") . "\n";
  25. print $res->status_line . "\n";
  26. print $res->code . "\n";
  27. print $res->header("Server") . "\n";

  29. print $res->content;
  30. } else {
  31. print $res->status_line . "\n";
  32. }
复制代码

用LWP::Simple取得的post form的代码

  2.         <tr>       

  4.                         <td align="right">用户名&nbsp;<input type="text" name="user_name" size=8 maxlength=20 onFocus="this.select()" class=think>&nbsp;</td>

  6.                         <td align="right">密码&nbsp;<input type="password" name="pass_word" size=8 maxlength=16 onFocus="this.select()" class=think>&nbsp;</td>                       

  8.                         <td id='etd' align="right">密宝密码&nbsp;<input type="text" name="ekey" size=8 maxlength=8 onFocus="this.select()" class=think value="无则不填">&nbsp;</td>

  10.                         <td align="right"><a href="https://ekey.poptang.com/challengecode.asp" target="_blank">挑战码</a>&nbsp;3541&nbsp;<input type="hidden" name="user_type" value="1"></td>

  12.                         <td align="right">&nbsp;<input TYPE="checkbox" NAME="selected" onClick="checkstatus(this.form)" value="yes">保持一月&nbsp;<input type="submit" value="登录书屋" style="color:blue" class=stbtm name=sendpost onclick="loginsubmit(this.form);">&nbsp;<input type="button" value="新用户注册" class=stbtm onclick="javascript:location.href='/reg_start.asp'" style='color:red'>&nbsp;</td>

  14.         </tr>
复制代码


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

论坛徽章:
0
6楼 [报告]
发表于 2007-04-24 10:50 |显示全部楼层
原来有用过个软件 可以显示IE的 交互信息的  但不记得叫什么名字了 不知道你知道吗
sinffer不会用 不过听说是个大家伙 为什么了查看这个就用到sinffer？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
thevoice

论坛徽章:
0
7楼 [报告]
发表于 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知多少？
thevoice

论坛徽章:
0
8楼 [报告]
发表于 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知多少？
thevoice

论坛徽章:
0
9楼 [报告]
发表于 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知多少？
thevoice

论坛徽章:
0
10楼 [报告]
发表于 2007-04-25 00:16 |显示全部楼层
先get了www.cmfu.com/index.asp 取得了cookie 然后post www.cmfu.com/userlogin.asp
的时候也把先前取得的cookie加进去了 为什么还是不行啊 flw大大帮看下啊

  2. #! /user/perl/bin

  4. use warnings;
  5. use strict;

  7. use LWP::UserAgent;
  8. use HTTP::Cookies;
  9. use HTTP::Request::Common qw(POST GET);

  11. my $ua = LWP::UserAgent->new;
  12. my $cookie_jar = HTTP::Cookies->new;

  14. my $url = "www.cmfu.com/index.asp";
  15. my $lurl = 'http://www.cmfu.com/loginuser.asp';


  18. my $res = $ua->request(HTTP::Request->new(GET=>"http://www.cmfu.com/index.asp"));
  19. $cookie_jar->extract_cookies($res);

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

  27. my $req = POST ($lurl,[%form]);
  28. $cookie_jar->add_cookie_header($req);
  29. $res = $ua->request($req);
  30. $cookie_jar->extract_cookies($res);
  31. if ($res->is_success) {
  32.         print $res->content;
  33. }else{
  34.         print $res->status_line . "\n";
  35. }
复制代码

当用户名写错的时候会提示没有用户那说明 还是传进去了啊
为什么写了正确的 body断掉了啊

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

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

中间的输出全没有了 我真晕

[ 本帖最后由 thevoice 于 2007-4-25 00:18 编辑 ]
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP