perlのif文について

perlのif文について

【環境条件】
Eclipse 4.4（ルナ）
XAMPP 1.8.3　
Perlは既にXAMPPにインストール

条件分岐のIF文

■if文の構造

if (条件式){
条件式が真の時に実行する処理1;
条件式が真の時に実行する処理2;
}

サンプルプログラム「if.pl」←Eclipse 4.4用
use strict;
use warnings;

my $seiseki;

$seiseki = 75;
print "得点 = $seiseki\n";
if ($seiseki > 60){
print "合格です\n";
print "おめでとう\n";
}

print "お疲れ様\n";

$seiseki = 47;
print "得点 = $seiseki\n";
if ($seiseki > 60){
print "合格です\n";
print "おめでとう\n";
}

print "お疲れ様\n";
【結果】
得点 = 75
合格です
おめでとう
お疲れ様
得点 = 47
お疲れ様

■関係演算子
if（条件式）の条件式で使われる演算子。
関係演算子→a == b、a != b、a > b、a >= b、a = 20){
print "ご利用頂けます\n";
}else{
print "未成年の方はご利用頂けません\n";
}

$old = 34;

if ($old >= 20){
print "ご利用頂けます\n";
}else{
print "未成年の方はご利用頂けません\n";
}
結果
未成年の方はご利用頂けません
ご利用頂けます

■複数の条件分岐(if .. elsif .. else)
if (条件式1) {
条件式1が真の時に実行する処理;
}elsif (条件式2) {
条件式1が偽で条件式2が真の時に実行する処理;
}elsif (条件式3) {
条件式1及び条件式2が偽で条件式3が真の時に実行する処理;
}else{
全ての条件式が偽の時に実行する処理;
}
サンプルプログラム「if3.pl」
use strict;
use warnings;
my $num;

$num = 12;

print "数値 = $num\n";
if ($num >= 20){
print "20以上です\n";
}elsif ($num >= 10){←注意；elsif
print "10以上20未満です\n";
}else{
print "10以下です\n";
}

結果
数値 = 12
10以上20未満です

■unless文
「unless」文は条件式が偽の場合の処理を記述するのに使われる。if文とは反対

構造
unless (条件式){
条件式が偽の時に実行する処理1;
条件式が偽の時に実行する処理2;
}
サンプルプログラム「unless.pl」
use strict;
use warnings;
my $seiseki;

$seiseki = 75;
unless ($seiseki < 60){
print "合格です\n";
print "おめでとう\n";
}

print "お疲れ様\n";

結果
合格です
おめでとう
お疲れ様

■三項演算子
書式
条件式 ? 真の時の値 : 偽の時の値;
サンプルプログラム「sankou.pl」
use strict;
use warnings;

my ($seiseki, $kekka);

$seiseki = 75;
$kekka = $seiseki > 60 ? "合格" : "不合格";
print $kekka;

結果
合格

■式修飾子(if修飾子)
サンプルプログラム「siki.pl」
use strict;
use warnings;

my $count;

$count = 5;
print "$count\n";

$count = $count - 10 if $count > 0;
print "$count\n";

$count = $count - 10 if $count > 0;
print "$count\n";

結果
5
-5
-5