anti-captcha.com + perl

[bataka]

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

[Dmitry HT]

а че там писать?

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

п.с. на perl к сожалению нету

[bataka]

Сообщение от Dmitry HT

а че там писать?

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

п.с. на perl к сожалению нету

да целый день долблюсь
nacceptable string found in request variable
хер поймеш че им надо

[durman]

курлом вызов примерно такой (для передачи файла)

curl -F method=post -F key=123456789 -F '[email protected]/path/to/file 'http://anti-captcha.com/in.php'

Или тебе LWP надо ?

[deschain]

Там же сейчас просят содержимое файла кодировать в base64

[bataka]

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

курлом вызов примерно такой (для передачи файла)

curl -F method=post -F key=123456789 -F '[email protected]/path/to/file 'http://anti-captcha.com/in.php'

Или тебе LWP надо ?

LWP
ну вот пишу
my $response = $ua->request(
POST 'http://anti-captcha.com/in.php',
# Content_Type => 'multipart/form-data',
Content => [
ext => 'png',
key => 'упс ',
method => 'base64',
body => $file
]);
получаю
nacceptable string found in request variable

[durman]

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

method => 'base64'

гы-гы

[bataka]

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

гы-гы

а подробнее можно ?
ну не еби мозги, если знаеш скажи что тебя там так рассмешило ?

[dude]

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

LWP
ну вот пишу
my $response = $ua->request(
POST 'http://anti-captcha.com/in.php',
# Content_Type => 'multipart/form-data',
Content => [
ext => 'png',
key => 'упс ',
method => 'base64',
body => $file
]);
получаю
nacceptable string found in request variable

>> method => 'base64',
это убирай

добавь
use MIME::Base64 qw(encode_base64)
use IO::All;

a body => $file замени на
body => encode_base64( io($file)->all )

[bataka]

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

>> method => 'base64',
это убирай

добавь
use MIME::Base64 qw(encode_base64)
use IO::All;

a body => $file замени на
body => encode_base64( io($file)->all )

понял , сенк , все равно траблы есть
body => encode_base64( io($file)->all )[/QUOTE]
это я затупил, пасиб DUDE