Как бороться с русским языком

Появилась необходимость выводить число баллов вместе с русским словом “балл”.
Нюанс в том, что:
0 – баллов
1 – балл
2 – балла
3 – балла

5 баллов

10 – баллов
11 – баллов

21 – балл
22 – балла

121 – балл

Придумал решение:


$word = &ball($rating);

sub ball {

my $number = shift;

$res1 = substr($number,length($number)-1,1);
$res2 = substr($number,length($number)-2,1);
if (($res1 eq 1) && ($res2 ne 1)) {$res1 = “балл”;}
elsif (($res1>=2) && ($res1<=4) && ($res2 ne 1)) {$res1 = “балла”;} #>
else {$res1 = “баллов”;}

return $res1;

}


Читать далее