open (IN, 'kouji_2000_admatch.csv') or die "$!";
open (OUT, '>kouji_2000_update.csv') or die "$!";


# 公示地価ファイルの緯度、経度が正しく記述されている行のみ出力

while (<IN>) {

	# 各行をカンマ区切りで分割
	@data = split(/,/, $_);

	# 緯度、経度がともに0でないか確認
	print "$data[8], $data[9]\n";
	if ($data[8] != 0 && $data[9] != 0) {

		# 各行をカンマ区切りで連結させてファイルへ出力
		print OUT join (',', @data);
	}
}
close (IN);
close (OUT);