# inout.pl
# 内容 :　基本プログラム（1件入力し、1件出力するプログラム）
# Copyright (c) 2002 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl inout.pl
#
open(IN1,"input.txt");							#入力ファイルをオープンする。(1)
open(OUT1,">output.txt");						#出力ファイルをオープンする。(2)
while	($line1	=		<IN1>)		{			#1行単位で入力し、入力データが終了するまで繰り返す。(3)
		chomp($line1);							#行末の改行文字をカットする。(4)
		@in1	=		split(",",$line1,-1);	#カンマで項目を分割する。(5)
		$out1	=		join("\t",@in1);		#タブで項目をまとめる。(6)
		print	OUT1	"$out1\n";				#1行出力する。(7)
}
close(IN1);										#入力ファイルをクローズする。(8)
close(OUT1);									#出力ファイルをクローズする。(9)
