TechCodeview

Naredba if u jeziku Perl koristi se za izvođenje operacije na temelju uvjeta. Korištenjem naredbe if-else možete izvršiti operaciju bilo da je uvjet istinit ili lažan. Perl podržava razne vrste if naredbi:

• Ako
• Ako-drugače
• Ako inače-ako

Perl If Primjer

Perl single if naredba koristi se za izvršavanje koda ako je uvjet istinit. Sintaksa if naredbe data je u nastavku:

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

Dijagram toka naredbe if u Perlu

Pogledajmo jednostavan primjer if naredbe jezika Perl.

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

Izlaz:

 Even Number 

Ovdje je izlaz paran broj jer smo unijeli 10.

Perl If-else primjer

Perl if-else izjava koristi se za izvršavanje koda ako je uvjet istinit ili lažan. Sintaksa if-else naredbe data je u nastavku:

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

Dijagram toka naredbe if-else u Perlu

Pogledajmo jednostavan primjer parnog i neparnog broja korištenjem if-else naredbe u Perl jeziku.

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

Izlaz:

 Even Number 

Ovdje je ulaz paran broj i stoga je izlaz paran.

Perl If-else primjer s unosom korisnika

U ovom primjeru unos od korisnika uzet ćemo pomoću standardnog unosa (/).

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

Izlaz:

 Enter a Number? 5 Odd Number 

 Enter a Number? 4 Even Number 

U prvom izlazu korisnik je unio broj 5 koji je neparan. Stoga je izlaz neparan.

U drugom izlazu korisnik je unio broj 4 koji je paran. Stoga je izlaz ravnomjeran.

Perl If else-if Primjer

Perl if else-if naredba izvršava jedan kod iz više uvjeta. Sintaksa naredbe if else-if data je u nastavku:

 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 } 

Dijagram toka naredbe if else-if u Perlu

Primjer if else-if naredbe u jeziku Perl dan je u nastavku.

 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