# h2zkana3.pl
# 内容 : 半角カナを全角カナに変更する
# 前提 : 入力ファイルはeucとすること
#        スクリプトはEUCまたはshift-jis、UTF-8どれでも可
#        通常のperlで動作可能
# Copyright (c) 2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl h2zkana2.pl
#

open(IN1,"input_euc.txt");
open(OUT1,">output_euc.txt");

use Jcode;

while	($line1	=	<IN1>)	{

# CSV形式の $line1 から値を取り出して @in1 に入れる

	chomp($line1);
	$line1	=~	s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
	@in1	=	map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_}
				($line1 =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);

#3番目の項目に半角カタカナがあるものとする
	$temp	=	$in1[2];
#カタカタのみを全角文字に変換する
	$in1[2]	=	Jcode->new($temp)->h2z->utf8;
	$out1	=	join("\t",@in1);
	print	OUT1	"$out1\n";

}

close(IN1);
close(OUT1);
