perl 获取手机号码归属地

本来想着做一个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"; }