接下来该怎么办？

thevoice

把论坛上的那本 Perl语言入门(第四版).pdf 大概的过了一遍 在此感谢大大狗，
正则看的不是很明白，后面的进程管理那些 高级perl技术 perl模块等等 没太看
只能说是 懂了些基本的语法了  能做些课后习题了

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

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

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

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

thevoice

中间还有个登陆的问题 登陆以后才能查看自己的书架。 这个我也不清楚怎么处理

thevoice

大家难道就是看完了一本书以后 就一下子精通了PERL 中间没个过程的吗？

suyogi

动手是最好的学习方法,有想法了就赶紧开始做嘛!

thevoice

动手确实上最好的办法
可问题是我都不知道该怎么动手啊 比如说我可能会用到哪些模块 分别有什么作用
一点都不知道 我就知道有个LWP模块 可以帮住我get 某个页面的 html代码
可 怎么实现登陆  是一点方向也没有

flw

原帖由 thevoice 于 2007-4-23 15:45 发表

可 怎么实现登陆  是一点方向也没有

google

路小佳

同上， 源码很多很多。

thevoice

1. 
   
2. function loginsubmit(frm)
   
3. 
   
4.             {
   
5. 
   
6.                         if (frm.ekey.value=='无则不填')
   
7. 
   
8.                         {
   
9. 
   
10.                                 frm.ekey.value='';
    
11. 
    
12.                         }
    
13. 
    
14.                         if (frm.sendpost)
    
15. 
    
16.                         {
    
17. 
    
18.                               frm.sendpost.disabled = true;
    
19. 
    
20.                         }
    
21. 
    
22. 
    
23. 
    
24.                       frm.method = "post";
    
25. 
    
26.                       frm.action = (window.location.hostname.indexOf("big5.cmfu.com")<0) ? "/loginuser.asp" : "/www.cmfu.com/loginuser.asp";
    
27. 
    
28.                       frm.submit();
    
29. 
    
30.             }
    

复制代码

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

1. 
   
2. use LWP::UserAgent;
   
3. use HTTP::Request::Common qw(POST);
   
4. 
   
5. my %ua_option = (
   
6.     agent => "Mozilla/5.0",
   
7.     timeout => 180,
   
8. );
   
9. 
   
10. my $ua = LWP::UserAgent->new(%ua_option);
    
11. 
    
12. my $url = 'http://www.cmfu.com/loginuser.asp'; # or 'https://...';
    
13. 
    
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]);
    
20. 
    
21. my $res = $ua->request($req);
    
22. 
    
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";
    
28. 
    
29. print $res->content;
    
30. } else {
    
31. print $res->status_line . "\n";
    
32. }
    

复制代码

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

1. 
   
2.         <tr>       
   
3. 
   
4.                         <td align="right">用户名&nbsp;<input type="text" name="user_name" size=8 maxlength=20 onFocus="this.select()" class=think>&nbsp;</td>
   
5. 
   
6.                         <td align="right">密码&nbsp;<input type="password" name="pass_word" size=8 maxlength=16 onFocus="this.select()" class=think>&nbsp;</td>                       
   
7. 
   
8.                         <td id='etd' align="right">密宝密码&nbsp;<input type="text" name="ekey" size=8 maxlength=8 onFocus="this.select()" class=think value="无则不填">&nbsp;</td>
   
9. 
   
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>
    
11. 
    
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>
    
13. 
    
14.         </tr>
    

复制代码

我是不是少post了哪个字段？

路小佳

这种事情， 用个sinffer看起来简单些。
ethereal不错， Firefox的话， 推荐httpheader插件。

thevoice

原来有用过个软件 可以显示IE的 交互信息的  但不记得叫什么名字了 不知道你知道吗
sinffer不会用 不过听说是个大家伙 为什么了查看这个就用到sinffer？