一个超级难的问题,perl请求不到要请求的页面,高手请进
一个网站通常会有一个主页,假设是www.mmic.com.
然后这个网站下的某个链接地址为www.mmic.com/sf/domain/too.php.假如你把这个地址用邮件发送给某人,当在邮件里第一次点击这个链接时。那么会有一个windows的弹出框要求你输入用户名和密码,输入之后,页面会自动跳转到主页,也就是www.mmic.com。不要关掉浏览器,再到邮件里点一次这个链接,这次就不会再要求你输入用户名和密码,会直接到这个页面。
现在我想用perl来请求这个页面,代码如下
uaSF = LWP::UserAgent-> new;
$uaSF-> cookie_jar(HTTP::Cookies-> new(file => "lycookiesSF.txt ", autosave => 1, ignore_discard => 1));
$uaSF-> credentials( "mmic.com:443 ", "EOOE ", 'username ', 'password ') ;
my $req = GET "https://www.mmic.com/sf/domain/too.php ";
$res = $uaSF-> request($req);
$req = GET "https://www.mmic.com/sf/domain/too.php ";
$res = $uaSF-> request($req);
我第一次请求的时候,毫无疑问会跳转到www.mmic.com去,于是我再请求一次,可是我还是只能得到www.mmic.com这个页面,按道理这个时候应该直接得到我要的页面才对啊。
那位高手知道这是为什么,应该怎么修改啊,多谢了
[解决办法]
呵呵,use Crypt::SSLeay;
[解决办法]
貌似HTTP Basic authentication + https ?
看rfc 2617
基本就是把http请求的头部
设为
Authorization: Basic <base64 encoding of user+ ": "+passwd>