神奇的perl-第六个任务(8)

sakko51150

　　本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
　　4.获取网页
　　如何取得ip来源地区？不用重新发明轮子，我们使用外部工具。
　　在GOOGLE搜索“ip查询”，可搜索到很多提供此项服务的网站，选择http://www.ip138.com/进行ip查询，在IP地址或者域名栏内输入221.226.19.186。IP地址做为参数通过get模式传入http://www.ip138.com/ips.asp。
　　通过http://www.ip138.com/ips.asp?ip= 117.32.251.242&action=2&action=2，获得对应地区。
　　下面， 我们试着编写Perl程序来自动完成查询IP的功能，首先要解决的问题是如何获取网页。有了LWP::Simple模块的支持，我们不用直接解析HTML协议，完成 这项工作变得十分简单。
　　我们使用get子程序来获取网页，该子程序会将获取的网页做为一个标量返回，我们能轻易发现，地区字符串“陕西省西安市”这个字符串位于“本站主数据：”之后，空格之前，对于某些IP地址，无法查询接入提供商，因此地区字符串也可能位于“</li>”之前。
为保证多平台字符编码兼容性，将“本站主数据：”做为变量在正则表达式中使用，程序以ＵＴＦ８编码保存，使用decode('utf8',"本站主数据：")以ＵＴＦ８解码。
先定义解码后的标量：
$sjts =decode('utf8',"本站主数据：");
然后再通过正则模式串/$sjts(\S+?)(<\/li>|\s)/)进行匹配。


　　#perl4-12.pl
　　use strict;   
　　use warnings;   
　　use LWP::Simple; 
　　use Encode;
　　use Utf2Gbk;
　　.............
　　...........
　　$url='http://www.ip138.com/ips.asp?ip='.$ip.'&action=2&action=2';  
　　$sjts=decode('utf8',"本站主数据：");
　　$page=get($url);#获取网页
　　if (sysisutf8()){#判断当前系统用的编码，sysisutf8是Utf2Gbk模块的导出子程序
　　binmode(STDOUT, ':encoding(utf8)'); 
　　}
　　else{
　　binmode(STDOUT, ':encoding(gbk)'); 
　　}
　　print $1 if $page=~m/$sjts(.+?)(<\/li>|\s)/;