その他│KURIKAESI

繰返し

繰返しには　while　until　for　foreach　があり、ここでは　foreach　を掲載（whileはほぼ同じ）

例えば下のような10行のデーターがあり、data.log というファイルに保存されていたとする　D列はお米の予約数量とする

このデーターを一行づつ書き出す方法は、

	open(IN,"data.log");
	@lines = <IN>;
	close(IN);

	foreach (@lines) {
		($no,$name,$add,$kome) = split(/,/);

		print "$no,$name,$add,$kome<br>\n";

	}

ファイル名を、date.log　としているが、これを　date.csv　としても正常に動く

お米の合計を出す方法は、

	open(IN,"data.log");
	@lines = <IN>;
	close(IN);

	$gokei = 0

	foreach (@lines) {
		($no,$name,$add,$kome) = split(/,/);

		$gokei = $gokei + $kome
	}
	print "お米の合計は$gokeikgです\n";

---- End ----

↑PageTop　その他にもどる