ANTICHAT Forum
HOME FORUMS MEMBERS RECENT POSTS LOG IN  
НОВЫЕ ТОРГОВАЯ НОВОСТИ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу [Perl] Новичкам: задаем вопросы
   
Ответ
Страница 104 из 156 « Первая < 45494 100 101 102 103 104 105 106 107 108 114154 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1031  
Старый 02.04.2009, 20:33
ph1l1ster
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
С нами: 9561436

Репутация: 462
По умолчанию
Немогу догнать как вытащить все внешние ссылки с сайта...
Последний раз редактировалось ph1l1ster; 02.04.2009 в 20:38..
 
Ответить с цитированием

  #1032  
Старый 04.04.2009, 17:37
roddik
Познающий
Регистрация: 14.01.2009
Сообщений: 93
С нами: 9116636

Репутация: 39
По умолчанию
ph1l1ster,

Код:
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get('http://lurkmore.ru/%D0%92%D0%B0%D1%83-%D0%B8%D0%BC%D0%BF%D1%83%D0%BB%D1%8C%D1%81');

my @links = $mech->find_all_links(url_regex => qr/https?:\/\/[^lurkmore\.ru]/);
for my $link (@links) {
    print $link->url()."\n";
}
zavra, значит сорцы на самом деле не в утф
 
Ответить с цитированием

  #1033  
Старый 04.04.2009, 19:34
zavra
Участник форума
Регистрация: 12.03.2008
Сообщений: 159
С нами: 9559919

Репутация: 137
По умолчанию
Цитата:
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
да, вероятно не в утф-8
блин, не могу скрип дописать из-за сирани кодировки
 
Ответить с цитированием

  #1034  
Старый 05.04.2009, 14:26
roddik
Познающий
Регистрация: 14.01.2009
Сообщений: 93
С нами: 9116636

Репутация: 39
По умолчанию
Цитата:
Сообщение от zavra  
да, вероятно не в утф-8
блин, не могу скрип дописать из-за сирани кодировки
не сорцы страницы хтмл, а сорцы скрипта перл!
 
Ответить с цитированием

  #1035  
Старый 09.04.2009, 05:31
constanta
Познающий
Регистрация: 19.09.2007
Сообщений: 38
С нами: 9813214

Репутация: 2
Exclamation
Граждане очень нужна помощь!!!

Замучался уже с этими соксами. у не работает хоть убей. Почему не знаю. Прошу помочь.ОЧЕНЬ НУЖНО!!!!

Без соксов все номрально пашет а как только подключаю - болт.
PHP код:
#!/usr/local/bin/perl -w

 use LWP::UserAgent;
use IO::All; 
use LWP::Protocol::socks;
 $socks="хх.ххх.ххх.хх:ххххх";
 $email="ххххххххххххххххххх";
 $pass="хххххххххххх";
$use_socks=1;
 $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');

   if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }

            $req = HTTP::Request->new(POST=>'http://www.bonprix.ua/ua/login.htm');
            $req->referer('http://www.bonprix.ua/ua/login.htm');
            $req->content_language('ru');
            $req->content_type('application/x-www-form-urlencoded');
            $req->content('login='.$email.'&haslo='.$pass);
            $result = $ua->request($req);

    if($result->code == 302) {print "$email:$pass - GOOD\n";}
     else { print "$email:$pass - BAD\n"; } 
Последний раз редактировалось constanta; 09.04.2009 в 13:16..
 
Ответить с цитированием

  #1036  
Старый 09.04.2009, 10:22
demond
Участник форума
Регистрация: 05.11.2008
Сообщений: 105
С нами: 9217801

Репутация: 71
По умолчанию
Цитата:
Сообщение от constanta  
Граждане очень нужна помощь!!!

Замучался уже с этими соксами. у не работает хоть убей. Почему не знаю. Прошу помочь.ОЧЕНЬ НУЖНО!!!!

Без соксов все номрально пашет а как только подключаю - болт.
PHP код:
#!/usr/local/bin/perl -w

 use LWP::UserAgent;
use IO::All; 
use LWP::Protocol::socks;
 $socks="socks://хх.ххх.ххх.хх:ххххх";
 $email="ххххххххххххххххххх";
 $pass="хххххххххххх";
$use_socks=1;
 $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');

   if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }

            $req = HTTP::Request->new(POST=>'http://www.bonprix.ua/ua/login.htm');
            $req->referer('http://www.bonprix.ua/ua/login.htm');
            $req->content_language('ru');
            $req->content_type('application/x-www-form-urlencoded');
            $req->content('login='.$email.'&haslo='.$pass);
            $result = $ua->request($req);

    if($result->code == 302) {print "$email:$pass - GOOD\n";}
     else { print "$email:$pass - BAD\n"; } 
У тебя в строке
Код:
 if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
и в переменной $socks записано socks://, т.о. получается что адрес прокси начинается с socks://socks:// ! Может в этом косяк?
 
Ответить с цитированием

  #1037  
Старый 09.04.2009, 13:18
constanta
Познающий
Регистрация: 19.09.2007
Сообщений: 38
С нами: 9813214

Репутация: 2
По умолчанию
Цитата:
Сообщение от demond  
У тебя в строке
Код:
 if($use_socks) { $ua->proxy([qw(http https)] => 'socks://'.$socks); }
и в переменной $socks записано socks://, т.о. получается что адрес прокси начинается с socks://socks:// ! Может в этом косяк?
Да да. тут я автоматом написал. подправил.
Но скрипт не работает. Почему не понимаю.Пожалуйста помогите!!!
 
Ответить с цитированием

  #1038  
Старый 09.04.2009, 14:07
ph1l1ster
Постоянный
Регистрация: 11.03.2008
Сообщений: 347
С нами: 9561436

Репутация: 462
По умолчанию
Цитата:
Сообщение от constanta  
Да да. тут я автоматом написал. подправил.
Но скрипт не работает. Почему не понимаю.Пожалуйста помогите!!!
почитай сначала чем отличаются socks и http proxy!
и темболее,

Код:
$ua->proxy([qw(http https)]
он работать не будет, хоть ты усрись!! :\ то же самое если бы ты в браузер сокс сунул.


Использование socks в LWP
Последний раз редактировалось ph1l1ster; 09.04.2009 в 14:11..
 
Ответить с цитированием

  #1039  
Старый 09.04.2009, 17:34
constanta
Познающий
Регистрация: 19.09.2007
Сообщений: 38
С нами: 9813214

Репутация: 2
По умолчанию
Цитата:
Сообщение от ph1l1ster  
почитай сначала чем отличаются socks и http proxy!
и темболее,

Код:
$ua->proxy([qw(http https)]
он работать не будет, хоть ты усрись!! :\ то же самое если бы ты в браузер сокс сунул.


Использование socks в LWP

Вообще то я основывался на вот этом модуле
LWP::Protocol::socks;

LWP::Protocol::socks

И смотрел чекер вкантакта - там точно так же использовался такой же модуль. И я так понимаю успешно.

ХЕЛПППП!!!С меня на пиво гарантировано тому кто поможет разобраться.
 
Ответить с цитированием

  #1040  
Старый 09.04.2009, 18:24
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию
Что именно не работает то? Может у тебя соксы хреновые
 
Ответить с цитированием
Ответ
Страница 104 из 156 « Первая < 45494 100 101 102 103 104 105 106 107 108 114154 > Последняя »



Предыдущая тема Следующая тема
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[c/c++] Новичкам: задаем вопросы _Great_ С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby 5421 21.04.2026 07:37
[php] Новичкам: задаем вопросы _Great_ PHP 16396 17.06.2010 21:19
Вопросы по Ipb 2.0 Voodoo_People Уязвимости CMS / форумов 26 15.02.2005 22:57



Здесь присутствуют: 17 (пользователей: 0 , гостей: 17)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.