簡単便利！Perlで住所チェックの巻

必要に迫られて、住所チェックのモジュールを探したものの、なかったので、作ってしまいましたよ
「区」の扱いが厄介だった以外は簡単なのでした

なんか正規表現ですんなり出来そうだけど、まあ、動いたので、これで良しw

ソースは、こちら

use strict;
use warnings;
use utf8;
binmode STDOUT, ":encoding(sjis)";#OSにより変更

#政令指定都市
my $seirei='横浜|名古屋|京都|大阪|神戸|北九州|札幌|川崎|福岡|広島|仙台|千葉|さいたま|静岡|堺|新潟|浜松|岡山|相模原|熊本';

#サンプル
my @sample =(
'東京都千代田区千代田１皇居',
'東京都千代田区千代田1皇居',
'東京都千代田区千代田１',
'東京都千代田区千代田皇居',
'東京都千代田区１皇居',
'東京都千代田１皇居',
'千代田区千代田１皇居',
'東京都八王子市八王子２',
'東京都八王子市２',
'東京都八王子２',
'八王子市八王子２',
'大阪府大阪市北区中ノ島１',
'大阪府大阪市北区中ノ島',
'大阪府大阪市北区１',
'大阪府大阪市中ノ島１',
'大阪府北区中ノ島１',
'大阪市北区中ノ島１',
'沖縄県沖縄市泉崎１',
'沖縄県沖縄市泉崎',
'沖縄県沖縄市１',
'沖縄県泉崎１',
'沖縄市泉崎１',
);

#サンプルテスト
foreach my $tmp(@sample){
	print &chkadr($tmp)."\n";
}

#
#住所チェック
#
sub chkadr{
	#引数代入
	my $add = $_[0];
	my $flag=0;

	#区が含まれる場合
	if($add =~/区/){
		if($add !~/(.+都.+区\D+|.+市.+区\D+)/){$flag=1;}
	}
	
	#都道府県市区町村構成チェック
	if($add !~/.+(都|道|府|県).+(市|区|町|村)\D+\d+/){$flag=2;}
	
	#政令指定都市チェック
	if($add =~/.+($seirei)市/){
			if($add !~/区/){$flag=3;}
	}
	if($flag==0){
		return "○：".$add;
	}else{
		return "×：".$add;
	}
}

結果は、こちら

○：東京都千代田区千代田１皇居
○：東京都千代田区千代田1皇居
○：東京都千代田区千代田１
×：東京都千代田区千代田皇居
×：東京都千代田区１皇居
×：東京都千代田１皇居
×：千代田区千代田１皇居
○：東京都八王子市八王子２
×：東京都八王子市２
×：東京都八王子２
×：八王子市八王子２
○：大阪府大阪市北区中ノ島１
×：大阪府大阪市北区中ノ島
×：大阪府大阪市北区１
×：大阪府大阪市中ノ島１
×：大阪府北区中ノ島１
×：大阪市北区中ノ島１
○：沖縄県沖縄市泉崎１
×：沖縄県沖縄市泉崎
×：沖縄県沖縄市１
×：沖縄県泉崎１
×：沖縄市泉崎１

【出来ること】
・チェック内容は都道府県→市区町村→字→番地の順でチェック
・番地チェックあり
・政令指定都市の区チェックあり
・アパート名が付いていてもOK
・番地の半角、全角にも対応
・郡が抜けていてもOK

実家が「元」郡なので、静岡県舞阪町など郡を抜かした書き方を知っており、それにも対応できるのが実用的なのでしたｗ

簡単、かんたん