Vsem prijatnogo vremeni sutak ja vot nashol forum : http://89.136.42.95 No nekak nemogu razobratsa kak zdelot SQL injection . Moshet ktonibut obesnit
Появился такой вопросик, Перл скрипт отрабатывает все свои функции ( коннект к серверу,сбор инйы в файл,отправка инфы на почту) по окончании операции выводит All done(в браузере) дак вот иногда бывает такое что all done выведено но скрипт еще работает,хотя ничего не обрабатывает и соотвественно спустя немного времени Firefox выдает Соединение сброшено сервером. что посоветуетЕ?
А вывод "All done" стоит перед самым завершением работы скрипта? попробуй Code: # ... # many code lines # ... print "All done\n"; exit 0;
помогите выпарсить setselected номер (в данном примере должно найтись 12236571) плиз <a style="color:fff; font-size:12px;" href="http://www.xxxx.ru/?setselected=12236571&setlocation=view_profile&setarea=view_profile&savelast=1">dianne1952</a>
как удалить повоторы в массиве ? в нем такие данные (примерно) 1556850 1556850 1556850 1556850 1556850 5833033 5833033 5833033 5833033 5833033
текс...опять я вообщем такая ситуация,я с помощью пост запроса логинюсь на сайте,и потом пытаюсь получить страницу которую можно просматривать только авторизированым пользователям(с помощью гет) но мне выдается страница входа.Как поправить? #! /usr/bin/perl use strict; use warnings; use LWP; #use LWP::Simple; ################################################Login on site# my $login='[email protected]'; my $pass='xxx'; my $url='http://www.xxx.com/?action=login'; my $browser=LWP::UserAgent->new; my $response=$browser->post($url, [ 'screenname'=>$login, 'password'=>$pass, 'submit.x'=>'51', 'submit.y'=>'2', 'continue_url='=>'', ] ); my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea=new_message&savelast=1'; my @xx=get $sendurl; open(XX,'>1.htm'); print XX @xx;
2$p01nt Использовать куки наверно Что-то вроде такого должно выйти #! /usr/bin/perl use strict; use warnings; use LWP; use HTTP::Cookies; #use LWP::Simple; ################################################Lo gin on site# my $login='[email protected]'; my $pass='xxx'; my $cookie_jar=HTTP::Cookies->new; my $url='http://www.xxx.com/?action=login'; my $browser=LWP::UserAgent->new; $browser->cookie_jar($cookie_jar); my $response=$browser->post($url, [ 'screenname'=>$login, 'password'=>$pass, 'submit.x'=>'51', 'submit.y'=>'2', 'continue_url='=>'', ] ); $cookie_jar->extract_cookies($response); my $sendurl='http://www.xxx.com/?setselected=10423501&setlocation=messages&setarea=new_message&savelast=1'; my @xx=get $sendurl; open(XX,'>1.htm'); print XX @xx;
не катит что то вот так вот надо: $cookie_jr->extract_cookies($response); my $sendurl='http://www.xxx.com/?setlocation=online&setarea=online'; $response = $browser->get($sendurl); $response=$response->as_string; open(XX,'>1.htm'); print XX $response; оффтоп... ребят кто может помочь со скриптом который спамит по социалке - плиз кинте номер аси в пм..
вот кусок кода из скрипта,суть такова что скрипт выдергивает данные и пихает их в файл,соответственно чтоб файл нормально читался в Винде необходимо сделать конверт формата из никсов под вынь собственно делаю $content= ~s/\n/\r\n/; на выходе получаю пустой файл ( пробовал s и m и ~m Что не так? можно тупо в консоле прописать perl -pi -e 's/\n/\r\n/;' *.txt но это не удобно
да херней маетесь зачем ему выдирать куки -экстрактом файлы приплетать конвертить делается проще use HTTP::Cookies; my $ua = LWP::UserAgent->new; my $cookies = HTTP::Cookies->new; $ua->cookie_jar($cookies); # туда где таймауты и тд просписываешь и автоматом во всех его запросах будут идти принятые ранее кукисы
#! /usr/bin/perl use strict; use warnings; use LWP; use HTTP::Cookies; use LWP::Simple; ################################################Lo gin on site# my $login='[email protected]'; my $pass='xxxx'; my $cookie_jar=HTTP::Cookies->new; my $url='http://www.xxxx.com/?action=login'; my $browser=LWP::UserAgent->new; $browser->cookie_jar($cookie_jar); my $response=$browser->post($url, [ 'screenname'=>$login, 'password'=>$pass, 'submit.x'=>'51', 'submit.y'=>'2', 'continue_url='=>'', ] ); $cookie_jar->extract_cookies($response); my $sendurl='http://www.xxxxx.com/?setselected=11058794&setlocation=messages&setarea=new_message&savelast=1'; $browser->cookie_jar($cookie_jar); $response = $browser->get($sendurl); $response=$response->as_string; open(XX,'>1.htm'); print XX $response; $cookie_jar->extract_cookies($response); my $surl='http://www.xxxxxx.com/?action=send_message'; $response=$browser->post($surl, [ 'submission%5Bmsg_id%5D'=>'', 'submission%5Bmessage%5D'=>'how', 'x'=>'13', 'y'=>'6', ] ); помогите плиз переделать что бы отправляло мессагу всетаки !!!!
