Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > нужна помощь со скриптом

Автор: GR0Mi 14.5.2010, 08:17

есть код 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 сесий. дальше не получает ид сесии

Автор: shamber 14.5.2010, 21:16

GR0Mi, я в шоках. текст так и не осилил

Автор: dva300 15.5.2010, 05:24

Цитата(shamber @ 14.5.2010, 21:16)

GR0Mi, я в шоках. текст так и не осилил

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

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

Автор: OutlawZ 17.5.2010, 09:42

Так так, ужасно, я лично не вижу в коде где он у вас с куками работает, срочно качайте и изучайте http://perldoc.narod.ru/LWP-spec.pdf. Там написано как правильно пользоваться LWP библиотекой, а то у вас простите полный кошмар.