#!/usr/local/bin/perl # $Id$ # Copyright (c) 2006 Jiro Nishiguchi # All rights reserved. use strict; use warnings; use utf8; use open ':encoding(utf-8)'; use CGI qw(:standard); use Encode; use Template; use Text::Migemo; binmode STDOUT, ':encoding(utf-8)'; my @prefs = qw( 北海道青森県岩手県宮城県秋田県山形県福島県茨城県栃木県群馬県埼玉県千葉県東京都神奈川県新潟県富山県石川県福井県山梨県長野県岐阜県静岡県愛知県三重県滋賀県京都府大阪府兵庫県奈良県和歌山県鳥取県島根県岡山県広島県山口県徳島県香川県愛媛県高知県福岡県佐賀県長崎県熊本県大分県宮崎県鹿児島県沖縄県 ); my $q = CGI->new; if ($q->param('src')) { show_myself(); } if ($q->request_method eq 'GET') { my $tt = Template->new; $tt->process(\*DATA, { q => $q, prefs => \@prefs }, \my $output); print $q->header(-charset => 'utf-8'); print $output; exit; } my $migemo = Text::Migemo->new("/usr/local/share/migemo/euc-jp/migemo-dict"); my $query = $q->param('q'); my @list; if ($query) { my $result = $migemo->query(quotemeta $query); $result = decode('euc-jp', $result); my $re = qr/^$result/; for my $pref (@prefs) { push @list, $pref if $pref =~ $re; } } else { @list = @prefs; } print $q->header(-charset => 'utf-8'); print ul(map { li($_) } @list); sub show_myself { print $q->header('text/plain; charset=utf-8'); open 0 and print <0>; exit; } __END__ Text::Migemo Demo

Text::Migemo Demo

[% pref %]