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

عبارة Switch  :

تُستخدم عبارة حالة Switch لتجنب السلسلة الطويلة لعبارة if-else. إنه الشكل المبسط لبيان if-else المتداخلة.

تقارن قيمة المتغير بالحالات المتعددة ، وإذا تم العثور على تطابق ، فإنه ينفذ كتلة من العبارة المرتبطة بهذه الحالة المعينة.

مثال عن استخدام Switch  :

use feature qw(switch say);  
print "Enter a Number\n ";  
chomp( my $grade = <> );  
given ($grade) {  
    when ('10') { say 'It is 10' ;}  
    when ('20') { say 'It is 20' ;}  
    when ('30') { say 'It is 30' ;}  
    default { say 'Not 10, 20 or 30';}  
}