anti-captcha.com + perl

[bataka]

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

[bataka]

Ok|8668027 шо цэ такэ ?
ну и что с ним делать ?
а вообще сервис может и хороший но суп расстрелять

все, разобрался, всем спасибо кто помог
все просто , если б они это еще в фак внесли

[seocoder]

на странице НАСТРОЙКИ все же есть.

[bataka]

Сообщение от seocoder

на странице НАСТРОЙКИ все же есть.

там php + curl
а надо perl + lwp
там такого нет

[seocoder]

там рассказано чего и куда и как получить ответ, это самое главное.
ладно, сорри - не буду "умничать".

[trrtdfger]

Спасибо за инфу, терь на перле сделаю

[potofgold]

Приветствую собратьев по перлу!

package Captcha;

use LWP::UserAgent;
use HTML::Form;

sub solve{
    my ($data,$type)=@_;
    
    my $bot=LWP::UserAgent->new;
    my $f=HTML::Form->new("POST","http://anti-captcha.com/in.php","multipart/form-data");
    $f->push_input('text',{name => "key",value => "___KEYHERE___"});
    $f->push_input('text',{name => "method",value => "post"});
    $f->push_input('file',{name => "file",value => "captcha.$type",content => $data});
    my $r=$bot->request($f->click);
    if($r->content!~/^OK\|(.+)/){
print "loading: ",$r->content;
	return undef;
    }
    my $id=$1;
    sleep 5;
    while(1){
	sleep 5;
	$r=$bot->get("http://anti-captcha.com/res.php?key=___KEYHERE___&action=get&id=$id");
	next if($r->content=~/_NOT_READY/);
	if($r->content!~/^OK\|(.+)/){
print "solving: ",$r->content;
	    return undef;
	}
	return $1;
    }
}
1;

Вызывать: Captcha::solve($picbody,"jpg");