#!/usr/bin/perl
use WebService::OkiLab::ExtractPlace;
use Data::Dumper;
# must be UTF-8
my $text = '東京から名古屋駅を通過して大阪駅に着きました。';
$text .= '大阪市中央区本町に到着しました。';
my $explace = WebService::OkiLab::ExtractPlace->new;
my $result = $explace->extract($text);
print Dumper($result);

debian:~ 1007 % perl extract_place.pl
$VAR1 = {
          'result_select' => [
                               [
                                 {
                                   'lat' => '34.702499',
                                   'text' => '大阪駅',
                                   'weight' => '1',
                                   'type' => 'spot',
                                   'lng' => '135.494982'
                                 },
                                 {
                                   'lat' => '34.686394',
                                   'text' => '大阪',
                                   'weight' => '1',
                                   'type' => 'spot',
                                   'lng' => '135.519994'
                                 },
                                 {
                                   'lat' => '34.683764',
                                   'text' => '大阪市中央区本町',
                                   'weight' => '1',
                                   'type' => 'address',
                                   'lng' => '135.509592'
                                 },
                                 {
                                   'lat' => '34.682015',
                                   'text' => '本町',
                                   'weight' => '1',
                                   'type' => 'spot',
                                   'lng' => '135.499095'
                                 }
                               ]
                             ]
        };

$unzip 27000-05.1a.zip
Archive:  27000-05.1a.zip
  Length     Date   Time    Name
 --------    ----   ----    ----
    14907  04-10-07 16:07   md_27_2006.xml
 24563015  06-11-07 21:01   27_2006.csv
     3325  01-22-07 20:00   format_2006.html
 --------                   -------
 24581247                   3 files
$head -3 27_2006.csv | nkf -e
"都道府県名","市区町村名","大字・町丁目","街区符号・地番","座標系番号","Ｘ座標","Ｙ座標","緯度","経度","住居表示フラグ","代表フラグ","平成17年度履歴フラグ","平成18年度履歴フラグ"
"大阪府","茨木市","鮎川一丁目","1",6,-131247.8,-37365.6,34.816231,135.591556,1,1,0,0
"大阪府","茨木市","鮎川一丁目","2",6,-131248.3,-37346.4,34.816227,135.591766,1,1,0,0

大阪府茨木市鮎川一丁目1,0,0,-16627,大阪府茨木市鮎川一丁目1,34.816231,135.591556
大阪府茨木市鮎川一丁目2,0,0,-16627,大阪府茨木市鮎川一丁目2,34.816227,135.591766
大阪府茨木市鮎川一丁目3,0,0,-16627,大阪府茨木市鮎川一丁目3,34.816491,135.592014

#!/usr/bin/perl

use strict;
use warnings;
use utf8;
use open ':encoding(shiftjis)';
binmode STDIN, ':encoding(shiftjis)';
binmode STDOUT, ":utf8";

while (<>) {
    next if (/^\"都道府県名/);
    my(@elm) = split(',', $_);
    my $address = $elm[0] . $elm[1] . $elm[2] . $elm[3];
    $address =~ s/\"//g;
    my $cost = int(-400 * (length($address)**1.5));
    $cost = -36000 if ($cost < -36000);
    print "$address,0,0,$cost,$address," . $elm[7] . "," .  $elm[8] . "\n";
}

1 1
0 0 0

DEFAULT 1 0 0
SPACE     0 1 0
0x0020 SPACE

DEFAULT,0,0,0,*
SPACE,0,0,0,*

dictionary-charset = utf-8
cost-factor = 800
bos-feature = BOS/EOS
output-format-type=address
node-format-address = %H\n
unk-format-address =
eos-format-address  =

$ls
char.def  dicrc  make_dic_csv.pl  matrix.def  src/  unk.def
$ls src
27_2006.csv
$ ./make_dic_csv.pl src/27_2006.csv > dic.csv
$/usr/lib/mecab/mecab-dict-index -f utf-8 -c utf-8
reading ./unk.def ... 2
emitting double-array: 100% |###########################################|
reading ./dic.csv ... 279452
emitting double-array: 100% |###########################################|
reading ./matrix.def ... 1x1

done!
$echo 昨日、大阪府大阪市中央区本町二丁目5に行った | nkf -w | mecab -d . | nkf  -e
大阪府大阪市中央区本町二丁目5,34.683834,135.504052