Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> нужна помощь со скриптом 
:(
    Опции темы
GR0Mi
Дата 14.5.2010, 08:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 9.4.2010

Репутация: нет
Всего: нет
есть код perl
также есть сайт. при заходе на сайт в куки пишется мд5 шех , ид сеси. он нужен для заголивания. скрипт много потомчный но даже при 1 потоке ошибка
скрипт конектится получает ид сесии 1 ака пробует . дальше конектится но ид сесии пустой. ето видно даже в сохраненеой странице. по чему ид сесии пустой? как сделать чтобы он либо очищал все кууки после конца цикла либо както получал етот долбаный мд5 снова

Код

 my $resp = $ua->post("http://forum.ru/loginflat.aspx")->as_string; 
 my ($sid) = $resp =~ /_session_id=([0-9a-f]{32})/i; 
     print  $sid; 
         $resp = $ua->post("http://forum.ru/loginflat.aspx", 
                            ["Login" => $login, 
                             "password" => $pass, 
                             "save" => "on", 
                             "jsenabled" => "true", 
                             "ssid" => $sid, 
                             "backURL" => "%2Fdefault.aspx%3F",])->as_string; 


       
   
        if ($resp =~ "Р’С…РѕРґ осуществлен!") 


нужно чтобы очищало куки и все что получилось в конце цикла. если ставить 5 потоков получает 5 сесий. дальше не получает ид сесии
PM MAIL   Вверх
shamber
Дата 14.5.2010, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1422
Регистрация: 5.9.2006
Где: Россия

Репутация: 17
Всего: 18
GR0Mi, я в шоках. текст так и не осилил
PM MAIL Jabber   Вверх
dva300
Дата 15.5.2010, 05:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 17.2.2010
Где: Москва

Репутация: -1
Всего: 1
Цитата(shamber @ 14.5.2010,  21:16)
GR0Mi, я в шоках. текст так и не осилил

shamber - ты не одинок
не первый раз вижу сообщения это "кулибина" которому слабо сеть и книжку почитать. легче нам мозг сломать  smile 

P.S. а главное ВЫУЧИТЬ РУССКИЙ ЯЗЫК !

Это сообщение отредактировал(а) dva300 - 15.5.2010, 19:23
--------------------
Участник движения Культура Вождения
PM   Вверх
OutlawZ
Дата 17.5.2010, 09:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

Репутация: нет
Всего: нет
Так так, ужасно, я лично не вижу в коде где он у вас с куками работает, срочно качайте и изучайте Русская LWP документация. Там написано как правильно пользоваться LWP библиотекой, а то у вас простите полный кошмар. 


--------------------
user posted image
user posted image
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0550 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.