PerlのIP::CountryのモジュールでIPから国コードを取得することが可能です。 日本以外のIP(FQDN)を抽出するサンプルコード。 国が判別できて、日本ではない場合のみ、そのIP(かFQDN)を表示します。 not-jp.pl #!/usr/local/bin/perl -w use strict; use IP::Country::Fast; my $reg = IP::Country::Fast->new(); while(my $line = <STDIN>) { chomp($line); my $cn = $reg->inet_atocc( $line ); if (! defined ($cn) ) { ; } elsif ($cn eq "JP") { ; } else { print "${line}\n"; } } 使い方 cat iplist.txt | p
ご無沙汰しています。 自宅サーバの HDD が異音と共にぶっ壊れてしまい、10 分で作る Sledge アプリの動画とかのサルベージが出来ず、すっかり意気消沈の今日この頃、皆様いかがお過ごしですか。 なんか先日、「誰が攻撃しているか突き止めたい」というネタがホッテントリになってて、それに合わせてIPひろばというサイトもホッテントリになってました。 空前の逆探知ブームなのでしょうか。 変なカップヌードルの食べかたをする半袖さんが、それを追うように、DNSBLスタイルのクエリーを利用してIPアドレスから国コードを検索というネタを書いていますが、IP アドレスを元に国コードを調べるコマンドラインには、こんな方法もあります。 Geography::Countries と、IP::Country という CPAN モジュールを入れると、ip2cc というコマンドラインツールもインストールされます。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く