Posts Tagged ‘perl’
27
Окт
2009
Окт
2009
18
Сен
2009
Сен
2009
Отчёт о Дне Программиста
Немного времени спустя пишу о Дне Программиста. Событий за время моего отсутствия на блоге прошло достаточно много, эмоции улеглись, но пишу то, что запомнилось.
02
Сен
2009
Сен
2009
Вконтакт, группы, Google Chart
Готовлю к финалу 3 своих новых скрипта. Сегодня закончил черновую версию последнего.
24
Авг
2009
Авг
2009
Автоматическое обновление статуса ВКонтакте
Опубликовал сначала на Хабре, теперь здесь.
Написал небольшой скрипт для автоматического обновления статуса в социальной сети ВКонтакте. Скрипт написан за полчаса, ничего сложного в нем нет. Толчком для написания стало желание побаловаться, в процессе возникла еще пара интересных идей, которые я осуществлять не планирую, может кого-то наведу на мысль и буду рад. Не будем голословничать, приступаем к делу.
Read the rest of this entry »
12
Авг
2009
Авг
2009
DLE -> WP
Комментарии отключены
Раз собрался переходить на WP, то придется писать конвертер базы. Появилась идея сделать его не для единичного пользования, а для широких масс, быть может кому и пригодится?
По теме нашел пока только прикладную софтину DLE2WP, которая удаленно коннектиться к MySQL-базе DLE и сохраняет все посты в XML-файл. Работоспособность еще не проверял, к тому же еще необходимо разрешить внешние соединения для MySQL.
Read the rest of this entry »
17
Апр
2009
Апр
2009
Двигаемся
Комментарии отключены
Ура! У меня будет новый паспорт! 
Закончил квест по сдаче документов, получил в какой-то управляющей конторе справку о том, где я был прописан на момент 6 февраля 1992 года (ну что за ебанизм, какие придурки только такие хуйни выдумывают), сходил в РОВД, там четверг неприемный день. Пошел в ЖЭУ, там добрая тетечка (большое спасибо ей) приняла все документы и завтра их отнесет сама в РОВД. Как иногда заебывает бюрократия!
Закончена техническая часть для приложения для Вконтакта. Теперь оформление, оформление, оформление. Попутно появилось много интересных идей.
Был сегодня на субботнике во дворе, надо же когда-то убирать срач, правда? В очередной раз убедился в поговорке «чисто не там, где убирают, а там, где не сорят».
Ещё убедился, что связка Flash + Perl + MySQL является крайне мощной и эффективной. Жаль, что я не знаю Flash, но есть повод начать учить. У меня когда-то был небольшой опыт, поработал с Shape/Motion, со Scene, чуть-чуть с AS и на этом закончил. Надо учить, надо. Поработав с Михаилом из TimeZero, понял, насколько удобно и приятно работать с профессионалами и людьми, которые тебя понимают.
Read the rest of this entry »
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;
}
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;
}
