# fcsv2fix.pl
# 内容 :固定長CSVファイル（一定の箇所に「,」があるテキスト形式）を固定長ファイルに変換する
# 前提 :入力ファイルとスクリプトはshift_jisとする。
# Copyright (c) 2002-2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl fcsv2fix.pl
#
use Encode;

open(IN1,"fcsv.txt");
open(OUT1,">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);
#
	for		($i	=	0;	$i	<=	$#in1;		$i++)		{	
			$out1	=	$out1.$in1[$i];	
	}	
	print	OUT1	"$out1\n";
	$out1	=	undef;
}	
close(IN1);	
close(OUT1);
