perl http 请求一些奇怪的问题
发布时间:2020-12-15 23:42:28 所属栏目:大数据 来源:网络整理
导读:https://user.95516.com/uc-cdhd-web/rest/reg/sendmobilecaptcha/?mobile=17706507805msgType=01mobile=18xx722237msgType=01http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=17706507805mobile=17706xx7805--------------------------------
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 $contentn"; 可以发短信成功: [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 $contentn"; [root@master ~]# perl y2.pl $content is 这个就不行 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |