使用LWP和Perl登录网站

Question

有点没经验的程序员在这里尝试编写程序登录我的课程网站并下载所有内容(讲座家庭作业等).显然它是一个受密码保护的网站,所以我必须给它.我理解LWP :: UserAgent和类似的东西,我需要使用凭据.我无法弄清楚的是如何进入下一页.我可以进入登录,但perl如何获得登录结果？

代码示例(我明显地提取了日志信息):

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $url = 'login URL';
$ua -> credentials(
  $url,
  '',
  'user',
  'pass'
);
my $response = $ua ->get($url);
print $response->content; 

来自响应的内容与我所获得的内容相同,就像我没有通过任何凭据一样.显然我在这里遗漏了一些东西....

哦,据我所知,我自己的课程网站没有一个独特的网址.

Answer 1

您可能希望使用WWW :: Mechanize,LWP :: UserAgent的子类,其设计更像浏览器,允许您浏览已经为您处理的cookie存储的网站页面.