用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: $2\n";
    $url = $2;


    my($user,$password,$site,$path,$file) = ($url =~ /^ftp:\/\/(.*?):(.*?)@(.*?)(\/.*)\/(.*)$/s); 
    print "user:$user\npwd:$password\nsite:$site\npath:$path\nfile:$file\n";


    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;
}