perl http 请求一些奇怪的问题

来源：互联网发布：上饶师范学院网络教育编辑：程序博客网时间：2024/05/29 13:57

https://user.95516.com/uc-cdhd-web/rest/reg/sendmobilecaptcha/?mobile=17706507805&msgType=01mobile=18xx722237msgType=01http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=17706507805mobile=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 这个就不行

0 0