您的位置:首页 > 理论基础 > 计算机网络

perl http 请求一些奇怪的问题

2015-07-16 20:38 375 查看
https://user.95516.com/uc-cdhd-web/rest/reg/sendmobilecaptcha/?mobile=17706507805&msgType=01

mobile=18xx722237
msgType=01
 http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=17706507805 
mobile=17706xx7805

------------------------------------------------------------------------------------------
use Encode;
use Encode::CN;
use URI::Escape;
use LWP::Simple;
#$host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";
#$host = "https://user.95516.com/uc-cdhd-web/rest/reg/sendmobilecaptcha/?mobile=177xx805&msgType=01";
$host = "http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=17xx07805";
$content = get($host);
print "\$content is $content\n";

可以发短信成功:

[root@master ~]# cat y2.pl
use Encode;
use Encode::CN;
use URI::Escape;
use LWP::Simple;
#$host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";
$host = "https://user.95516.com/uc-cdhd-web/rest/reg/sendmobilecaptcha/?mobile=180xx22237&msgType=01";
#$host = "http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=17xx6507805";
$content = get($host);
print "\$content is $content\n";
[root@master ~]# perl y2.pl
$content is

这个就不行
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: