这篇博客展示了如何使用Perl脚本通过LWP模块进行网站登录，并检查登录状态。成功登录后，脚本进一步从指定网页抓取MP3下载链接，解析FTP地址并进行FTP下载操作。
#!/usr/bin/perl -w
use strict;
use LWP;
use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;
use LWP::UserAgent;
use LWP::Simple;
use URI::URL;
my $ua = LWP::UserAgent-> new;
$ua-> agent( "Mozilla 1.503 Windows XP ");
$ua->cookie_jar(HTTP::Cookies->new(file => "bankcookies.txt", autosave => 1));
my $url = "http://www.ebigear.com/login.html";
my $req = POST $url,[MemberName=>"thinkhy",Pwd=>"******"];
my $response = $ua-> request($req);
die "Can't get $url -- ", $response->status_line
unless $response->is_success;
die "Hey, I was expecting HTML, not ", $response->content_type
u
use strict;
use LWP;
use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;
use LWP::UserAgent;
use LWP::Simple;
use URI::URL;
my $ua = LWP::UserAgent-> new;
$ua-> agent( "Mozilla 1.503 Windows XP ");
$ua->cookie_jar(HTTP::Cookies->new(file => "bankcookies.txt", autosave => 1));
my $url = "http://www.ebigear.com/login.html";
my $req = POST $url,[MemberName=>"thinkhy",Pwd=>"******"];
my $response = $ua-> request($req);
die "Can't get $url -- ", $response->status_line
unless $response->is_success;
die "Hey, I was expecting HTML, not ", $response->content_type
u
最低0.47元/天 解锁文章
603
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
