Comments 13
Ладно, Perl я еще понимаю, но ICQ?
Не учите детей гадостям, лучше бы про Jabber сделали, куда полезней было бы!
Не учите детей гадостям, лучше бы про Jabber сделали, куда полезней было бы!
И ваще sleep(5)ж — это не ок.
Так кашерней!
use Time::HiRes qw(usleep);
usleep(100);
Так кашерней!
Да, в следующий раз можно и жабробот сделать.
Хотя каждому своё — кому нужно icq, тому пригодится.
Хотя каждому своё — кому нужно icq, тому пригодится.
На CPAN-е есть под AnyEvent и POE, на выбор. Беспроблемно можно и на Modjo сделать, очень просто будет.
А это уже задание на 5+ я полагаю.
с ICQ еще как полезно — вешать на свой юин бота, который отвечал бы «обращайтесь в мой джаббер, тут меня уже нет» :)
Тоже думал о подобной статье, но про IRC/DC++ (хотя последней не пользуюсь, но больно уж протокол там простой). Как думаете, будет интересна такая тема?
Автор, ты бы хоть единой стилистики кода придерживался, а то создается впечатление, что скрипт был собран из кусков, которые ты практически не трогал.
Почему $path локальная переменная внутри функции, логичнее было бы её вынести туда же, где задается uin и пароль. Вместо stat стоило бы -s написать, это читабельность кода повысит, т.к. не каждый помнит порядок, возвращаемый функцией stat. Скобки и кавычки местами тоже создают, гм, двоякое впечатление.
Почему $path локальная переменная внутри функции, логичнее было бы её вынести туда же, где задается uin и пароль. Вместо stat стоило бы -s написать, это читабельность кода повысит, т.к. не каждый помнит порядок, возвращаемый функцией stat. Скобки и кавычки местами тоже создают, гм, двоякое впечатление.
Действительно, нет предела совершенству.
Возможно, лучше вывести основную программу в main(). И переменную $path определять там вместе с l/p, и вызывать CheckTasks($path)
Писался скрипт постепенно, по мере копания в немного путаной документации Net::OSCAR.
Возможно, впечатление портят неровные отступы — с непривычки не разобрался с подсветкой синтаксиса.
Возможно, лучше вывести основную программу в main(). И переменную $path определять там вместе с l/p, и вызывать CheckTasks($path)
Писался скрипт постепенно, по мере копания в немного путаной документации Net::OSCAR.
Возможно, впечатление портят неровные отступы — с непривычки не разобрался с подсветкой синтаксиса.
А в java как такое сделать?
там же своя машина — форка нет. я столкнулся с этим, правда решил работать через threads — для одного решения сработало.
Как запустить просто параллельный процесс?
там же своя машина — форка нет. я столкнулся с этим, правда решил работать через threads — для одного решения сработало.
Как запустить просто параллельный процесс?
Sign up to leave a comment.
Пишем icq-бот на perl