基本 (2) 制御構造

条件分岐とぐるぐる回転

if: もしそうならこうしろ

# 条件分岐
if ($name eq "kubo") {    # $name が "kubo" なら
	$number_kubo++;   # $number_kubo を増加
}
else {                    # もしそうでないなら
	$number_others++; # $number_kubo を増加
}

# 倒置した書き方
print "Your BMI is too large" if $bmi >= 25.0;

foreach: 全部ひとつづつやれ

foreach $tree (@trees) { # @trees のすべての要素に
	print "$tree\n"; # 改行をつけて表示
}

while: ヨシというまで続けろ

# 1 から 10 までの和を計算
$i = 1;
$total = 0;
while ($i < 11) {
	$total += $i; # $total に $i を加える
	$i++;         # $i を増加
}
# foreach $i (1 .. 10) {...} としてもよい

# %tree_name からキーと値を全部取りだして表示
while (($key, $value) = each %tree_name) {
	print "$key : $value\n";
}