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

my $seiseki;

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

print "以上です";

ブロック

my $seiseki;

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

my $seiseki;

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

サンプルプログラム

# if文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

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";

[xxxxxxxx@dddddddddd If]$ perl test1-1_u.pl | nkf -w
得点 = 75
合格です
おめでとう
お疲れ様
得点 = 47
お疲れ様
[xxxxxxxx@dddddddddd If]$ 

等しいかどうかの比較

my ($num, $name);

$num = 10;
if ($num == 10){
  print "10と等しい\n";
}

$name = "加藤";
if ($name eq "加藤"){
  print "加藤です\n";
}

my ($num, $name);

$num = 10;
if ($num != 15){
  print "15と等しくない\n";
}

$name = "加藤";
if ($name ne "伊藤"){
  print "伊藤ではありません\n";
}

大きいかどうかの比較

my ($num, $name);

$num = 10;
if ($num > 5){
  print "5よりも大きい\n";
}

$name = "abc";
if ($name gt "ABC"){
  print "ABCより大きい\n";
}

サンプルプログラム

# 関係演算子
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($num, $name);

$num = 10;
if ($num == 10){
  print "$num と10は等しい\n";
}

$name = "加藤";
if ($name eq "加藤"){
  print "$name と加藤は等しい\n";
}

$num = 10;
if ($num != 15){
  print "$num と15は等しくない\n";
}

$name = "加藤";
if ($name ne "伊藤"){
  print "$name は伊藤ではありません\n";
}

$num = 10;
if ($num > 5){
  print "$num は5よりも大きい\n";
}

$name = "abc";
if ($name gt "ABC"){
  print "$name はABCより大きい\n";
}

[xxxxxxxx@dddddddddd If]$ perl test2-1_u.pl | nkf -w
10 と10は等しい
加藤 と加藤は等しい
10 と15は等しくない
加藤 は伊藤ではありません
10 は5よりも大きい
abc はABCより大きい
[xxxxxxxx@dddddddddd If]$ 

論理積

my $old;

$old = 24;

if ($old >= 20 && $old < 30){
  print "20代です\n";
}

論理和

my ($kokugo, $sansu);

$kokugo = 58;
$sansu = 75;

if ($kokugo >= 60 || $sansu >= 60){
  print "合格です\n";
}

否定

my $seibetu;

$seibetu = "男性";

if (!($seibetu eq "女性")){
  print "女性ではありません\n";
}

my ($kokugo, $sansu);

$kokugo = 58;
$sansu = 75;

if ($kokugo >= 60 || $sansu >= 60){
  print "合格です\n";
}

my $seibetu;

$seibetu = "男性";

if (!$seibetu eq "女性"){
  print "女性ではありません\n";
}

my $seibetu;

$seibetu = "男性";

if (!($seibetu eq "女性")){
  print "女性ではありません\n";
}

サンプルプログラム

# 論理演算子
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $old;

$old = 24;

if ($old >= 20 && $old < 30){
  print "20代です\n";
}

my ($kokugo, $sansu);

$kokugo = 58;
$sansu = 75;

if ($kokugo >= 60 || $sansu >= 60){
  print "合格です\n";
}

my $seibetu;

$seibetu = "男性";

if (!($seibetu eq "女性")){
  print "女性ではありません\n";
}

[xxxxxxxx@dddddddddd If]$ perl test3-1_u.pl | nkf -w
20代です
合格です
女性ではありません
[xxxxxxxx@dddddddddd If]$ 

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

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

my $num;

$num = 5;

if ($num >= 0){
  print "正の数です";
}else{
  print "負の数です";
}

サンプルプログラム

# 条件式が偽の時の処理(if... else)
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $old;

$old = 18;

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

$old = 34;

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

[xxxxxxxx@dddddddddd If]$ perl test4-1_u.pl | nkf -w
未成年の方はご利用頂けません
ご利用頂けます
[xxxxxxxx@dddddddddd If]$ 

if (条件式1) {
    条件式1が真の時に実行する処理;
}elsif (条件式2) {
    条件式1が偽で条件式2が真の時に実行する処理;
}elsif (条件式3) {
    条件式1及び条件式2が偽で条件式3が真の時に実行する処理;
}else{
    全ての条件式が偽の時に実行する処理;
}

※else if ではなく elsif ですので注意して下さい

my $num;

$num = 5;

if ($num > 0){
  print "正の数です";
}elsif ($num < 0){
  print "負の数です";
}elsif ($num == 0){
  print "0です";
}else{
  print "その他の値です";
}

サンプルプログラム

# 複数の条件分岐(if .. elsif .. else)
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $num;

$num = 12;

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

[xxxxxxxx@dddddddddd If]$ perl test5-1_u.pl | nkf -w
数値 = 12
10以上20未満です
[xxxxxxxx@dddddddddd If]$ 

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

my $seiseki;

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

my $seiseki;

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

my $seiseki;

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

unless...else

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

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

サンプルプログラム

# unless文
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $seiseki;

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

print "お疲れ様\n";

[xxxxxxxx@dddddddddd If]$ perl test6-1_u.pl | nkf -w
合格です
おめでとう
お疲れ様
[xxxxxxxx@dddddddddd If]$ 

条件式 ? 真の時の値 : 偽の時の値;

my ($seiseki, $kekka);

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

my ($seiseki, $kekka);

$seiseki = 75;
if ($seiseki > 60){
  $kekka = "合格";
}else{
  $kekka = "不合格";
}
print $kekka;

サンプルプログラム

# 三項演算子
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my ($seiseki, $kekka);

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

[xxxxxxxx@dddddddddd If]$ perl test7-1_u.pl | nkf -w
合格
[xxxxxxxx@dddddddddd If]$ 

$count = $count - 1;

if ($count >= 1){
  $count = $count - 1;
}

$count = $count - 1 if $count >= 1;

真の時に実行する処理 if 条件式;

サンプルプログラム

# 式修飾子(if修飾子)
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

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";

[xxxxxxxx@dddddddddd If]$ perl test8-1_u.pl | nkf -w
5
-5
-5
[xxxxxxxx@dddddddddd If]$