Code: [show] | [select all]
use LWP::UserAgent;
use Encode;
use utf8;
our $main="http://www.code-by.org";
our $ua = LWP::UserAgent->new;
$ua->cookie_jar( {} );
my $res = $ua->post(
"$main/ucp.php?mode=login",
[
username => '账号',
password => '密码',
autologin => 'on',
redirect => 'index.php',
login => '%E7%99%BB%E5%BD%95',
],
);
#判断是否登陆成功
my $word = encode('utf8', "注册");
if ($res->content =~ /$word/)
{
print "Failed\n";
}
else
{
print "Success\n";
}