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

use Encode;

open(IN1,"fix.txt");	
open(OUT1,">output.txt");	

$fields	=	"10,5,7,1,1,1,8,8,8,2,2,4";	
$fields	=~	s/,/a/g;	
$fields	=	"a".$fields;	
while	($line1	=	<IN1>)	{	
# shift_jis から utf-8(Perlの内部コード) に変換
	$line1	=	decode('cp932', $line1);
	chomp($line1);	
	@out1	=	unpack($fields,	$line1);
	$out1	=	join(",",@out1);	
# utf-8(Perlの内部コード) から shift_jis に変換
	$out1	=	encode('cp932', $out1);
	print	OUT1	"$out1\n";
}	
close(IN1);	
close(OUT1);	

