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

來源:互聯網
上載者:User

由於業務需要,要查詢客戶的ip地址,將部分地區的客戶過濾出來,開始想到使用ip資料庫,發現讀取純真資料庫的難度對我來說有些大,而我目前的時間要求比較緊迫,通過在群裡詢問,感謝黑影子和扶凱的幫忙,推薦了IP::QQWry::Decoded這個模組,該模組是專門用來讀取qqwry純真資料庫的,用起來非常簡單。

複製代碼 代碼如下:

#!/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");    #其實關鍵代碼就這一行,哈哈
        printf "%s\t%s\t%s\n",$id,$ip,$key if $info=~/地區名/;
}

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.