$res->header('Location')

my $login_url = 'http://www.renren.com/PLogin.do';  
   
# 这里面没有判断是否需要验证码，聪明的你学完后肯定知道怎么搞定的  
# 人人是post登陆的，第一个参数是登陆的地址，第二个参数是一个匿名hash  
my $res = $ua->post($login_url,{  
        'email'=>$email,  
        'password'=>$password,  
        'domain'=>$domain});  
my $homepage;   
# 判断响应头里面的location，确定是否登陆成功     
print "---------------\n";  
print $res->header('Location');  
print "---------------\n";  
  
if($res->header('Location') eq 'http://www.renren.com/Home.do'){  
    print 'login ok...',"\n";  
    $homepage = $ua->get('http://www.renren.com/home');   
}else{  
    exit;  
}  
[root@master test]# perl 3.pl   
---------------  
http://www.renren.com/Home.do---------------  
login ok...  


http头信息
   头信息的作用很多，最主要的有下面几个：
1、跳转
   当浏览器接受到头信息中的 Location: xxxx 后，就会自动跳转到 xxxx 指向的URL地址，这点有点类似用 js 写跳转。但是这个跳转只有浏览器

知道，不管体内容里有没有东西，用户都看不到。