# keybreak3.pl
# 内容 :　同一キーの１件目のデータを出力する（while型）
# 前提 :　キーごとに昇順に並べ替えておくこと 
# Copyright (c) 2002-2011 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl keybreak3.pl
#   

# ファイルのオープン
open(IN1,"input.txt");
open(OUT1,">output.txt");

# 初期値設定
$in1_key	=	undef;		#入力キー
@in1		=	undef;		#入力データの配列
$sv_key		=	undef;		#保存した入力キー

# 主処理
while	($line1	=	<IN1>)	{

# 入力データの配列へのセット・キー項目のセット等の初期設定
	chomp($line1);
	@in1	=	split(",",$line1,-1);
	$in1_key	=	$in1[0];

# キーブレイク時の処理
	if	($sv_key	ne	$in1_key)	{	
		$out1		=	join(",",@in1);
		print	OUT1	"$out1\n";
	}
	$sv_key	=	$in1_key;
}

# ファイルのクローズ
close(IN1);
close(OUT1);
