perl 获取手机号码归属地
16lz
2021-01-23
本来想着做一个android小应用，但想着好久没用perl了，而且不用界面，就先练练手。
大家可以等等看我的android小程序。
#!/usr/bin/perl -w use strict; use LWP; my $tel = $ARGV[0]; if (!defined $tel){ print "请输入电话号码."; exit(-1); } print "您的号码是：".$tel."/n"; my $browser = LWP::UserAgent->new( ); my $response = $browser->get("http://open.baidu.com/phone/s?wd=$tel&tn=phone"); my $res = $response->content; if($res =~ /(<span>所属省份：<b>)(.*)(<//b><//span><span>所属城市：<b>)(.*)(<//b><//span><span>卡类型：<b>)(.*)(<//b><//span>)(.*)/){ print "所属省份: ".$2,"/n"; print "所属城市: ".$4."/n"; print "卡类型: ".$6."/n"; }
更多相关文章
- android:MATCH_PARENT是什么类型的布局
- android下的文件资源类型
- android输入子设备类型
- Android 设备网络信息的获取（网络类型、网络强度、网络速度、代理
- Android 手机制式和网络类型 GSM/EDGE/CDMA/WCDMA 判断sim卡类型
- Android JNI和NDK学习(06)--JNI的数据类型
- Android学习心得（5） －－－ dex数据类型LEB128
- Android 手机运营商及网络类型判断