# ken1.pl
# 内容 :　郵便番号データを県別に分割するスクリプト
# 前提 :　入力ファイルをキーの昇順に並べ替えておくこと 
# Copyright (c) 2002 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)          
# 使用方法 : c:\>perl ken1.pl
#
open(IN1,"ken_all.csv");	
open(IN2,"ken.txt");	
while	($line1	=	<IN2>)	{	
	chomp($line1);		
	@in2	=	split(",",$line1,-1);	
	$w_out	=	OUT.$in2[0];	
	$w_file	=	">".$in2[1];	
	open($w_out,"$w_file");	
}	
while	($line1	=	<IN1>)	{	
	chomp($line1);		
# CSV形式の $line1 から値を取り出して @in1 に入れる 
	my	$temp	=	$line1;	
	$temp	=~	s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;	
	@in1	=	map	{/^"(.*)"$/	?	scalar($_	=	$1,	s/""/"/g,	$_)	:	$_}	
				($temp	=~	/("[^"]*(?:""[^"]*)*"|[^,]*),/g);		
	$w_ken		=	substr($in1[0],0,2);	
	$w_out		=	"OUT".$w_ken;	
	print	$w_out	"$line1\n";	
}	
close(IN1);	
while	($line1	=	<IN2>)	{	
	chomp($line1);		
	@in2	=	split(",",$line1,-1);	
	$w_out	=	OUT.$in2[0];	
	close($w_out);	
}	
close(IN2);
