# perl_layer.pl
# 内容 : shift_jis形式のデータを読み込んでutf-8で出力する 
# Copyright (c) 2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl_layer.pl
#

# 入力ファイルは文字コードを Shift_JIS と指定.
open(IN1,  "<:encoding(shift_jis)", "input_sjis.txt");
# 出力ファイルは UTF-8 とする
open(OUT1, ">:encoding(utf8)", "output.txt");

while	($line1	=	<IN1>)	{
	chomp($line1);

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

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

	$out1	=	join("\t",@in1);
	print	OUT1	"$out1\n";
}

close(IN1);
close(OUT1);
