امثلة على العبارات الشرطية IF ELSE في لغة Perl

العبارات الشرطية :

العبارات الشرطية تسمح لنا بتنفيذ كتلة من التعليمات البرمجية عندما يكون الشرط المحدد صحيحًا.

يقيم الشرط القيم المنطقية TRUE أو FALSE ويتم اتخاذ القرار بناءً على هذه القيم المنطقية.

 مثال لمعرفة ان كان عدد معين زوجي :

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

ويمكننا استخدام if-else حيث  انه إذا كانت قيمة الشرط المعطى صحيحة ، فعندئذ يتم تنفيذ if وإذا كان الشرط المعطى خاطئًا ؛يتم تنفيذ else

مثال عن استخدام if else :

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

نفس المثال السابق لكن العدد يتم ادخاله من المستخدم :

print "Enter a Number?\n";  
$num = <>;  
if( $num %2==0 ){  
    printf "Even Number\n";  
}else{   
    printf "Odd Number\n";  
}  

مثال عن if else if :

print "Enter a Number to check grade\n";  
$num = <>;  
if( $num < 0 || $num > 100){  
    printf "Wrong Number\n";  
}elsif($num >= 0 && $num < 50){   
    printf "Fail\n";  
}elsif($num >= 0 && $num < 60){   
    printf "D Grade\n";  
}elsif($num >= 60 && $num < 70){   
    printf "C Grade\n";  
}elsif($num >= 70 && $num < 80){   
    printf "B Grade\n";  
}elsif($num >= 80 && $num < 90){   
    printf "A Grade\n";  
}elsif($num >= 90 && $num <= 100){   
    printf "A+ Grade\n";  
}