if / elsif / else / unless ― 条件で分ける

導入

「もし〜なら」で処理を分けるのが if です。3つ以上に分けたいときは elsif を重ねます。Perl には「〜でなければ」の unless もあります。

説明

条件は ( ) で囲み、処理は { } でまとめます。Perl では波かっこ { } の省略はできません（1文でも必要）。elsif の綴りに注意（else if ではありません）。

use strict;
use warnings;

my $score = 75;

if ($score >= 90) {
    print "優\n";
} elsif ($score >= 70) {
    print "良\n";
} elsif ($score >= 60) {
    print "可\n";
} else {
    print "不可\n";
}

unless (条件) は if (!条件) と同じで、「条件が偽のとき」に実行されます。否定の ! を使うより読みやすくなることがあります。

use strict;
use warnings;

my $logged_in = 0;
unless ($logged_in) {
    print "ログインしてください\n";
}

やってみよう

$score の値を変えて、実行される枝が切り替わることを確かめましょう。

演習

my $n = 10; について、if で $n % 2 == 0 なら 偶数、そうでなければ 奇数 と表示してください（結果は 偶数）。