Perlモジュール IP::Country::Firstを使って国を調べる

Perlモジュール IP::Countryでホスト名やIPアドレスからカントリーコードを取得してみます。

サンプルコード

#!/usr/local/bin/perl -w
use strict;
use IP::Country::Fast;
my $reg = IP::Country::Fast->new();
print $reg->inet_atocc('212.67.197.128')   ."\n";
print $reg->inet_atocc('www.slashdot.org') ."\n";
print $reg->inet_atocc('slashdot.jp') ."\n";
print $reg->inet_atocc('www.yahoo.com') ."\n";
print $reg->inet_atocc('www.yahoo.cn') ."\n";
print $reg->inet_atocc('www.yahoo.co.jp') ."\n";
print $reg->db_time() ."\n"; # revision date

実行例

%perl ip-country.pl
GB
US
JP
US
CN
JP
1170400690

ホスト名から引いても、IPアドレスから引いても、0.011秒ぐらいで結果が得られました。

Perl関連記事
[2008-08-25-1] Perlモジュール IP::Countryのデータベース
[2008-08-24-1] FreeBSD Perlモジュール IP::Countryをインストールする
[2008-07-07-2] Perl 名前付きパイプ FIFOを作る方法
[2008-07-07-1] perl signal SIGCHLDを受け取る
[2008-07-06-2] perl シグナルでプロセスを中断と再開する方法
[2008-07-03-2] perl プログラム名を取得する方法
[2008-07-03-1] perlでファイルを排他ロックをする
[2008-05-20-2] Perl Benchmarkモジュールで複数のサブルーチンをベンチマークする
[2008-05-20-1] Perl ベンチマーク Benchmarkモジュールの使い方
[2008-05-15-2] perl DBI 最後に挿入したIDを取得する方法 last_insert_id

参照しているページ (サイト内): [2009-04-27-1] [2008-08-25-1] [2008-08-24-1]

いつもシェア、ありがとうございます！

もっと情報を探しませんか？

過去ログ

2020 : 01 02 03 04 05 06 07 08 09 10 11 12
2019 : 01 02 03 04 05 06 07 08 09 10 11 12
2018 : 01 02 03 04 05 06 07 08 09 10 11 12
2017 : 01 02 03 04 05 06 07 08 09 10 11 12
2016 : 01 02 03 04 05 06 07 08 09 10 11 12
2015 : 01 02 03 04 05 06 07 08 09 10 11 12
2014 : 01 02 03 04 05 06 07 08 09 10 11 12
2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12