Пишем icq-бот на perl

[Tenkoff]

Ладно, Perl я еще понимаю, но ICQ?

Не учите детей гадостям, лучше бы про Jabber сделали, куда полезней было бы!

[Tenkoff]

И ваще sleep(5)ж — это не ок.

use Time::HiRes qw(usleep);
usleep(100);

Так кашерней!

[Tenkoff]

Я про то, что юзать юслип, что бы не убить проц пустым лупом :)
А вообще лучше это как-то на евентах сделать, а не циклодрочем.

[SLY_G]

Да, в следующий раз можно и жабробот сделать.
Хотя каждому своё — кому нужно icq, тому пригодится.

[khizhaster]

На CPAN-е есть под AnyEvent и POE, на выбор. Беспроблемно можно и на Modjo сделать, очень просто будет.

[FSA]

А это уже задание на 5+ я полагаю.

[ZiggiPop]

с ICQ еще как полезно — вешать на свой юин бота, который отвечал бы «обращайтесь в мой джаббер, тут меня уже нет» :)

[divanikus]

Тоже думал о подобной статье, но про IRC/DC++ (хотя последней не пользуюсь, но больно уж протокол там простой). Как думаете, будет интересна такая тема?

[Xarakternik]

Первого с утра любая тема интересная!

[Styu]

Автор, ты бы хоть единой стилистики кода придерживался, а то создается впечатление, что скрипт был собран из кусков, которые ты практически не трогал.
Почему $path локальная переменная внутри функции, логичнее было бы её вынести туда же, где задается uin и пароль. Вместо stat стоило бы -s написать, это читабельность кода повысит, т.к. не каждый помнит порядок, возвращаемый функцией stat. Скобки и кавычки местами тоже создают, гм, двоякое впечатление.

[SLY_G]

Действительно, нет предела совершенству.

Возможно, лучше вывести основную программу в main(). И переменную $path определять там вместе с l/p, и вызывать CheckTasks($path)

Писался скрипт постепенно, по мере копания в немного путаной документации Net::OSCAR.

Возможно, впечатление портят неровные отступы — с непривычки не разобрался с подсветкой синтаксиса.

[eaa]

А в java как такое сделать?
там же своя машина — форка нет. я столкнулся с этим, правда решил работать через threads — для одного решения сработало.

Как запустить просто параллельный процесс?

[khizhaster]

А «google java threads» уже не спасает? :) Как-то неприлично в топике и блоге про Perl спрашивать о Java. Тем более то, что можно найти за 5 секунд в любой книге либо в интернете.