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

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

}


Читать далее

Вездеходик сломался!

На подъезде к дому забыл про ямку. Результат:

Вездеходик сломался!

Минус 2 покрышки. Они обе такие ) Ещё немного досталось одному диску, второй пережил вечер без потерь. Проблемно было найти такие же новые покрышки, в сети магазинов “Автоколесо” их было по одному баллону в двух магазинах, но нашел по пути сразу 2 в “Фаворите”.
Пользуясь случаем, передаю привет дорогому СберБанку, чей банкомат отказался выдавать мне деньги ) Спасибо УралСибу! )
Очередь на бесплатный шиномонтаж была большой, поехал обратно в “Автоколесо”, там быстренько перекинул резину и поехал менять вездеходику гусеницы.
Очень помог Никита Надорожный, еще раз спасибо!

Прям какая-то реклама/антиреклама получилась ))

Цена вчерашнего катания – 3.5к + немного невосстанавливающихся нервных клеток )
Читать далее