Příkaz if v jazyce Perl se používá k provádění operace na základě podmínky. Pomocí příkazu if-else můžete provést operaci buď podmínka pravdivá nebo nepravdivá. Perl podporuje různé typy příkazů if:

• Li
• Pokud-jinak
• Kdyby jinak-kdyby

Příklad Perl If

Příkaz Perl single if se používá ke spuštění kódu, pokud je podmínka pravdivá. Syntaxe příkazu if je uvedena níže:

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

Vývojový diagram příkazu if v Perlu

Podívejme se na jednoduchý příklad příkazu if v jazyce Perl.

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

Výstup:

 Even Number 

Zde je výstup sudé číslo, protože jsme zadali vstup jako 10.

Perl If-else Příklad

Příkaz if-else v Perlu se používá ke spuštění kódu, pokud je podmínka pravdivá nebo nepravdivá. Syntaxe příkazu if-else je uvedena níže:

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

Vývojový diagram příkazu if-else v Perlu

Podívejme se na jednoduchý příklad sudého a lichého čísla pomocí příkazu if-else v jazyce Perl.

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

Výstup:

 Even Number 

Vstup je zde sudé číslo a tedy výstup je sudý.

Příklad Perl If-else se vstupem od uživatele

V tomto příkladu převezmeme vstup od uživatele pomocí standardního vstupu (/).

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

Výstup:

 Enter a Number? 5 Odd Number 

 Enter a Number? 4 Even Number 

V prvním výstupu uživatel zadal číslo 5, které je liché. Výstup je tedy lichý.

Ve druhém výstupu uživatel zadal číslo 4, které je sudé. Výstup je tedy rovnoměrný.

Perl If else-if Příklad

Příkaz Perl if else-if provede jeden kód z více podmínek. Syntaxe příkazu if else-if je uvedena níže:

 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 } 

Vývojový diagram příkazu if else-if v Perlu

Příklad příkazu if else-if v jazyce Perl je uveden níže.

 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