# fix2csv_2.pl
# 内容 :　固定長ファイルをCSVファイルに変換する
# 前提 :入力ファイルとスクリプトはshift_jisとする。
#      :(入力ファイルに漢字などの全角文字を含まない場合)
# Copyright (c) 2002-2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)  
# 使用方法 : c:\>perl fix2csv_2.pl
#
open(IN1,"fix.txt");	
open(OUT1,">output.txt");	

$fields	=	"10,10,7,1,1,1,8,8,8,2,2,4";	
$fields	=~	s/,/a/g;	
$fields	=	"a".$fields;	
while	($line1	=	<IN1>)	{	
	chomp($line1);	
	@out1	=	unpack($fields,	$line1);
	print	OUT1	join(",",@out1),"\n";
}	
close(IN1);	
close(OUT1);	
