Apacheログとかで国特定したいときに使う/root/bin/ip2geo.pl。 GeoIPを調べるgeoiplookupコマンド（CentOS 6だったらEPELから入る）があることが前提。 パイプして使おう。

ip2geo.pl

#!/usr/bin/perl

# CentOS 6: yum --enablerepo=epel install geoip
# GeoIPのデータベース更新は自分で設置すること！

use strict;
use warnings;

my $dic = {
};

while(<>) {
  s/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/getcountrybyaddress($1)/eg;
  print;
}

exit;

sub getcountrybyaddress {
  my $ip = shift;
  if ( exists $dic->{$ip} ) {
    return $dic->{$ip};
  }
  my $res = _getcountrybyaddress( $ip );
  $dic->{$ip} = $res;
  return $res;
}

sub _getcountrybyaddress {
  my $ip = shift;
  my $country = `geoiplookup $ip`;
  if ( $country =~ m/GeoIP.+: (..),.+$/sgo ) {
    $country = $1;
  } else {
    $country = "??";
  }
  my $ip2 = sprintf "%3d.%3d.%3d.%3d", split('\.', $ip);
  my $res = "[$country:$ip2]";
  return $res;
}

__END__