perl重定向问题302found

cike14

初学perl，我用perl模拟一个表单提交用户名密码，post提交后提示302found，查了下是重定向的问题，找了些资料不太明白，求教大神门，怎么去追踪重定向后的url，

yakczh_cu

1.   use 5.01;
   
2.   use Mojo::UserAgent;
   
3.   my $ua = Mojo::UserAgent->new;
   
4.   $ua->max_redirects(3);
   
5.   my $url='http://douban.fm';
   
6.   say $ua->get($url )->res->body;

复制代码

cike14

我比较菜，能否说详细点 回复 2# yakczh_cu


   

cike14

非常感谢，根据你给的模块搞定了， 回复 2# yakczh_cu