快捷導(dǎo)航

perl批量查詢ip歸屬地的方法代碼

更新時間：2013年04月12日 16:28:26 作者：

由于業(yè)務(wù)需要，要查詢客戶的ip地址，將部分地區(qū)的客戶過濾出來,感謝黑影子和扶凱的幫忙，推薦了IP::QQWry::Decoded這個模塊，該模塊是專門用來讀取qqwry純真數(shù)據(jù)庫的，用起來非常簡單

由于業(yè)務(wù)需要，要查詢客戶的ip地址，將部分地區(qū)的客戶過濾出來，開始想到使用ip數(shù)據(jù)庫，發(fā)現(xiàn)讀取純真數(shù)據(jù)庫的難度對我來說有些大，而我目前的時間要求比較緊迫，通過在群里詢問，感謝黑影子和扶凱的幫忙，推薦了IP::QQWry::Decoded這個模塊，該模塊是專門用來讀取qqwry純真數(shù)據(jù)庫的，用起來非常簡單。

復(fù)制代碼代碼如下:

#!/usr/bin/perl
use IP::QQWry::Decoded;
use Encode;
use utf8;
binmode(STDIN, ':encoding(utf8)');   #這三行
binmode(STDOUT, ':encoding(utf8)');  #抄別人的
binmode(STDERR, ':encoding(utf8)');  #用來輸出中文，和拿中文查找
my $qqwry=IP::QQWry::Decoded->new('qqwry.dat','gbk');
open UNUSE,'iplist.txt';
while (<UNUSE>){
        ($id,$ip,$key)=/(\d+)\s+(.*?)\s+(.*)/;
        my $info=$qqwry->query("$ip");    #其實關(guān)鍵代碼就這一行，哈哈
        printf "%s\t%s\t%s\n",$id,$ip,$key if $info=~/地區(qū)名/;
}

您可能感興趣的文章:

相關(guān)文章

Perl使用chdir的實例代碼
Perl使用chdir的例子，供朋友們參考學(xué)習(xí)
2013-02-02
一個perl擴展正則表達式代碼分析
今天傍晚，莫言在Q群里貼了一個他寫的正則表達式，回來翻了翻perlre文檔，基本算是看懂，趕緊記錄下來
2013-02-02
使用perl清理電腦上重復(fù)文件實現(xiàn)代碼(續(xù))
使有perl搜索電腦上的重復(fù)文件并刪除，需要的朋友可以參考下
2013-02-02
讓apache2以cgi方式運行perl cgi程序的實現(xiàn)方法
讓apache2以cgi方式運行perl cgi程序的方法，供大家學(xué)習(xí)參考
2013-02-02
7個perl數(shù)組高級操作技巧分享
這篇文章主要介紹了7個perl數(shù)組高級操作技巧,本文講解了數(shù)組去重、數(shù)組合并、查找最大值、列表歸并等內(nèi)容,需要的朋友可以參考下
2014-11-11
Perl刪除前導(dǎo)和拖尾空白（刪除左右空格、空白字符）
這篇文章主要介紹了Perl刪除前導(dǎo)和拖尾空白（刪除左右空格、空白字符）,本文給出了多個方法實現(xiàn)解決這個需求,需要的朋友可以參考下
2015-06-06
perl 調(diào)試命令的相關(guān)知識小結(jié)
有關(guān) perl 調(diào)試命令的相關(guān)知識，有需要的朋友可以參考下
2013-02-02
Perl中的符號 ->;、=>; 和 :: 分別表示什么意思？
這篇文章主要介紹了Perl中的符號 ->;、=>; 和 :: 分別表示什么意思,需要的朋友可以參考下
2017-10-10
Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解
這篇文章主要介紹了Perl 和 StrawberryPerl 與 ActivePerl 的區(qū)別詳解,本文給大家介紹的非常詳細，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值，需要的朋友可以參考下
2020-12-12
Perl中chomp和chop的區(qū)別介紹
chomp是用來刪除換行符,chop是用來刪除最后一個字符
2013-02-02