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

muugua

　　本神奇的Perl系列为刘兴(http://deepfuture.iteye.com/)原创，未经笔者授权，任何人和机构不能转载
　　4.3  IP地址匹配
　　IP地址使用32位二进制地址格式，通常可用以点号划分的４个十进制数来表示，如：192.168.1.1。可用正则模式串如下描述ＩＰ地址：
　　((\d){1,3}\.(\d){1,3}\.(\d){1,3}\.(\d){1,3})
　　例如：
　　#perl4-20.pl
　　$line='2010/8/6 9:10123.123.223.156';
　　$ipm='((\d){1,3}\.(\d){1,3}\.(\d){1,3}\.(\d){1,3})';
　　print $1  if $line=~m/$ipm/;＃将匹配到的123.123.223.156输出。
　　4.4完成任务
　　首先，我们尝试读取iplog.txt中的所有ＩＰ地址，并输出其对应的地区。
　　1、获得来源
　　$url='http://www.ip138.com/ips.asp?ip='.$ip.'&action=2&action=2';  
　　$sjts=decode('utf8',"本站主数据：");
　　$page=get($url);
　　if (sysisutf8()){#判断当前系统的编码环境，使用笔者的在前面定义的Utf2Gbk模块
　　binmode(STDOUT, ':encoding(utf8)'); 
　　}
　　else{
　　binmode(STDOUT, ':encoding(gbk)'); 
　　}
　　return  $1 if $page=~m/$sjts(.+?)(<\/li>|\s)/i;
　　my $nofind="未知地区";
　　return  $nofind;
　　2、输出地区
　　open MYIP,"<$fn";
　　foreach $line(<MYIP>){
　　print getiparea($1)."\n"  if $line=~m/$ipm/;#getiparea为获得来源的子程序，见１
　　}
　　close MYIP;
　　运行程序后，将日志文件名iplog.txt做为命令行参数。
　　perl perl4-13.pl iplog.txt
　　ＩＰ来源地区被依次查询并输出：
　　四川省成都市
　　河南省郑州市
　　陕西省西安市
　　广东省广州市
　　江苏省苏州市
　　台湾省
　　。。。。。
　　。。。。