Как бороться с русским языком
Появилась необходимость выводить число баллов вместе с русским словом «балл».
Нюанс в том, что:
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;
}
