Jei sakinys Perl kalba yra naudojamas operacijai atlikti pagal sąlygą. Naudodami if-else teiginį galite atlikti operaciją, kuri yra teisinga arba klaidinga. „Perl“ palaiko įvairius „if“ teiginių tipus:

• Jeigu
• Jei-kitaip
• Jei kitaip - jei

Perl If pavyzdys

Perl vieno if sakinys naudojamas kodui vykdyti, jei sąlyga teisinga. Jei sakinio sintaksė pateikta žemiau:

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

„If“ teiginio „Perl“ struktūrinė schema

Pažiūrėkime paprastą Perl kalbos if teiginio pavyzdį.

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

Išvestis:

 Even Number 

Čia išvestis yra lyginis skaičius, nes įvestį nurodėme kaip 10.

Perl If-else pavyzdys

Perl if-else teiginys naudojamas kodui vykdyti, jei sąlyga teisinga arba klaidinga. If-else teiginio sintaksė pateikta žemiau:

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

„Perl“ teiginio if-else schema

Pažiūrėkime paprastą lyginių ir nelyginių skaičių pavyzdį naudojant if-else teiginį Perl kalba.

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

Išvestis:

 Even Number 

Čia įvestis yra lyginis skaičius, todėl išvestis yra lyginė.

Perl If-else pavyzdys su vartotojo įvestimi

Šiame pavyzdyje naudotojo įvestį paimsime naudodami standartinę įvestį (/).

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

Išvestis:

 Enter a Number? 5 Odd Number 

 Enter a Number? 4 Even Number 

Pirmoje išvestyje vartotojas įvedė skaičių 5, kuris yra nelyginis. Taigi išvestis yra nelyginė.

Antroje išvestyje vartotojas įvedė skaičių 4, kuris yra lyginis. Taigi išvestis yra lygi.

Perl If else-if Pavyzdys

Perl if else-if sakinys vykdo vieną kodą iš kelių sąlygų. Žemiau pateikiama if else-if teiginio sintaksė:

 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 } 

„Perl“ teiginio „if else-if“ struktūrinė schema

Jei else-if teiginio Perl kalba pavyzdys pateikiamas žemiau.

 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