【perl】使用LWP获取带cookie验证的HTTPS网页

最新推荐文章于 2022-09-19 14:42:50 发布

ace_fei

最新推荐文章于 2022-09-19 14:42:50 发布

阅读量6k

点赞数 1

分类专栏： PERL 文章标签： perl browser redirect login authorization

本文链接：https://blog.csdn.net/ace_fei/article/details/7264602

版权

最近想到公司网站下一些文档，结果网站上做了下载总大小限制，没办法只好写个脚本来获取。运行环境1：Windows XP StrawberryPerl 5.10 （WIKI:http://win32.perl.org/wiki/index.php?title=Strawberry_Perl）运行环境2：Linux perl 5.8.8

摘要由CSDN通过智能技术生成

最近想到公司网站下一些文档，结果网站上做了下载总大小限制，没办法只好写个脚本来获取。

运行环境1：Windows XP StrawberryPerl 5.20 （WIKI:http://win32.perl.org/wiki/index.php?title=Strawberry_Perl）

运行环境2：Linux perl 5.8.8

抓包工具：

HttpWatch Professional v6.0.14 IE插件

Firefox上的Firebug和Live HTTP Headers插件，Chrome Web上的Developer Tools，我都试过，还是觉得httpwatch抓包的结果最满意。

我之前登录网页，都是直接将要访问的连接贴到浏览器，然后浏览器会弹出对话框，要求输入帐号密码。

这里，我需要抓一下包，之前我一直使用Firebug抓包，结果抓的都是GET消息，最后获取到状态为200的页面，以下就是网页内容

<HTML>
<!-- File: llgettz.html -->
<SCRIPT Language="Javascript1.2">
function getTime()
{
var		llglogin_CurrentClientTime = new Date()
var		llglogin_year = ( llglogin_CurrentClientTime.getFullYear == null ) ? llglogin_CurrentClientTime.getYear() : llglogin_CurrentClientTime.getFullYear()
var		llglogin_month = llglogin_CurrentClientTime.getMonth() + 1
var		llglogin_date = llglogin_CurrentClientTime.getDate()
var		llglogin_hour = llglogin_CurrentClientTime.getHours()
var		llglogin_minute = llglogin_CurrentClientTime.getMinutes()
var		llglogin_second = llglogin_CurrentClientTime.getSeconds()
document.LoginForm.CurrentClientTime.value  = 'D/' + llglogin_year + '/' + llglogin_month + '/' + llglogin_date
document.LoginForm.CurrentClientTime.value += ':' + llglogin_hour + ':' + llglogin_minute + ':' + llglogin_second
document.LoginForm.submit()
}
</SCRIPT>
<BODY BGCOLOR="#FFFFFF" BACKGROUND="/img/pattern.gif" onLoad="getTime()">
<FORM NAME="LoginForm" METHOD="POST" ACTION="/livelink/livelink.exe">
<INPUT TYPE="HIDDEN" NAME="func" VALUE="ll.login">
<INPUT TYPE="HIDDEN" NAME

最低0.47元/天解锁文章

ace_fei

关注

1
点赞
踩
3

收藏

觉得还不错? 一键收藏
5
评论
【perl】使用LWP获取带cookie验证的HTTPS网页

最近想到公司网站下一些文档，结果网站上做了下载总大小限制，没办法只好写个脚本来获取。运行环境1：Windows XP StrawberryPerl 5.10 （WIKI:http://win32.perl.org/wiki/index.php?title=Strawberry_Perl）运行环境2：Linux perl 5.8.8
复制链接

扫一扫

专栏目录