perl之查询电话号码区域信息
<br />利用perl脚本查询手机号码的地区信息:<br /> <br />use LWP;<br />use HTML::TreeBuilder;<br />my $phone = $ARGV[0];<br />if(!defined($phone))<br />{<br /> print "号码不能为空,请输入电话号码.";<br /> exit(-1);<br />}<br />my $geo,$type,$zone,$code;<br />my $found_geo = 0,$found_type
原创
2011-03-21 18:48:00 ·
680 阅读 ·
0 评论