Perl-Нөхцөл шалгах үйлдэл

perl дээр 5 төрлийн нөхцөл шалгах үйлдэл байдаг.
1.if (EXPR)
2.if (EXPR) BLOCK
3.if (EXPR) BLOCK else BLOCK
4.if (EXPR) BLOCK elsif (EXPR) BLOCK ...
5.if (EXPR) BLOCK elsif (EXPR) BLOCK ... else BLOCK
1. if (EXPR)- энгийн нөхцөл шалгах үйлдэл. ямар нэгэн block байхгүй

print "Happy Birthday!\n" if ($date == $today); # нөхцөл үнэн бол хэвлэх

2. if (EXPR) BLOCK
if ($date == $today)
{
   print "Happy Birthday!\n";
}

3.if ($date == $today)
{
   print "Happy Birthday!\n";
}
else
{
   print "Happy Unbirthday!\n";
}
4.
if ($date == $today)
{
   print "Happy Birthday!\n";
}
elsif ($date == $christmas)
{
   print "Happy Christmas!\n";
}
 
5.
if ($date == $today)
{
   print "Happy Birthday!\n";
}
elsif ($date == $christmas)
{
   print "Happy Christmas!\n";
}else
{
   print "Happy Unbirthday!\n";
}

unless нь if ийн эсрэг нөхцөл шалгадаг.

print "Happy Unbirthday!\n" unless ($date == $today);

код нь дараах нөхцөл шалгах үйлдэлтэй адил юм.

print "Happy Unbirthday!\n" if ($date != $today);

unless нь нөхцөл худлаа байгаа бол block үйлдэл биелэгддэг. Харин if үнэн байгаа бол биелэгддэг.
мөн нөхцөлт үйлдэл байдаг
(expression) ? (statement if true) : (statement if false) syntax аар бичэгдэнэ.

($date == $today) ? print "Happy B.Day!\n" : print "Happy Day!\n"