You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
442 B
Perl
20 lines
442 B
Perl
$metQuota = 0;
|
|
$didNotMeetQuota = 0;
|
|
$employeeCounter = 1;
|
|
|
|
while ( $employeeCounter <= 10 ) {
|
|
print "Enter quota result, (yes or no): ";
|
|
chomp( $result = <STDIN> );
|
|
|
|
$result eq 'yes' ? ++$metQuota : ++$didNotMeetQuota;
|
|
|
|
$employeeCounter++;
|
|
}
|
|
|
|
print "\nMet quota: $metQuota\n";
|
|
print "Failed to meet quota: $didNotMeetQuota\n";
|
|
|
|
if ( $metQuota > 8 ) {
|
|
print "Raise holiday bonuses!\n";
|
|
}
|