求助：用perl下载需要用户名密码网站里的网页

luoyong55

我需要下载一个网站里的网页，但是需要用户名和密码登陆的，有一个公共用户，直接点击就可以进入了，我用perl如何去下载呢？需要调用哪些模块？求助各位大虾帮助，不胜感激.....
备注：我是要下载中国林业信息网这个网站，URL是http://www.lknet.ac.cn/page/framelimit.cbs?ResName=lysy

兰花仙子

我需要下载一个网站里的网页，但是需要用户名和密码登陆的，有一个公共用户，直接点击就可以进入了，我用pe ...
luoyong55 发表于 2011-06-03 10:33

    试试WWW::Mechanize，不行的话用Win32::IEAutomation：
http://search.cpan.org/~prashant ... n32/IEAutomation.pm

luoyong55

回复 2# 兰花仙子


    官方网站介绍用法，可是我有些地方看不懂，热心的花仙子可否指点一下，谢谢啦~
    use WWW::Mechanize;
    my $mech = WWW::Mechanize->new();

    $mech->get( $url );

    $mech->follow_link( n => 3 );
    $mech->follow_link( text_regex => qr/download this/i );    #.....这里我不懂是什么意思
    $mech->follow_link( url => 'http://host.com/index.html' );

    $mech->submit_form(
        form_number => 3,
        fields      => {
            username    => 'mungo',
            password    => 'lost-and-alone',
        }
    );

    $mech->submit_form(
        form_name => 'search',
        fields    => { query  => 'pot of gold', },    #.....这里我也不懂是什么意思
        button    => 'Search Now'       );#.....这里也不懂
    );

兰花仙子

$mech->submit_form(
        form_name => 'search',
        fields    => { query  => 'pot of gold', },    #.....这里我也不懂是什么意思
        button    => 'Search Now'       );#.....这里也不懂
    );

WWW::Mech最有用的就是这个方法，它模拟提交一个表单。
form_name是表单控件名，fields是表单域值，button应该是按钮的值。
你用dreamwaver之类生成一个表单看下其源码就知道了。

luoyong55

非常感谢花仙子...

luoyong55

回复 4# 兰花仙子


    我已经安装了HTTP：：Response，也调用了HTTP：：Response，为什么还是提示：Missing base argument at C:/Perl/lib/HTTP/Response.pm line 93

2gua

如果安全性考虑得好，没那么容易下载的。

x9x9

仙子版主为啥不推荐LZ用简单易用的LWP呢？

luoyong55

回复 8# x9x9


    LWP也可以模拟POST登陆吗？

x9x9

回复  x9x9


    LWP也可以模拟POST登陆吗？
luoyong55 发表于 2011-06-07 17:43

应该可以吧。

1. use LWP::UserAgent;
   
2. 
   
3. my $login_url='the_url';
   
4. my $user='';
   
5. my $pass='';
   
6. my $ie = LWP::UserAgent->new( );
   
7. $ie->cookie_jar( {} );
   
8. $ie->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)');
   
9. my $response = $ie->post( $login_url, [ 'username' => $user, 'password' => $pass , ] );

复制代码