Продолжаю заниматься в свободное время Укоротнялкой адресов (URL shortener) — weeg.ru. Проектик увлекает, код закручивается, заворачивается во всякие обертки все больше. Последнее время работал над API, с помощью которого можно делать разные вещи, такие как получить статистику по дням или общее количество переходов (для счетчика какого-нибудь подойдет), или получить короткую ссылку прямо из какого-нибудь скрипта, получив на запрос код в XML.

Посмотреть ридми по апи можете по адресу api.weeg.ru.

С конца прошлого, 2010, года пишу сабж — weeg.ru. Для себя, любимого, для тренировки ума и повышения организованности мысли.

• Язык программирования — Perl,
• Сервер баз данных — MySQL,
• Таблички в InnoDB,
• Web-сервер — Lighttpd (с настроеным rewrite).

Подыскиваю короткий домен для укорачивалки, потому что текущий — уж очень длинный для текущих нужд. Уже нашел короткий домен.

Что уже есть:

• собственно, получение короткого URL;
• статистика по переходам;
• при получении короткой ссылки проверяется цель.

Что планируется:

• Добавить автоматическое создание превью страницы
• Добавить статистику по паролю
• Расширенную статистику (по странам, браузерам, языкам и прочим параметрам)
• Ну и сделать хоть какой-то дизайн.

2010-01-12
UPD: Сделал с помощью жены и Витальки Бакланова какой-то диз — спасибо им большое. А еще привесил на короткое имя — weeg.ru — не спрашивайте что это значит, потому что просто свободный короткий домен. Пусть будет именем собственным.

Недельку назад я взял отпуск «на поучиться». Закрыть немножко долгов, вылезших после восстановления на 5 курс, немного отдохнуть, ну и в этом духе. Самое интересное — постоянное чувство то ли субботы, то ли воскресенья вот уже полторы недели (-%

А еще — взял халтурок, теперь работаю дома, ломаю голову над тем, как бы из WordPress’a сделать аццкий мега-сайт (-: нет, не пинайте меня, про SLAED, Joomla я в курсе. Но все не то как-то. Функционал есть, но не тот, который мне нужен. Пишу вот теперь модули к WP на PHP. Ужаснах.

Голову ломаю и так и этак, а все почему: опыта не хватает. Но, будем надеяться, что все окончится удачно для всех.

Пару дней ездил на учебу. Дух студенчества — это уже что-то такое далекое, что даже не хочется в это окунаться опять. Наверное правильно говорят, что всему свое время. Хотя подумалось тут же, что главное начать, а потом втянусь.

Так что, отпуск удается.

___

И еще:

На iwalk.ru не просто про летчика, а про летчика Лёху (-; а у Креативного кота вы найдете про расценки на иллюстрации за бугром.

Обозреватель интернета Тёмма Майнас делится своими заметками о новшествах в работе Блогуна.

А Александр Горбунов задается вопросом «Почему же Чубайс?» и вспоминает слово «ваучер». Я его уже даже забыл давно (-:

Да-да. Я снова начал програмировать на Perl. Хочу написать небольшой поисковичек по локальным ftp-ресурсам моей домашней сети. А прежде всего столкнулся с проблемой сканирования сети на предмет доступных ftp-серверов с разрешеным доступом для анонимуса. Набросав небольшой скриптец, запустив его — понял, что для сканирования сети 10/10 потребуется 5*255*255*63 = 20482875 секунд или больше 250 дней (-; и тогда я подумал: «к черту! а зачем придумали многопоточность?» к тому же моя домашняя FreeBSD 7.0 с двуядерным Xeon E3110 достаточно хорошо должна стправиться с такими приложениями. И я начал копать в эту сторону.

Для начала надо было пересобрать Perl с поддержкой многопоточности. Сделано.

Можно создавать потоки как с контролем за жизнью, так и без контроля (типа запустил и забыл).

В первом случае используем:

threads->create(\&mySub,$param)->join;

А во втором:

threads->create(\&mySub,$param)->detach;

Ежели нам надо запустить кучу тредов и не дать основному скрипту закончить работу до окончания работы потоков, можно использовать такую конструкцию:

foreach (1..$numThreads) {
threads->create(\&mySub,$param);
};

foreach (threads->list) { $_->join; };

list — возвращает список потоков, для которых еще не применили join или detach.

Ну вот и основное, что я пользую нынче в многопоточных приложениях на Perl. Надеюсь, не последний пост на эту тему (-;

____

И еще:

Интересный SEO-блог Дмитриева Романа.

Дракасмит сделал RE: дизайн, а у Креативного кота глючит CuteFTP

Вчера решил заняться тестированием производительноси домашнего сайта на моей новой машинке.

Сайт из себя представляет набор скриптов на PERL, данные хранятся в MySQL, крутится все по управлением Apache 2.2, на FreeBSD 7.0-STABLE-amd64. Тестирование производил по методике. описанной тут.

Первая страница, с десятью запросами в секунду, результаты:

218 fetches, 373 max parallel, 578562 bytes, in 60.1658 seconds
2653.95 mean bytes/connection
3.62332 fetches/sec, 9616.13 bytes/sec
msecs/connect: 0.240661 mean, 0.556 max, 0.064 min
msecs/first-response: 9699.27 mean, 34719.9 max, 207.924 min
210 bad byte counts
HTTP response codes:
code 200 — 109

Небыстро, подумал я. Неужно, PERL такой медленный получается? Или просто код неоптимизированый? Написал на Коленке быстренько скрипт на php, выбирающий все записи из таблицы (более тысячи записей, размер табицы 1.8 Мегабайт). Результаты:

598 fetches, 11 max parallel, 1.06257e+09 bytes, in 60 seconds
1.77688e+06 mean bytes/connection
9.96666 fetches/sec, 1.77096e+07 bytes/sec
msecs/connect: 0.0724348 mean, 0.295 max, 0.048 min
msecs/first-response: 174.208 mean, 999.469 max, 138.848 min
HTTP response codes:
code 200 — 598

Молодец, PHP, все отдал. все быстренько. Своял такой же (тот же запрос, та же отдача) скрипт на PERL. Удивился:

599 fetches, 1 max parallel, 1.06428e+09 bytes, in 60 seconds
1.77676e+06 mean bytes/connection
9.98333 fetches/sec, 1.7738e+07 bytes/sec
msecs/connect: 0.0690417 mean, 0.217 max, 0.054 min
msecs/first-response: 47.338 mean, 53.21 max, 47.066 min
HTTP response codes:
code 200 — 599

При том, что время отдачи минимальное чуть больше, чем у php, perl более стабилен в хороших результатах. Продолжив эксперименты дальше — увеличил количество запросов до 50 в секунду, perl сдался:

1780 fetches, 464 max parallel, 2.80196e+09 bytes, in 60.0368 seconds
1.57413e+06 mean bytes/connection
29.6485 fetches/sec, 4.66707e+07 bytes/sec
msecs/connect: 106.043 mean, 3271.55 max, 0.052 min
msecs/first-response: 3265.43 mean, 8278.56 max, 0.206 min
203 bad byte counts
HTTP response codes:
code 200 — 1577

У PHP:

2992 fetches, 24 max parallel, 5.31642e+09 bytes, in 60.0002 seconds
1.77688e+06 mean bytes/connection
49.8665 fetches/sec, 8.86068e+07 bytes/sec
msecs/connect: 0.208658 mean, 7.537 max, 0.049 min
msecs/first-response: 156.402 mean, 5042.3 max, 138.581 min
HTTP response codes:
code 200 — 2992

Львиная доля производительности при исполнения скрипта на PERL, тратится на запуск отдельного экземпляра PERL-интерпретатора, в отличие от исполняемого php-скрипта как модуля Apache. 50 запросов в секунду на моем домашнем сайтике — это фантастическая величина. Но, чтобы было все хорошо, надо либо переписывать все на php, либо экспериментировать с mod_perl, ну или заняться аццкой оптимизацией существующего кода. Но это уже совсем другая песня.