Операторът if на езика Perl се използва за извършване на операция въз основа на условие. С помощта на оператор if-else можете да извършите операция, независимо дали условието е вярно или невярно. Perl поддържа различни типове оператори if:

• Ако
• Ако-иначе
• Ако иначе-ако

Пример за Perl If

Инструкцията Perl single if се използва за изпълнение на кода, ако условието е вярно. Синтаксисът на израза if е даден по-долу:

 if(expression){ //code to be executed } 

Блок-схема на израза if в Perl

Нека видим един прост пример за оператор if на езика Perl.

 $a = 10; if( $a %2==0 ){ printf 'Even Number
'; } } 

Изход:

 Even Number 

Тук изходът е четно число, тъй като сме дали вход като 10.

Пример за Perl If-else

Инструкцията на Perl if-else се използва за изпълнение на код, ако условието е вярно или невярно. Синтаксисът на оператора if-else е даден по-долу:

 if(expression){ //code to be executed if condition is true }else{ //code to be executed if condition is false } 

Блок-схема на оператора if-else в Perl

Нека видим простия пример за четно и нечетно число, използвайки оператор if-else на езика Perl.

 $a = 10; if( $a %2==0 ){ printf 'Even Number
'; }else{ printf 'Odd Number
'; } 

Изход:

 Even Number 

Тук входът е четно число и следователно изходът е четен.

Пример за Perl If-else с въвеждане от потребителя

В този пример ще вземем вход от потребителя, като използваме стандартен вход (/).

 print 'Enter a Number?
'; $num = ; if( $num %2==0 ){ printf 'Even Number
'; }else{ printf 'Odd Number
'; } 

Изход:

 Enter a Number? 5 Odd Number 

 Enter a Number? 4 Even Number 

В първия изход потребителят е въвел число 5, което е странно. Следователно изходът е нечетен.

Във втория изход потребителят е въвел число 4, което е четно. Следователно изходът е равен.

Пример за Perl If else-if

Операторът на Perl if else-if изпълнява един код от множество условия. Синтаксисът на оператора if else-if е даден по-долу:

 if(condition1){ //code to be executed if condition1 is true }else if(condition2){ //code to be executed if condition2 is true } else if(condition3){ //code to be executed if condition3 is true } ... else{ //code to be executed if all the conditions are false } 

Блок-схема на оператора if else-if в Perl

Примерът за оператор if else-if на езика Perl е даден по-долу.

 print 'Enter a Number to check grade
'; $num = ; if( $num 100){ printf 'Wrong Number
&apos;; }elsif($num &gt;= 0 &amp;&amp; $num = 0 &amp;&amp; $num = 60 &amp;&amp; $num = 70 &amp;&amp; $num = 80 &amp;&amp; $num = 90 &amp;&amp; $num <= 100){ printf 'a+ grade
'; } < pre> <p>Output:</p> <pre> Enter a Number to check grade 66 C Grade </pre> <pre> Enter a Number to check grade 2 Wrong Number </pre></=>

 Enter a Number to check grade 2 Wrong Number