用Perl实现网站自动登录

#!/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 ?? unless $response->content_type eq 'text/html'; my ? $loginReq = $response-> content;? if ($loginReq =~ m/成功/sg) { ?? ?print "登录成功n"; } else { ?? ?print "登录失败n"; } #print ?$response->head; # Header my @ns_headers = ( ??); $response ?= $ua->get('http://www.ebigear.com/resdown-1393-7777700044624.html',@ns_headers); my $content = $response->content; if ($content =~ m/因您未登录/sg) { ?? ?print "哎，不能获取到mp3地址n"; } else { ?? ?print "成功获取到mp3地址n"; } if ($content =~ m/(<div class="downloadurl">).*?"(ftp://.*?)"/sg) { ?? ?print "get it: $2n"; ?? ?$url = $2; ?? ?my($user,$password,$site,$path,$file) = ($url =~ /^ftp://(.*?):(.*?)@(.*?)(/.*)/(.*)$/s);? ?? ?print "user:$usernpwd:$passwordnsite:$sitenpath:$pathnfile:$filen"; ?? ?if ($ua->is_protocol_supported('ftp')) ?? ?{ ?? ? ? ?print "支持n"; ?? ? ? ?$response ?= $ua->get($url,@ns_headers); ?? ? ? ?print "$url"; ?? ? ? ?getstore $url,"1.mp3"; ?? ?} # ? ?my $ftp; #$ftp = Net::FTP->new("$site",Debug => 0) # ? ? ?or die "Cannot connect to $site: $@"; # ? ?$ftp->login("$user","$password") # ? ? ?or die "Cannot login ",$ftp->message; # ? ?$ftp->cwd("$path") # ? ? ? ? ?or die "Cannot change working directory ",$ftp->message; # ? ?$ftp->get($file) #$ftp->get("ftp://18_zhi:www.daerduo.cn@playjd.teacherhome.cn:181/c77e/SID-H777/SID77777/RID-TT5/RID-H47/7777700044624tqyp.MP3") # ? ? ?or die "get file failed ",$ftp->message; # ? ?$ftp->quit; }