يتم استخدام عبارة if في لغة Perl لتنفيذ العملية على أساس الشرط. باستخدام عبارة if-else، يمكنك إجراء العملية سواء كان الشرط صحيحًا أو خطأ. يدعم Perl أنواعًا مختلفة من عبارات if:

• لو
• إذا كان غير ذلك
• إذا كان آخر، إذا

بيرل إذا مثال

يتم استخدام عبارة Perl المنفردة if لتنفيذ التعليمات البرمجية إذا كان الشرط صحيحًا. بناء جملة عبارة if موضح أدناه:

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

مخطط انسيابي لبيان if في بيرل

دعونا نرى مثالاً بسيطًا للغة Perl if.

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

انتاج:

 Even Number 

هنا، الإخراج هو رقم زوجي حيث أننا أعطينا المدخلات كـ 10.

بيرل إذا كان آخر مثال

يتم استخدام عبارة 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 رمزًا واحدًا من شروط متعددة. بناء جملة 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