![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
Materium |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 4.12.2006 Где: Питер Репутация: нет Всего: 2 |
Да спасибо я понял. В принципе это и незачем делать особо. ))) Можно наверное замутить страшный труд, но он того не стоит. Можно чтобы страничка тока под IE грузилась, и там ещё сотню проверок, но это нафиг не нужно никому. )))
Вот что мне пока не понятно, так это создание Роботов, вирт. браузеров. Точнее их работа, синтаксис и команды. где можно прочесть FAQ, по какому адресу? было бы супер если б он был на русском языке. Вот предположим простую задачку хочу решить. Есть чат. хочу написать робота, который бы там постоянно присутствовал. То есть передать некоторому сценарию cgi ник и пароль для ника, но всё нужно подать методом POST. Начало такое вроде: use HTTP:Request:: Common qw(POST); use LWP::UserAgent; $ua=LWP::UserAgent->new(); my $req = POST 'http://www.tipa.ru/bin/tipa.cgi?nick=Dima&pass=123'; $content=$ua->request($req)->as_string; Дальше не знаю. Не знаю что такое as_string. Как строку что ли отправить\получить? Хорошо, предположим мне записывать в $content ничего не нужно. Тогда получается просто $ua->request($req); ??? Если мы используем запрос POST, я правильно оформил $req? Ведь это же оформление запроса GET? Или я что-то путаю? Далее: предположим вошли в чат и робот там тусует. У меня пока единственный вопрос: я запускаю этот скрипт на серваке просто по энтеру. Вопрос: как остановить долбаного запущеного робота, чтобы он свалил из чата, не написав в самом скрипте сессию, по окончанию которой просто exit;??? ---- + как поднимать ваш рейтинг? мне что нужно 100 сообщений сначала написать? )))))) --------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok"; |
|||
|
||||
nitr |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 12 Всего: 84 |
Materium, ух... для начала... набери команды
perldoc LWP perldoc LWP::UserAgent perldoc HTTP::Request это мы читаем документацию к модулям... либо открой папочку где установлен Perl , там есть папка html, в ней очень много доков. Очень хорошие примеры. Можешь с помощью них натестироваться сколько угодно ![]() Но можно сделать и на IO::Socket, т.е. сделать твоего робота, а называют их "ботами" на сокетах. Обычно быстрее работает, но требует опред. навыков. Это сообщение отредактировал(а) nitr - 15.12.2006, 16:47 |
|||
|
||||
Materium |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 4.12.2006 Где: Питер Репутация: нет Всего: 2 |
)))
--------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok"; |
|||
|
||||
nitr |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 12 Всего: 84 |
вам смешно? ![]() Что же смешного я сказал, или вас форма общения с вами расмешила? ![]() Слишком много лишнего у вас... Поэтому рекомендации по прочтению документаций (они благо в комплекте с перл), а если и нет, то есть в разделе Документации (Переводы) данного форума. Кстати вот если нужно конкретно "робота" можно прочесть perldoc LWP::RobotUA Совет дня: для нормального восприятия вашего кода пользуйтесь возможностями форума ![]() ![]() Materium, прочтите подпись у Nab'а ;) |
|||
|
||||
Materium |
|
|||
![]() Шустрый ![]() Профиль Группа: Участник Сообщений: 127 Регистрация: 4.12.2006 Где: Питер Репутация: нет Всего: 2 |
Ну начнём с того что ")))" я поставил для галки что типа топик выполнен.
Книг у меня теперь много, от тонкой до Кэмэла за 800 рэ. На этом же форуме достал переведённые доки LWP в формате pdf и т.д. можно было кста их рекомендовать )) perldoc вроде более скупо, по крайне мере мне дилетанту не понравилось. С остальным согласен, кроме, может быть того, что Короб меня обучает. Просто так кажется, вы решаете сложные объёмные задачи с высоты вашего опыта. А я пока небольшие, может быть иногда мелкие совсем. Если этот форум для супер-пупер хакеров - я найду другой. В противном случае никто же не обязывает вас или Короба отвечать мне, найдутся середнечки кто ответят, кто ещё вчера был на моём месте. --------------------
#!sub abc {return "ok"}${&abc()}="TMTOWTDI";print "$ok"; |
|||
|
||||
nitr |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 12 Всего: 84 |
Materium, а при чём тут хакеры?
тут программисты ;) Хорошо, что есть книги. |
|||
|
||||
korob2001 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 13 Всего: 61 |
Модератор: Тема закрыта
-------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl: CGI программирование" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: разработка для Web | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |