Я, наверное, буду преподавать )
Комментарии отключены
Возможно со следующей недели буду преподавать Delphi (который не знаю) у старшеклассников 
Archive for the ‘Программирование’ Category
04
Ноя
2008
Ноя
2008
19
Сен
2008
Сен
2008
Как бороться с русским языком
Комментарии отключены
Появилась необходимость выводить число баллов вместе с русским словом “балл”.
Нюанс в том, что:
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;
}
03
Июн
2008
Июн
2008
Запуск двух проектов
Комментарии отключены
На этой неделе целых два старта моих проектов.
1) Обновленная версия поросей на сервере timezero
2) Новый проектик, хочу поднять на нем пару тысяч посетителей, а там будет видно. Антон Уральский.
Посмотрим что из всего этого выйдет )
11
Апр
2008
Апр
2008
Перенаправление на www
Комментарии отключены
Вчера занимался оптимизацией и передо мной встала следующая задача: при запросе URL сайта без префикса WWW необходимо делать переадресацию с ответом сервера HTTP/1.1 301/302 Moved Permanently/New location на соответствующий URL с префиксом WWW.
Решение оказалось простым, банальным, но изящным )
$host = $ENV{‘SERVER_NAME’};
$vHOST = “http://www.$host”;
…
# Перенаправляем на WWW
if ($ENV{‘HTTP_HOST’}=~/www./) {
# Всё ок, дядя!
} else {
$toloc = $vHOST.$ENV{‘REQUEST_URI’};
print <<EOF;
Content-type: text/plain
Status: 302 New location
Location: $toloc
EOF
#>
exit;
}