# to1record.pl
# 内容 :　複数のレコードを１レコードにまとめて出力する。
# Copyright (c) 2004-2010 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)  
# 使用方法 : c:\>perl to1record.pl
#
open(IN1,"input.txt");
open(OUT1,">output.txt");
while	($line1	=		<IN1>)				{
		chop($line1);
		if		($line1	eq	"START")	{
				@out1	=		undef;
		}
		elsif	($line1	eq	"END")		{
				print	OUT1	join(",",@out1),"\n";
		}
		else							{
				push(@out1,$line1);
		}
}
close(IN1);
close(OUT1);
