perl 登录某网站

最新推荐文章于 2021-05-14 11:46:25 发布

scan724

最新推荐文章于 2021-05-14 11:46:25 发布

阅读量1k

点赞数

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/52623546

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl模块Net::SMTP、LWP::UserAgent等实现自动化登录网站的过程。首先通过GET请求获取登录页面，解析输入字段，然后POST请求提交登录信息，最后检查登录状态。

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

<pre name="code" class="html">use Net::SMTP;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use Encode;
use File::Temp qw/tempfile/;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
my $ua = LWP::UserAgent->new;
$ua->timeout(5);
my $cookie_jar = HTTP::Cookies->new(
                         file=>'ty_lwp_cookies.txt',
                         autosave=>1,
                         ignore_discard=>1
                                    );
$ua->cookie_jar($cookie_jar);
my $response = $ua->get('https://account.tingyun.com/cas/login?service=https%3A%2F%2Fsaas.tingyun.com%2Fj_acegi_cas_security_check%3FloginView%3DcasLoginTingyun'

了解本专栏