はい、承知いたしました。Perlのif文、elsif、elseの書式と使い方について、約5000語の詳細な解説記事を作成します。記事の本文を直接出力します。

Perlの条件分岐: `if`, `elsif`, `else` の詳細解説と実践

プログラムは、与えられた条件に基づいて異なる処理を実行する能力が不可欠です。これにより、状況に応じた柔軟な振る舞いが可能になります。Perlにおいて、この条件に基づく処理の分岐を行うための最も基本的な構文が、if文とその仲間であるelsif、elseです。

本記事では、Perlにおけるif, elsif, elseの基本的な書式から、Perl特有の真偽値の考え方、様々な条件式の書き方、関連する応用的な構文、そして効果的に条件分岐を記述するためのベストプラクティスに至るまで、詳細かつ網羅的に解説します。約5000語にわたるこの解説を通して、Perlでの条件分岐を自在に操るための知識とスキルを習得できることを目指します。

1. 条件分岐とは何か？なぜ必要なのか？

プログラムは通常、記述された順序通りに処理を実行します。しかし、現実世界の多くの問題は、「もし〜ならばAの処理、そうでなければBの処理」のように、条件によって実行する処理を変える必要があります。例えば：

ユーザーが入力した値が正の数なら、計算を行う。負の数なら、エラーメッセージを表示する。
ファイルが存在するなら、そのファイルを読み込む。存在しないなら、新規作成する。
在庫がゼロより大きいなら、商品を販売する。在庫がゼロなら、売り切れと表示する。

これらの「もし〜ならば」をプログラムで表現するのが「条件分岐」です。Perlでは、主にif文ファミリーがこの役割を担います。条件分岐を使いこなすことは、複雑なロジックを持つプログラムを構築する上で非常に重要です。

2. `if`文の基本

まずは最も基本的なif文から見ていきましょう。if文は、「もし指定された条件が真（true）ならば、特定のコードブロックを実行する」という構造を持っています。

2.1. `if`文の書式

基本的なif文の書式は以下の通りです。

perl if (条件式) { # 条件式が真（true）の場合に実行されるコードブロック # ここに一つ以上の文を記述します。 }

if: if文を開始するためのキーワードです。
(条件式): 評価されるべき条件を記述します。この条件式の結果が真か偽かによって、それに続くコードブロックを実行するかどうかが決まります。条件式は必ず括弧 () で囲みます。
{ ... }: 条件式が真と評価された場合に実行されるコードのまとまり（ブロック）です。波括弧 {} で囲みます。コードブロック内には、任意のPerl文を複数記述できます。

2.2. `if`文の動作

ifキーワードの後ろの (条件式) が評価されます。
条件式の評価結果が「真（true）」である場合、その直後の {} で囲まれたコードブロック内の文が上から順に実行されます。
条件式の評価結果が「偽（false）」である場合、その直後の {} で囲まれたコードブロックは完全にスキップされ、if文の直後にある文から実行が再開されます。

2.3. Perlにおける真偽値 (Truthiness and Falsiness)

if文の (条件式) には、真（true）または偽（false）と評価されうるあらゆる式や値を記述できます。Perlでは、他の多くのプログラミング言語とは少し異なる独自の真偽値の規則を持っています。この規則を理解することは、Perlで正しく条件分岐を記述するために非常に重要です。

Perlにおける「偽（false）」と見なされる値は以下の通りです。これら以外の値は、すべて「真（true）」と見なされます。

数値の 0
文字列の "" （空文字列）
文字列の "0"
未定義値 undef
要素を持たないリスト ()
要素を持たないハッシュ {} (コンテキストによってリストと見なされる場合)

偽と見なされる値の例:

“`perl
my $num_zero = 0;
my $str_empty = “”;
my $str_zero = “0”;
my $undef_var; # 未定義値

if ($num_zero) { print “0 は真と見なされる\n”; } else { print “0 は偽と見なされる\n”; } # 出力: 0 は偽と見なされる
if ($str_empty) { print “空文字列は真と見なされる\n”; } else { print “空文字列は偽と見なされる\n”; } # 出力: 空文字列は偽と見なされる
if ($str_zero) { print “\”0\” は真と見なされる\n”; } else { print “\”0\” は偽と見なされる\n”; } # 出力: “0” は偽と見なされる
if ($undef_var) { print “undef は真と見なされる\n”; } else { print “undef は偽と見なされる\n”; } # 出力: undef は偽と見なされる
if (@an_empty_array) { print “空の配列は真と見なされる\n”; } else { print “空の配列は偽と見なされる\n\n”; } # 出力: 空の配列は偽と見なされる

注意: 配列やハッシュをifの条件に使う場合、

スカラコンテキストでは要素数として評価されます。

@an_empty_array はスカラコンテキストでは 0 となるため偽。

@an_array_with_elements = (1, 2); if (@an_array_with_elements) は 2 となり真。

“`

真と見なされる値の例:

数値の 0、文字列の ""、文字列の "0"、undef、空リスト、空ハッシュ以外のすべての値は真です。これには、正や負の数（1, -1, 3.14 など）、空ではないすべての文字列（" " <スペース>、"false", "true", "hello", "00" など）、要素を持つリストやハッシュなどが含まれます。

“`perl
my $num_one = 1;
my $num_minus_one = -1;
my $num_float = 0.0001;
my $str_space = ” “;
my $str_false = “false”;
my $str_zero_zero = “00”;
my @an_array_with_elements = (1, 2);
my %a_hash_with_elements = (a => 1);

if ($num_one) { print “1 は真\n”; }
if ($num_minus_one) { print “-1 は真\n”; }
if ($num_float) { print “0.0001 は真\n”; }
if ($str_space) { print “\” \” は真\n”; }
if ($str_false) { print “\”false\” は真\n”; } # 文字列 “false” は文字列 “0” ではないので真！
if ($str_zero_zero) { print “\”00\” は真\n”; } # 文字列 “00” は文字列 “0” ではないので真！
if (@an_array_with_elements) { print “要素を持つ配列は真 (要素数: ” . scalar(@an_array_with_elements) . “)\n”; }
if (%a_hash_with_elements) { print “要素を持つハッシュは真\n”; } # スカラコンテキストではハッシュのハッシュバケット数を返す (通常は非ゼロ)
“`

特に文字列 "0" が偽と見なされる点は、他の多くの言語と異なるため注意が必要です。また、文字列 "false" は偽ではなく真と見なされます。Perlの真偽値は、あくまで値そのものの形式に基づき、論理的な意味合い（”true”や”false”といった単語）に基づくものではありません。

2.4. `if`文の簡単な例

ユーザーから年齢を入力してもらい、それが18歳以上かどうかを判定するプログラムを考えてみましょう。

“`perl
use strict;
use warnings;

print “あなたの年齢を入力してください: “;
my $age = ;
chomp $age; # 入力の改行コードを取り除く

if ($age >= 18) {
print “あなたは成人です。\n”;
}

print “プログラム終了。\n”;
“`

このコードでは、変数$ageの値が数値として18以上であるかどうかが条件式 $age >= 18 で評価されます。
* $ageが18以上なら、ifブロック内の print "あなたは成人です。\n"; が実行されます。
* $ageが18未満なら、ifブロックはスキップされ、print "プログラム終了。\n"; が直接実行されます。

2.5. コードブロックの重要性

if文の後に続く {} で囲まれたコードブロックは、条件が真の場合に実行される文をまとめる役割を果たします。複数の文を実行したい場合は、必ずこのブロック内に記述する必要があります。

“`perl
use strict;
use warnings;

my $score = 95;

if ($score >= 90) {
print “素晴らしい！\n”;
print “あなたはA判定です。\n”;
}

print “スコアチェック完了。\n”;
“`

この例では、$score >= 90 が真であるため、ブロック内の2つのprint文が両方とも実行されます。

もしブロックを省略して、ifの直後に1つの文だけを記述したい場合は、以下の「ステートメント修飾子」の形式を使うことができます。

perl print "あなたは成人です。\n" if $age >= 18; # ステートメント修飾子として使う
この形式については後述しますが、これはあくまで1つの文を条件付きで実行する場合の糖衣構文（シンタックスシュガー）であり、複数の文を実行したい場合は必ず{}ブロックが必要です。基本的なif文では、混乱を避けるため常に{}ブロックを使用することをお勧めします。

3. `else`文 – 条件が偽の場合の処理

if文だけでは、「条件が真の場合」の処理しか定義できません。しかし、「条件が真ではない場合（つまり偽の場合）」に別の処理を行いたいという状況は非常に多いです。このような場合にelse文を使用します。

3.1. `else`文の書式

else文は、対応するif文の条件式が偽だった場合に実行されるコードブロックを定義します。

perl if (条件式) { # 条件式が真の場合に実行されるコードブロック } else { # 条件式が偽の場合に実行されるコードブロック # ここに一つ以上の文を記述します。 }

else: if文の条件が偽だった場合の処理を指定するためのキーワードです。ifブロックの直後に記述します。
{ ... }: if文の条件式が偽と評価された場合に実行されるコードブロックです。

3.2. `else`文の動作

if (条件式) が評価されます。
条件式の評価結果が「真」である場合、ifブロック内のコードが実行され、elseブロックはスキップされます。
条件式の評価結果が「偽」である場合、ifブロックはスキップされ、elseブロック内のコードが実行されます。

どちらの場合でも、実行されるのはifブロックかelseブロックのどちらか一方のみです。

3.3. `else`文の例

先ほどの年齢判定プログラムにelseを加えてみましょう。18歳未満の場合に別のメッセージを表示します。

“`perl
use strict;
use warnings;

print “あなたの年齢を入力してください: “;
my $age = ;
chomp $age;

if ($age >= 18) {
print “あなたは成人です。\n”;
} else {
print “あなたは未成年です。\n”;
}

print “プログラム終了。\n”;
“`

このコードでは、
* $ageが18以上なら、「あなたは成人です。」と表示されます。
* $ageが18未満なら、「あなたは未成年です。」と表示されます。

このように、ifとelseを組み合わせることで、「二者択一」の条件分岐を実現できます。

4. `elsif`文 – 複数の条件を扱う

プログラムでは、条件が3つ以上存在し、それぞれに対して異なる処理を行いたい場合があります。例えば、「スコアが90点以上ならA、80点以上90点未満ならB、それ以外ならC」のように、複数の排他的な条件を順に評価したい場合です。このような場合にelsif文を使用します。

4.1. `elsif`文の書式

elsifは「else if」の略で、前のifまたはelsifの条件が偽だった場合に、さらに別の条件を評価するために使用します。

“`perl
if (条件式1) {
# 条件式1が真の場合に実行される
} elsif (条件式2) {
# 条件式1が偽かつ条件式2が真の場合に実行される
} elsif (条件式3) {
# 条件式1も条件式2も偽かつ条件式3が真の場合に実行される
}

… 任意の数の elsif を続けることができる …

else {
# 上記すべての条件式が偽の場合に実行される (elseは省略可能)
}
“`

elsif: 前のifまたはelsifの条件が偽だった場合に、次の条件を評価するためのキーワードです。
(条件式): elsifキーワードの後ろに、評価する新しい条件式を記述します。if文と同様に括弧 () で囲みます。
{ ... }: そのelsifに対応する条件式が真と評価された場合に実行されるコードブロックです。

elsifは任意の数だけ連ねて記述できます。また、一連のif/elsifの最後にelseブロックを付けることで、「上記のどの条件にも合致しなかった場合」の処理を定義できます。elseブロックは省略可能です。

4.2. `elsif`文の動作

if, elsif, elseのブロックは、以下の順序で評価・実行されます。

最初の if (条件式1) が評価されます。
条件式1が真であれば、そのifブロック内のコードが実行され、それ以降のelsifやelseブロックはすべてスキップされます。一連のif/elsif/elseの処理はここで終了します。
条件式1が偽であれば、ifブロックはスキップされ、次の elsif (条件式2) が評価されます。
条件式2が真であれば、そのelsifブロック内のコードが実行され、それ以降のelsifやelseブロックはすべてスキップされます。一連の処理はここで終了します。
以降、同様にelsifが順に評価されていきます。
もし、すべてのifおよびelsifの条件式が偽であった場合、最後にelseブロック（もし存在すれば）内のコードが実行されます。

重要な点は、条件式は上から順に評価され、最初に真となった条件に対応するブロックだけが実行されるということです。複数の条件が真となる場合でも、最初に真となった条件のブロックだけが実行されます。

4.3. `elsif`文の例

スコアに応じた成績判定を行う例です。

“`perl
use strict;
use warnings;

print “点数を入力してください (0-100): “;
my $score = ;
chomp $score;

if ($score >= 90) {
print “成績: A\n”;
} elsif ($score >= 80) {
# ここに来るのは、$score < 90 かつ $score >= 80 の場合
print “成績: B\n”;
} elsif ($score >= 70) {
# ここに来るのは、$score < 80 かつ $score >= 70 の場合
print “成績: C\n”;
} else {
# 上記どの条件にも合致しない場合 ($score < 70)
print “成績: D\n”;
}

print “判定終了。\n”;
“`

入力された$scoreの値によって、以下のように動作します。

$scoreが95の場合: if ($score >= 90) が真 (95 >= 90 は真) なので、「成績: A」と表示され、それ以降のelsifとelseはスキップされます。
$scoreが85の場合: if ($score >= 90) が偽 (85 >= 90 は偽) なのでスキップ。次に elsif ($score >= 80) が評価され、真 (85 >= 80 は真) なので、「成績: B」と表示され、それ以降のelsifとelseはスキップされます。
$scoreが65の場合: ifも最初のelsifも次のelsifも偽なので、最後のelseブロックが実行され、「成績: D」と表示されます。

4.4. 条件式の順序の重要性

elsifを使う場合、条件式の順序は非常に重要です。間違った順序で条件を記述すると、意図しない結果になることがあります。

例えば、上記の例で条件の順序を逆にしてしまうとどうなるでしょうか？

“`perl

悪い例：条件の順序が不適切

use strict;
use warnings;

print “点数を入力してください (0-100): “;
my $score = ;
chomp $score;

if ($score >= 70) {
# ここに来るのは、$score >= 70 の場合。
# 90点や80点の人もここに来てしまう！
print “成績: C\n”;
} elsif ($score >= 80) {
# ここには誰も来ない！なぜなら、$score >= 80 ならば必ず $score >= 70 も真であり、
# 上のifブロックが先に実行されてしまうため。
print “成績: B\n”;
} elsif ($score >= 90) {
# ここにも誰も来ない！
print “成績: A\n”;
} else {
print “成績: D\n”;
}
“`

この例では、例えば$scoreが95点の場合、最初のif ($score >= 70)が真となって「成績: C」と表示されてしまい、本来表示されるべき「成績: A」が表示されません。elsifブロックの条件が評価されるのは、その前の条件がすべて偽だった場合だけだからです。

このように、複数の範囲をチェックする場合は、最も狭い（または最も広い、どちらかの端から）範囲の条件から順に記述する必要があります。点数の例では、「90点以上」→「80点以上」→「70点以上」のように、より高い点数（狭い範囲）から評価していくのが正しい順序です。

5. 条件式の詳細と様々な表現

if, elsif, elseを使いこなすためには、条件式にどのようなものが書けるのか、Perlのどのような値を真偽値として評価するのかを深く理解する必要があります。

5.1. 比較演算子

条件式で最も頻繁に使用されるのが比較演算子です。Perlには、数値の比較と文字列の比較で異なる演算子が用意されています。これを混同すると、意図しない結果になるため注意が必要です。

数値比較演算子:

==: 等しい
!=: 等しくない
<: より小さい
>: より大きい
<=: より小さい、または等しい
>=: より大きい、または等しい

文字列比較演算子:

eq: 等しい
ne: 等しくない
lt: より小さい (辞書順)
gt: より大きい (辞書順)
le: より小さい、または等しい (辞書順)
ge: より大きい、または等しい (辞書順)

数値 vs. 文字列の例:

“`perl
use strict;
use warnings;

my $num = 10;
my $str = “10”;
my $another_num = 10;
my $another_str = “10”;
my $str_abc = “abc”;
my $str_abd = “abd”;

数値比較

if ($num == $another_num) { print “$num == $another_num (数値) は真\n”; } # 真
if ($num == $str) { print “$num == $str (数値) は真\n”; } # 真 (文字列”10″が数値10に変換されて比較される)
if ($str == $another_str) { print “$str == $another_str (数値) は真\n”; } # 真 (“10″が数値10に変換される)

文字列比較

if ($str eq $another_str) { print “$str eq $another_str (文字列) は真\n”; } # 真
if ($num eq $another_num) { print “$num eq $another_num (文字列) は真\n”; } # 真 (数値10が文字列”10″に変換されて比較される)
if ($num eq $str) { print “$num eq $str (文字列) は真\n”; } # 真

辞書順比較

if ($str_abc lt $str_abd) { print “$str_abc lt $str_abd は真\n”; } # 真
if ($str_abd gt $str_abc) { print “$str_abd gt $str_abc は真\n”; } # 真
if (“a” lt “A”) { print “\”a\” lt \”A\” は真\n”; } # 真 (ASCII/Unicode順)
“`

Perlは、必要に応じて数値と文字列を自動的に変換（型変換）しようとしますが、比較演算子に関しては、意図的に数値比較か文字列比較かを選ばなければなりません。特に、ユーザーからの入力は通常文字列として扱われるため、数値として比較したい場合は==などの数値比較演算子を使い、文字列として比較したい場合はeqなどの文字列比較演算子を使うことを意識する必要があります。間違って数値の比較にeqを使ったり、文字列の比較に==を使うと、期待通りに動かないバグの温床となります。

5.2. 論理演算子

複数の条件を組み合わせたい場合は、論理演算子を使用します。

&& (and): 論理積。両方の条件が真の場合に真。
|| (or): 論理和。どちらか一方、または両方の条件が真の場合に真。
! (not): 論理否定。条件が真の場合に偽、条件が偽の場合に真。

論理演算子には、英単語の and, or, not もありますが、演算子の優先順位が異なります。通常は記号 (&&, ||, !) の方がよく使われます。

論理演算子の例:

“`perl
use strict;
use warnings;

my $age = 25;
my $is_student = 1; # 真と見なされる値 (非ゼロ)

AND条件: 18歳以上かつ学生である

if ($age >= 18 && $is_student) {
print “あなたは成人の学生です。\n”;
}

OR条件: 65歳以上または扶養家族がいる

my $is_dependent = 0; # 偽と見なされる値 (ゼロ)
if ($age >= 65 || $is_dependent) {
print “あなたは高齢者または扶養家族がいます。\n”; # age=25, dependent=0 なので偽
} else {
print “あなたは高齢者でも扶養家族もいません。\n”; # 出力
}

NOT条件: 学生ではない

if (! $is_student) {
print “あなたは学生ではありません。\n”; # $is_studentは真なので!$is_studentは偽
}

複数の条件の組み合わせ

my $score = 85;
my $attend = 1;
if (($score >= 80 && $score <= 90) && $attend) {
print “スコアが80-90点で出席も良好です。\n”;
}
“`

短絡評価 (Short-circuiting):
&& および || 演算子は「短絡評価」を行います。
* 条件1 && 条件2: 条件1が偽の場合、条件2は評価されません。結果は必ず偽になるためです。
* 条件1 || 条件2: 条件1が真の場合、条件2は評価されません。結果は必ず真になるためです。

この短絡評価を利用して、存在チェックと値のチェックを組み合わせたり、条件付きで処理を実行したりすることができます。

“`perl
use strict;
use warnings;

my $data; # undef
my $value = 10;

$data が defined かつ $data > 0 なら処理

$data が undef なので defined($data) が偽となり、|| の右側は評価されない

if (defined($data) && $data > 0) {
print “Data is defined and positive.\n”;
} else {
print “Data is not defined or not positive.\n”; # 出力
}

$data が undef または $value が 20 なら処理

$data が undef なので undef($data) が真となり、|| の右側 ($value == 20) は評価されない

if (!defined($data) || $value == 20) {
print “Data is undefined or value is 20.\n”; # 出力
}
“`

5.3. 正規表現マッチ

Perlは正規表現による強力なパターンマッチング機能を持ち、これをif文の条件式として使うことが非常に多いです。

$string =~ /pattern/: $stringがpatternにマッチすれば真。
$string !~ /pattern/: $stringがpatternにマッチしなければ真。

“`perl
use strict;
use warnings;

my $text = “hello world 123”;

文字列に “world” が含まれているか？

if ($text =~ /world/) {
print “‘$text’ に ‘world’ が含まれています。\n”; # 出力
}

文字列が数字だけで構成されているか？

if ($text =~ /^\d+$/) {
print “‘$text’ は数字だけです。\n”; # 偽 (スペースや文字を含む)
} else {
print “‘$text’ は数字だけではありません。\n”; # 出力
}

文字列が “Perl” で始まらないか？

if ($text !~ /^Perl/) {
print “‘$text’ は ‘Perl’ で始まりません。\n”; # 出力
}
“`

正規表現マッチ演算子は、マッチした部分に関する情報を特殊変数（$1, $2など）や @+, @-などに格納しますが、これらの副作用は条件式の評価には影響しません。条件式としては、マッチしたかどうかの真偽値だけが使われます。

5.4. `defined()`, `exists()`, `length()`

特定の関数の結果や、変数、配列・ハッシュの要素の状態をチェックする際にもif文は使われます。

defined($variable): 変数やスカラ値が未定義値 (undef) でなければ真。
exists($hash{$key}): ハッシュの指定されたキーが存在すれば真（値がundefでもキー自体があれば真）。
exists($array[$index]): 配列の指定されたインデックスに要素が存在すれば真（値がundefでも要素自体があれば真）。
length($string): 文字列の長さが0より大きければ真（長さが0の場合は偽、undefの場合は警告とともにundef -> 偽）。
スカラコンテキストでの配列 @array: 配列の要素数が0より大きければ真（要素数が0の場合は偽）。
スカラコンテキストでのハッシュ %hash: ハッシュのハッシュバケット数が0より大きければ真（通常、要素があれば非ゼロ）。

“`perl
use strict;
use warnings;

my $name; # undef
my $greeting = “”;
my $count = 0;
my @items = (); # 要素数0の配列
my %config; # 要素数0のハッシュ

if (defined($name)) {
print “\$name は定義されています。\n”; # 偽
} else {
print “\$name は未定義です。\n”; # 出力
}

if (length($greeting)) {
print “\$greeting は空ではありません。\n”; # 偽 (長さ0)
} else {
print “\$greeting は空です。\n”; # 出力
}

if (@items) {
print “\@items には要素があります。\n”; # 偽 (要素数0)
} else {
print “\@items には要素がありません。\n”; # 出力
}

ハッシュのキーの存在チェックと値のチェック

my %user = (
name => “Alice”,
age => 30,
city => undef # キーは存在するが値はundef
);

if (exists($user{name})) {
print “キー ‘name’ は存在します。\n”; # 真
}
if (exists($user{address})) {
print “キー ‘address’ は存在します。\n”; # 偽
}
if (defined($user{city})) {
print “キー ‘city’ の値は定義されています。\n”; # 偽 (値がundef)
} else {
print “キー ‘city’ の値は未定義です。\n”; # 出力
}

defined-or演算子 (Perl 5.10+) // を使うと簡潔に書ける場合もある

my $display_name = $user{nickname} // $user{name} // “名無し”;

$user{nickname} が defined ならそれを使う。

そうでなければ $user{name} が defined ならそれを使う。

そうでなければ “名無し” を使う。

print “表示名: $display_name\n”; # 出力: 表示名: Alice
“`

definedとexistsは異なる概念であることに注意が必要です。existsは「その名前（キーやインデックス）に対応するコンテナ（ハッシュや配列）の一部が存在するか」をチェックし、definedは「その変数や式の評価結果が未定義値であるか」をチェックします。

5.5. スカラコンテキストとリストコンテキスト

Perlの大きな特徴の一つに「コンテキスト」があります。同じ変数や式でも、それが評価される文脈（スカラコンテキストかリストコンテキストかなど）によって結果が変わります。if文の条件式は基本的にスカラコンテキストで評価されます。

“`perl
use strict;
use warnings;

my @data = (1, 2, 3);
my @empty_data = ();

if文の条件式はスカラコンテキスト

if (@data) { # @data はスカラコンテキストで要素数(3)となり、真
print “\@data には要素があります (要素数: ” . scalar(@data) . “)\n”; # 出力
}

if (@empty_data) { # @empty_data はスカラコンテキストで要素数(0)となり、偽
print “\@empty_data には要素があります。\n”;
} else {
print “\@empty_data には要素がありません (要素数: ” . scalar(@empty_data) . “)\n”; # 出力
}
“`

このように、配列をifの条件式に直接置くと、それは配列の要素数として評価されます。要素数が0なら偽、1以上なら真となります。これは配列が空かどうかを判定する際によく使われるイディオムです。

ハッシュも同様に、スカラコンテキストではその内部的なハッシュバケット数（通常、要素があれば非ゼロ）として評価されます。

“`perl
use strict;
use warnings;

my %data = (a => 1, b => 2);
my %empty_data = ();

if (%data) { # スカラコンテキストでハッシュバケット数(非ゼロ)となり、真
print “\%data には要素があります。\n”; # 出力
}

if (%empty_data) { # スカラコンテキストでハッシュバケット数(0)となり、偽
print “\%empty_data には要素があります。\n”;
} else {
print “\%empty_data には要素がありません。\n”; # 出力
}
“`

ファイルのテスト演算子 (-e, -f, -d, -r, -w, -x など) も条件式としてよく使用されます。

“`perl
use strict;
use warnings;

my $file_path = “my_file.txt”;

if (-e $file_path) { # ファイルが存在するか？
print “‘$file_path’ は存在します。\n”;
if (-f $file_path) { # 通常のファイルか？
print “‘$file_path’ は通常のファイルです。\n”;
if (-r $file_path) { # 読み取り可能か？
print “‘$file_path’ は読み取り可能です。\n”;
}
} elsif (-d $file_path) { # ディレクトリか？
print “‘$file_path’ はディレクトリです。\n”;
}
} else {
print “‘$file_path’ は存在しません。\n”;
}
`` これらのファイルテスト演算子は、後続のファイル名をデフォルトでテストしますが、ファイル名を省略した場合は特殊変数$_` がテスト対象となります。

6. `if`文の応用と関連構文

if, elsif, elseは最も基本的な条件分岐ですが、Perlにはこれらをより簡潔に書く方法や、他の種類の条件分岐構文も存在します。

6.1. ステートメント修飾子 (`if` / `unless`)

前述したように、if文が1つの文だけを実行する場合、より簡潔な「ステートメント修飾子」の形式で記述できます。

“`perl

基本的なif文

if (条件式) {
文;
}

ステートメント修飾子

文 if 条件式;
“`

これはif文の条件が真の場合にのみ文を実行します。

同様に、unlessというキーワードを使ったステートメント修飾子もあります。unlessはifの逆で、「もし指定された条件が偽（false）ならば、特定の文を実行する」という意味になります。

“`perl

基本的な unless 文 (Perlにはunless…elseやunless…elsifは一般的ではない)

unless (条件式) { 文; } は if (!条件式) { 文; } と同じ意味

ステートメント修飾子 (unless)

文 unless 条件式;
“`

これはif (!条件式) { 文; } や 文 if !条件式; と同じ意味になります。条件が偽の場合にのみ文を実行します。

ステートメント修飾子の例:

“`perl
use strict;
use warnings;

my $error = 1;
my $success = 0;
my $message = “処理に成功しました。”;

print “エラーが発生しました。\n” if $error; # $errorは真なので出力
print $message, “\n” if $success; # $successは偽なので出力されない

print “エラーは発生しませんでした。\n” unless $error; # $errorは真なので!$errorは偽 -> 出力されない
print “処理に失敗しました。\n” unless $success; # $successは偽なので!$successは真 -> 出力される
“`

ステートメント修飾子は、短い条件と短い文の場合にコードを簡潔に保つのに役立ちます。しかし、条件や文が長くなる場合や、elseやelsifが必要な場合は、通常のif/elsif/elseブロック形式の方が可読性が高くなります。個人的な好みやチームのコーディング規約にもよりますが、基本的には通常のブロック形式を使用し、ごく単純なケースでのみ修飾子を使うのが一般的です。

6.2. `unless`文

ステートメント修飾子としてだけでなく、unlessは単独でブロックを持つ構文としても使用できます。

perl unless (条件式) { # 条件式が偽の場合に実行されるコードブロック }

これは if (!条件式) { ... } と完全に同じ意味です。どちらを使うかは、条件式の表現が肯定形と否定形のどちらがより自然で分かりやすいかによります。例えば、「ファイルが存在しない場合」は unless (-e $file) と書くと自然ですが、「ファイルが存在する場合」は if (-e $file) と書くのが自然です。

unlessにelseを続けることは可能ですが (unless (cond) { ... } else { ... })、これは if (cond) { ... } else { ... } と同じ意味になり、あまり一般的ではありません。unlessにelsifを続ける構文は存在しません。複数の条件を扱う場合は、基本的にif/elsif/elseを使用します。

6.3. 三項演算子 (`?:`)

非常に単純な条件に基づいて値を決定したり、簡単な式を実行したりする場合に、三項演算子 (?:) を使うとコードを簡潔にできます。

perl (条件式) ? 真の場合の値または式 : 偽の場合の値または式

これは、「もし条件式が真ならばコロンの左側の値を、偽ならばコロンの右側の値を返す」という評価を行います。

三項演算子の例:

“`perl
use strict;
use warnings;

my $age = 20;

ageが18以上なら”Adult”、そうでなければ”Minor”という文字列を変数に代入

my $status = ($age >= 18) ? “Adult” : “Minor”;
print “Status: $status\n”; # 出力: Status: Adult

if/else で書いた場合:

my $status;

if ($age >= 18) {

$status = “Adult”;

} else {

$status = “Minor”;

}

my $count = 0;

countが0より大きければcountの値を表示、そうでなければ”No items”と表示

print ($count > 0) ? “Items: $count\n” : “No items\n”; # 出力: No items
“`

三項演算子は主に変数への代入や関数の引数など、式の一部として条件によって異なる値を使いたい場合に便利です。コードブロックのように複数の文を実行するのには向いていません。複雑な条件や処理にはif/elsif/elseを使用すべきです。

6.4. 論理演算子による短絡評価の利用

先ほど論理演算子の説明で触れましたが、&&と||の短絡評価を利用して、簡単な条件付き実行を記述することができます。

perl 条件式 && 実行したい処理; # 条件式が真なら実行したい処理を実行条件式 || 実行したい処理; # 条件式が偽なら実行したい処理を実行 (エラー処理などによく使う)

短絡評価による条件付き実行の例:

“`perl
use strict;
use warnings;

my $is_admin = 1;
my $user_id = 123;
my $file = “config.txt”;

$is_admin が真なら log_access() を実行

$is_admin && log_access($user_id);

open が成功すれば process_file() を実行

open が失敗すれば die() を実行

open(my $fh, “<“, $file) || die “Cannot open $file: $!”;
process_file($fh);
close $fh;

sub log_access {
my ($uid) = @_;
print “Admin user $uid accessed.\n”;
}

sub process_file {
my ($fh) = @_;
print “Processing file handle…\n”;
# ファイル処理のコード…
}
“`

この形式は、条件が単純で実行する処理が1つの文や関数呼び出しである場合に、コードを非常に簡潔にできます。特にエラー処理で|| die ... の形はPerlで非常によく見られます。ただし、これも複雑なロジックには向いていません。

6.5. `given`/`when` (スイッチ文)

Perl 5.10から導入された実験的な機能として、given/when構文があります。これは他の言語のswitch文に似ており、一つの値が複数の可能な値のどれに一致するかによって処理を分岐させたい場合に役立ちます。

“`perl
use 5.010; # given/when を使うにはバージョン指定が必要

my $value = “b”;

given ($value) {
when (“a”) {
say “Value is a”;
}
when (“b”) {
say “Value is b”; # このブロックが実行される
}
when (/^[c-z]/) { # 正規表現も使える
say “Value starts with c-z”;
}
when ([ “x”, “y”, “z” ]) { # 配列リファレンスで複数の値を指定
say “Value is x, y, or z”;
}
default { # どのwhenにもマッチしなかった場合 (elseに相当)
say “Value is something else”;
}
}
“`

givenの引数に指定した値が、それぞれのwhenの条件とマッチするかどうか評価されます。最初のマッチしたwhenブロックが実行されます。given/whenはスマートマッチ演算子~~を使用して内部的に条件を評価します。スマートマッチの挙動は少し複雑なため、使用には注意が必要です。

given/whenは、複数のelsifで同じ変数を繰り返し比較するような場合に、コードを整理して読みやすくするのに役立つことがあります。しかし、Perlの標準機能としてはまだ実験的な位置づけであり、スマートマッチの挙動の分かりづらさから、if/elsif/elseを使い続けるプログラマーも多いです。より新しいPerlではスマートマッチ自体のデフォルトの挙動が変わったりするため、特定のバージョンに依存する可能性があります。移植性や安定性を重視する場合は、古典的なif/elsif/elseの方が無難な選択となることが多いです。

6.6. ネストされた`if`文

if文のコードブロック内には、他のif文（あるいはelsif, elseを含む構造）を記述することができます。これを「ネスト」（入れ子）と呼びます。

“`perl
use strict;
use warnings;

my $user_role = “admin”;
my $is_active = 1;

if ($user_role eq “admin”) {
print “管理者権限チェック: OK\n”;
if ($is_active) {
print “ユーザーアカウント状態: アクティブ\n”;
# 管理者かつアクティブな場合にのみ実行される処理
print “管理者パネルへのアクセスを許可します。\n”;
} else {
print “ユーザーアカウント状態: 非アクティブ\n”;
# 管理者だが非アクティブな場合にのみ実行される処理
print “管理者パネルへのアクセスを拒否します (アカウント非アクティブ)。\n”;
}
} elsif ($user_role eq “editor”) {
print “編集者権限チェック: OK\n”;
# 編集者向けの処理…
} else {
print “権限なし: アクセス拒否\n”;
}
“`

ネストされたif文は、複数の条件を階層的に評価する場合に便利です。しかし、ネストが深くなりすぎるとコードの可読性が著しく低下します。深くネストされた条件分岐は、リファクタリング（コードの改善）を検討するサインかもしれません。論理演算子 (&&) を使って条件をフラットにしたり、関数に処理を切り出したりすることで、ネストを浅くできる場合があります。

上記の例は、論理演算子&&を使って以下のように書き換えることもできます。

“`perl
use strict;
use warnings;

my $user_role = “admin”;
my $is_active = 1;

if ($user_role eq “admin” && $is_active) {
print “管理者権限チェック: OK\n”;
print “ユーザーアカウント状態: アクティブ\n”;
print “管理者パネルへのアクセスを許可します。\n”;
} elsif ($user_role eq “admin” && !$is_active) {
print “管理者権限チェック: OK\n”;
print “ユーザーアカウント状態: 非アクティブ\n”;
print “管理者パネルへのアクセスを拒否します (アカウント非アクティブ)。\n”;
} elsif ($user_role eq “editor”) {
print “編集者権限チェック: OK\n”;
# 編集者向けの処理…
} else {
print “権限なし: アクセス拒否\n”;
}
“`
このフラットな構造の方が読みやすいと感じる人も多いでしょう。どちらが良いかは状況と個人の好みに依りますが、ネストが3階層より深くなる場合は、可読性を考慮して他の方法を検討するのが一般的です。

7. ベストプラクティスと注意点

Perlで効果的にif/elsif/elseを使うためのベストプラクティスと、陥りやすい落とし穴について解説します。

7.1. インデントと可読性

条件分岐の構造を明確にするために、適切なインデント（字下げ）は必須です。Perlではインデントのスタイルについて厳格な決まりはありませんが、一貫性のあるスタイルを用いることが重要です。一般的には、各ネストレベルごとにスペースまたはタブを複数（例：スペース4つ）使って字下げを行います。

“`perl

良い例：適切なインデント

if ($condition1) {
# 処理1
} elsif ($condition2) {
if ($sub_condition) {
# 処理2a
} else {
# 処理2b
}
} else {
# 処理3
}

悪い例：インデントがない、または不規則

if ($condition1) {

処理1

} elsif ($condition2) {
if ($sub_condition) {

処理2a

} else {

処理2b

}
} else {

処理3

}
“`
適切なインデントは、どのコードブロックがどの条件に対応しているかを一目で理解するために不可欠です。

7.2. 適切な比較演算子の選択 (数値 vs. 文字列)

Perlで最もよくある間違いの一つが、数値と文字列の比較演算子を混同することです。常に、比較したい値が数値なのか文字列なのかを意識し、適切な演算子 (== vs eq など) を使用してください。ユーザーからの入力やファイルから読み込んだデータは、見た目が数字でも多くの場合文字列として扱われるため、数値として比較する場合は==を使う必要があります。

7.3. 条件式の括弧 `()`

if, elsif, unlessの条件式は必ず括弧 () で囲まなければなりません。Perlの文法規則です。

“`perl
if ($x > 10) { … } # 正しい

if $x > 10 { … } # 構文エラー！

“`

一方、ステートメント修飾子の場合は括弧は必須ではありませんが、可読性のために付けることもあります。

perl print "OK\n" if $y == 20; # 正しい print "OK\n" if ($y == 20); # 正しい (可読性のために付ける)

7.4. 真偽値の明確化

Perlの真偽値のルール（特に"0"が偽であること）は、他の言語に慣れていると混乱の元になります。意図を明確にするために、defined(), length(), @array (スカラコンテキスト) などを明示的に使用することを検討してください。

変数が定義されているか？ -> if (defined $var)
文字列が空ではないか？ -> if (length $str) または if ($str ne "")
配列に要素があるか？ -> if (@array) (要素数 > 0)
ハッシュに要素があるか？ -> if (%hash) (ハッシュバケット数 > 0)
特定のキーが存在するか？ -> if (exists $hash{$key})

単に $var を条件式に使うと、undef、0、""、"0" の場合に偽と評価されます。これが意図した振る舞いであれば構いませんが、例えば「値が0の場合も真と見なしたい」のに$varをそのまま条件にすると、0の場合に偽と評価されてしまいます。このような場合は、if (defined $var) や if (length $var) といったより具体的な条件式を使う必要があります。

7.5. 複雑な条件の分解

複数の論理演算子 (&&, ||) を使って非常に複雑な条件式を書くことができますが、長すぎる条件式は理解しにくく、間違いを犯しやすくなります。複雑な条件は、複数のif/elsifやネストされたifに分解したり、条件式を評価する関数を作成したりすることを検討してください。

“`perl

複雑な条件式

if (($age >= 18 && $is_citizen && $has_job) || ($is_student && $has_scholarship && $gpa >= 3.0)) {
# 奨学金の資格あり
}

関数に切り出す例

if (has_scholarship_eligibility($age, $is_citizen, $has_job, $is_student, $has_scholarship, $gpa)) {
# 奨学金の資格あり
}

sub has_scholarship_eligibility {
my ($age, $is_citizen, $has_job, $is_student, $has_scholarship, $gpa) = @_;
if (($age >= 18 && $is_citizen && $has_job)) {
return 1; # 条件1を満たす
}
if ($is_student && $has_scholarship && $gpa >= 3.0) {
return 1; # 条件2を満たす
}
return 0; # どちらも満たさない
}
`` 関数に切り出すことで、条件式の意味（例えばhas_scholarship_eligibility`）がコードを読む人にとって明確になります。

7.6. `if`文ではない解決策の検討

複雑な多方向分岐（例えば10種類以上の異なる値をチェックしてそれぞれ異なる処理を行う場合）では、if/elsif/elsif/.../elseの連なりが非常に長くなり、読みにくくメンテナンスが困難になることがあります。このような場合は、条件分岐以外の設計パターンを検討するのが良いでしょう。

ハッシュ（ルックアップテーブル）: 値と処理（サブルーチンへの参照など）を対応させるハッシュを作成し、値に応じてハッシュから処理を取り出して実行する。
given/when: 特定の値をいくつかのパターンにマッチさせる場合に利用できる（ただし実験的な機能であることに注意）。
ポリモーフィズム: オブジェクト指向プログラミングにおいて、オブジェクトの型に基づいて異なるメソッドが自動的に呼び出されるように設計する。

これらの方法は、条件分岐の数を減らし、コードの見通しを良くするのに役立ちます。

7.7. デバッグのヒント

条件分岐が期待通りに動かない場合、デバッグが必要になります。

printデバッグ: 条件式や、条件式に関わる変数の値をprint文で出力して確認する。条件式自体を評価した結果の真偽値（Perlでは真は通常 1、偽は "" に評価される）を出力するのも有効です。
“`perl
print “DEBUG: age=$age, is_student=$is_student\n”;
print “DEBUG: condition ($age >= 18 && $is_student) is ” . (($age >= 18 && $is_student) ? “true” : “false”) . “\n”;

if ($age >= 18 && $is_student) {
# …
}
`` * **Perlデバッガ (perl -d script.pl):** デバッガを使ってコードの実行をステップ実行し、各行での変数の値や条件式の評価結果を確認する。これは複雑な問題を解決するのに非常に強力です。 * **use strict;とuse warnings;` の使用:** これらは、比較演算子の混同や未定義値の使用など、多くの潜在的な問題をコンパイル時や実行時に警告・エラーとして知らせてくれます。必ずコードの先頭に記述するように習慣づけましょう。

8. 実践的な例

これまでに学んだif/elsif/elseとその関連構文を使って、より実践的なシナリオを考えてみましょう。

8.1. コマンドライン引数の処理

スクリプトに渡されたコマンドライン引数の数や値に基づいて処理を分岐させるのはよくあるタスクです。引数は特殊な配列@ARGVに格納されます。

“`perl

!/usr/bin/perl

use strict;
use warnings;

my $num_args = @ARGV; # @ARGV をスカラコンテキストで評価して引数の数を取得

if ($num_args == 0) {
print “引数が指定されていません。\n”;
print “使用方法: perl script.pl <コマンド> [オプション…]\n”;
exit; # プログラム終了
} elsif ($num_args >= 1) {
my $command = $ARGV[0]; # 最初の引数

if ($command eq "start") {
    print "サービスを開始します...\n";
    # 開始処理...
} elsif ($command eq "stop") {
    print "サービスを停止します...\n";
    # 停止処理...
} elsif ($command eq "restart") {
    print "サービスを再起動します...\n";
    # 停止処理...
    # 開始処理...
} else {
    print "不明なコマンド: '$command'\n";
    print "使用可能なコマンド: start, stop, restart\n";
}

}

given/when を使うと、コマンド部分の分岐をより整理できる場合がある

use 5.010;

my $command = $ARGV[0];

given ($command) {

when (“start”) { say “開始…”; }

when (“stop”) { say “停止…”; }

when (“restart”) { say “再起動…”; }

default { say “不明なコマンド…”; }

}

“`

この例では、@ARGVをスカラコンテキストで評価して引数の数をチェックし、その数によって最初のif/elsifを分け、さらに最初の引数$ARGV[0]の値によって内部のif/elsif/elseで処理を分岐しています。

8.2. 設定ファイルの読み込みとデフォルト値の設定

設定ファイルから値を読み込み、値が存在しない場合や特定の条件を満たさない場合にデフォルト値を設定するシナリオです。

“`perl
use strict;
use warnings;
use Config::Simple; # 例としてConfig::Simpleモジュールを使用

my $config_file = “app.conf”;
my %config;

if (-e $config_file && -r $config_file) {
# ファイルが存在し、読み取り可能であれば読み込む
print “設定ファイル ‘$config_file’ を読み込みます。\n”;
eval {
Config::Simple->import_from($config_file, \%config);
};
if ($@) {
# ファイル読み込み中にエラーが発生した場合
warn “設定ファイルの読み込み中にエラーが発生しました: $@\n”;
# エラー時もデフォルト値を使うか、ここで終了するかなどを判断
%config = (); # 設定をクリアして全てデフォルトに倒すなど
}
} else {
# ファイルが存在しないか読み取り不可の場合
warn “設定ファイル ‘$config_file’ が見つからないか、読み取りできません。\n”;
%config = (); # デフォルト設定を使用するためにハッシュを空にする
}

設定値の取得とデフォルト値の適用

my $log_level;
if (defined $config{log_level} && length $config{log_level} > 0) {
$log_level = $config{log_level};
} else {
warn “設定 ‘log_level’ が見つからないか不正です。デフォルト値 ‘info’ を使用します。\n”;
$log_level = ‘info’; # デフォルト値
}

my $max_connections;

defined-or // 演算子を使うとより簡潔

$max_connections = $config{max_connections} // 100; # 設定がdefinedかつ非””/”0″ならその値、そうでなければ100

print “ログレベル: $log_level\n”;
print “最大接続数: $max_connections\n”;
`` この例では、ファイルテスト演算子 (-e,-r) でファイルの存在と読み取り権限をチェックし、ファイルが存在しないかエラーが発生した場合に処理を分岐させています。また、ハッシュから読み取った値がdefinedであり、かつ空文字列でないかをifでチェックしてデフォルト値を設定しています。//演算子を使うと、defined`かつ真と評価される値（数値の0や文字列の”0″以外）の場合に左側の値を、そうでなければ右側のデフォルト値を使う、というロジックをより簡潔に記述できることも示しています。

9. まとめ

本記事では、Perlにおける条件分岐の基本であるif, elsif, elseについて、その書式、動作、Perl特有の真偽値の規則、数値/文字列比較や論理演算子、正規表現マッチ、ファイルテスト演算子など、条件式に記述できる様々な要素を詳細に解説しました。

また、ステートメント修飾子としてのif/unless、単独のunless文、三項演算子、論理演算子による短絡評価、given/whenといった関連構文にも触れ、どのような場合にこれらの構文が役立つのか、あるいは注意が必要なのかを示しました。

最後に、適切なインデント、比較演算子の選択、真偽値の明確化、複雑な条件の分解、そしてif文以外の解決策の検討といったベストプラクティスを紹介し、デバッグのヒントや実践的なコード例を通して、これらの知識をどのように実際のプログラミングに活かすかを説明しました。

if/elsif/elseは、あらゆるプログラムのロジック構築において最も基礎的かつ強力なツールの一つです。Perl特有の真偽値の規則や比較演算子の違いといった細かな点をしっかりと理解し、適切に使いこなすことで、より堅牢で読みやすいPerlプログラムを書くことができるようになります。

条件分岐はプログラムの複雑さの源泉ともなりうるため、今回学んだベストプラクティスを意識し、常にコードの可読性と保守性を念頭に置いて記述することが重要です。練習を重ね、Perlでの条件分岐を自在に操れるようになりましょう。

Perlの条件分岐: if, elsif, else の詳細解説と実践

1. 条件分岐とは何か？なぜ必要なのか？

2. if文の基本

2.1. if文の書式

2.2. if文の動作

2.3. Perlにおける真偽値 (Truthiness and Falsiness)

注意: 配列やハッシュをifの条件に使う場合、

スカラコンテキストでは要素数として評価されます。

@an_empty_array はスカラコンテキストでは 0 となるため偽。

@an_array_with_elements = (1, 2); if (@an_array_with_elements) は 2 となり真。

2.4. if文の簡単な例

2.5. コードブロックの重要性

3. else文 – 条件が偽の場合の処理

3.1. else文の書式

3.2. else文の動作

3.3. else文の例

4. elsif文 – 複数の条件を扱う

4.1. elsif文の書式

… 任意の数の elsif を続けることができる …

4.2. elsif文の動作

4.3. elsif文の例

4.4. 条件式の順序の重要性

悪い例：条件の順序が不適切

5. 条件式の詳細と様々な表現

5.1. 比較演算子

数値比較

文字列比較

辞書順比較

5.2. 論理演算子

AND条件: 18歳以上 かつ 学生である

OR条件: 65歳以上 または 扶養家族がいる

NOT条件: 学生ではない

複数の条件の組み合わせ

$data が defined かつ $data > 0 なら処理

$data が undef なので defined($data) が偽となり、|| の右側は評価されない

$data が undef または $value が 20 なら処理

$data が undef なので undef($data) が真となり、|| の右側 ($value == 20) は評価されない

5.3. 正規表現マッチ

文字列に “world” が含まれているか？

文字列が数字だけで構成されているか？

文字列が “Perl” で始まらないか？

5.4. defined(), exists(), length()

ハッシュのキーの存在チェックと値のチェック

defined-or演算子 (Perl 5.10+) // を使うと簡潔に書ける場合もある

$user{nickname} が defined ならそれを使う。

そうでなければ $user{name} が defined ならそれを使う。

そうでなければ “名無し” を使う。

5.5. スカラコンテキストとリストコンテキスト

if文の条件式はスカラコンテキスト

6. if文の応用と関連構文

6.1. ステートメント修飾子 (if / unless)

基本的なif文

ステートメント修飾子

基本的な unless 文 (Perlにはunless…elseやunless…elsifは一般的ではない)

unless (条件式) { 文; } は if (!条件式) { 文; } と同じ意味

ステートメント修飾子 (unless)

6.2. unless文

6.3. 三項演算子 (?:)

ageが18以上なら”Adult”、そうでなければ”Minor”という文字列を変数に代入

if/else で書いた場合:

my $status;

if ($age >= 18) {

$status = “Adult”;

} else {

$status = “Minor”;

}

countが0より大きければcountの値を表示、そうでなければ”No items”と表示

6.4. 論理演算子による短絡評価の利用

$is_admin が真なら log_access() を実行

open が成功すれば process_file() を実行

open が失敗すれば die() を実行

6.5. given/when (スイッチ文)

6.6. ネストされたif文

7. ベストプラクティスと注意点

7.1. インデントと可読性

良い例：適切なインデント

悪い例：インデントがない、または不規則

処理1

処理2a

処理2b

Perlの条件分岐: `if`, `elsif`, `else` の詳細解説と実践

2. `if`文の基本

2.1. `if`文の書式

2.2. `if`文の動作

2.4. `if`文の簡単な例

3. `else`文 – 条件が偽の場合の処理

3.1. `else`文の書式

3.2. `else`文の動作

3.3. `else`文の例

4. `elsif`文 – 複数の条件を扱う

4.1. `elsif`文の書式

4.2. `elsif`文の動作

4.3. `elsif`文の例

AND条件: 18歳以上かつ学生である

OR条件: 65歳以上または扶養家族がいる

5.4. `defined()`, `exists()`, `length()`

6. `if`文の応用と関連構文

6.1. ステートメント修飾子 (`if` / `unless`)

6.2. `unless`文

6.3. 三項演算子 (`?:`)

6.5. `given`/`when` (スイッチ文)

6.6. ネストされた`if`文

7.3. 条件式の括弧 `()`

7.6. `if`文ではない解決策の検討

コメントする返信をキャンセル