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

• 2020-10-13
• daafoor

• برمجة | Programming
• اكواد برمجية برمجة
• برمجة بيرل | Perl programming
• اكواد برمجية برمجة بيرل
• اكواد برمجية

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';}  
}