[Perl] Новичкам: задаем вопросы

прокси есть. щас попробую.
пробовал через моб версию

таже хня. капча

 

посмотрел свой скрипт
вот короче авторизация с капчей

Code:

my $aut = $ua->post('http://mirtesen.ru/login',
                                              [ 'auth[login]' => $mail,
                                                'auth[password]' => $pass,
                                                'auth[remember' => 'on' ,
                                                'auth[backurl]' => 'http://mirtesen.ru/']);
if ($aut->content=~ /captcha/ ) {
my $captid = $1 if $aut->content =~ /\/captcha\/login\?(.*)" alt="" title="/;
дальше все про капчу }
elsif ($aut->content=~ /password/) {
               не гуд;
               return 0 ;
               } else {
                      гуд;
        	      return 1 ;
                      }

что типа этого
через контент короче

 

капчу жрет ужас. подчти каждый 5 акк даже с проксей.

и снова вопрос от меня. как тут сграбить юзеров

Code:

http://www.vgorode.ru/#/people/search?user%5Bnick%5D=

если смотреть исходный код страници то их там нет..

 

mazaxaka смотрите посылаемые запросы с помощью FF + LiveHTTPHeaders, например.

http://www.vgorode.ru/people/search?user[nick]=&ax=1&axreferer=%2Fpeople%2Fsearch%3Fuser%255Bnick%255D%3D&axrandom=0.8751095048635377

 

с етим разобрался. нужно было просто не гет а пост запросом ловить..
теперь слудующая проблемка. как отпрвить меседж в лычку.
tamper data + FF ловит

Code:

POSTDATA =[1,"sendMessage",1,0,{"1":{"i64":39239987},"2":{"i64":2265173},"3":{"str":"35"}}]=

а как тут ето пихнуть в пост не пойму. тк запрос не понятный и не похо на обычный

Code:

  $resp = $ua->post("http://www.vgorode.ru/user/login",
                            ["user[email]" => $mail,
                             "user[passwd]" => $pass,])->as_string;

и еще не понятно от куда берется "i64":39239987 ? второе значение {"i64":2265173} ето ид

 

в посте /thread217438.html выложен прокси чекер на перле пытался стартануть на убунте и редхате написало :
[darkmist@localhost ~]$ perl cheker.pl
Name "main:ROXIES" used only once: possible typo at cheker.pl line 18.
Usage: cheker.pl
........что не так??

 

main:ROXIES объявлено, но не используется

 

есть список пассов:

перед пассом вставить логин(без домена) и между ими разделялся знак ";" либо ":" ?
например:

--
еще можно подключить модуль Tk

 

Держи..

Code:

my $pass = 'pass.txt';
my $login = 'login';
my $delim = ';';
my $file = 'file.txt';

open(PASS, "$pass");
chomp(my @pass = <PASS>);
close(PASS);

open(FILE , ">>$file");

while (my $passwd = shift @pass) {
	print FILE $login.$delim.$passwd."\n";
        }
close(FILE); #Fep;)
print "GOTOVO blya\n";

 

PHP:

$text='id="usr-jon">';
print $text =~ m/id="usr-(.+?)"/i;

 

Code:

#!/usr/bin/perl   
$i = 0;									
my $search = $ua->get('http://www.sss.ru/index.php?id=1');
while ($i < 10) { 	
if($search->content =~ m/id="usr-(.+?)"/i){
$user=$1;
print "USER-NAME: " . $user . "\n";
my $search2 = $ua->get('http://www.sss.ru/advert?r1=$1');
$search2->content =~ m/name="authcode" value="(.+?)"/i;
print "Authcode:". $1 . "\n";
print "DONE FOR USER:". $user . "\n";
$i++;
}
}

На страничке 10 юзверей. Не могу понять почему выводит постоянно одного и того-же юзьверя (не переходя к следущему).

 

Нужен скрипт, удаляющий из текстового документа все, кроме введенной строки. Подскажите, пожалуйста

 

не правильный код..

Code:

my $search = $ua->get('http://www.sss.ru/index.php?id=1')->content;
while($search =~ /id="usr-(.+?)"/g) {
print $1."\n";}

 

как сделать чтобы в х каждый раз было + 15?
my $x=0;
print $x;
знаю команда #x++; но она добовляет +1 а мне нужно +15

 

ЭЭэээ не легче создавать новый текстовый документ с этой строкой? )

$x += 15;

 

ссылка потому что в одинарных кавычках. я так тоже обламывался. там надо либо "http://www.sss.ru/index.php?id=$n", либо 'http://www.sss.ru/index.php?id='.$n

 

Разобрался сам, спасибо всем, плюсы нажал)

 

ALIM,попробуй строке unless ($file==$users) вместо "==" исользовать "eq".
unless ($file eq $users)

 

Нет, мне нужно количество таких строк

 

Всем привет
Почему может сохранятся такая ошибка при попытке авторизации
через tamper data отправляется только username/password

500 Can't locate object method "new" via package "LWP:rotocol::https::Socket"

Code:

#!/usr/bin/perl   

use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
my $cookie = HTTP::Cookies->new();
$ua->cookie_jar($cookie);
my $Username = 'logist';
my $pass = 'hardpass';
my $aut = $ua->post('https://www.xxxxxx.ru/login',
                                              [ 'username' => $Username,
                                                'password' => $pass,
                                                'auth[backurl]' => 'http://www.xxxxxxx.ru/home'])->code;

$ex = $ua->get('http://www.xxxxxxx.ru/home')->content();												
open(OUT, '> result.htm');
print OUT "$ex\n";
close(OUT);