Print This Post Пример работы с Anti-Captcha на Perl

Четверг, 14. Май 2009
Раздел: Perl, автор:

Очередной пример на Perl (используется специально написанный модуль):

Параметры:

phrase => 0 или 1 (0 по умолчанию, 1 помечает, что у капчи 2-4 слова)
regsense => 0 или 1 (0 по умолчанию, 1 помечает, что текст капчи чувствителен к регистру)
numeric => 0 или 1 или 2 (0 по умолчанию, 1 помечает, что текст капчи состоит только из цифр, 2 помечает, что на капче нет цифр)
min_len => 0..20 (0 по умолчанию, помечает минимальную длину текста капчи)
max_len => 0..20 (0 - без ограничений, помечает максимальную длину капчи)
is_russian => 0..2
is_fatal => 0 или 1 (0 по умолчанию, прекращать ли работу при фатальных ошибках со стороны антигейта)
verbose => 0 или 1 (1 по умолчанию, отвечает за вывод информации о возможных ошибках и статусе распознавания)

Задаются следующим образом:

Скачать модуль и исходники можно тут: ZIP

 Обсудить на форуме


Получать обновления на почту:     

Метки: , .

комментариев 12 к “Пример работы с Anti-Captcha на Perl”


  1. svesve :

    странно но на АС уходит пустая картинка
    никак не могу понять где косяк

    [Ответить]

  2. Модуль откуда скачан с антикапчи или с сайта?

    [Ответить]


  3. 123 :

    Спасибо за скрипт. Сэкономили мне немного времени (если оно конечно работает). Только зачем было использовать сокеты, чем юзерагент плох?

    [Ответить]

    Kaimi:

    Потому что использование юзерагента здесь нецелесообразно по-моему, да и сокеты полегче будут

    [Ответить]

  4. [...] работы нужен модуль AntiCaptcha.pm от Kaimi ?View Code PERL1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 [...]


  5. NoName :

    Can't connect to anti-captcha
    Thread 1 terminated abnormally: Can't use an undefined value as a symbol referen
    ce at F:/Perl/lib/AntiCaptcha.pm line 95.

    вот такая ошибка ... Как быть ?

    [Ответить]

    Kaimi:

    Задуматься над причиной отсутствия соединения с сайтом антикапчи

    [Ответить]


  6. NoName :

    Can’t connect to anti-captcha
    Thread 1 terminated abnormally: Can’t use an undefined value as a symbol referen
    ce at F:/Perl/lib/AntiCaptcha.pm line 95.

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

    [Ответить]

    Kaimi:

    Попробуй измени в районе 95 строки
    my $sock = sock($self->{'host'});
    на
    my $sock = sock($self->{'host'}) || return 0;

    Или перепиши модуль целиком под себя

    [Ответить]


  7. Анонимус :

    На cpan няшнее модуль http://search.cpan.org/perldoc?WebService::Antigate

    [Ответить]

  8. помогите плиз.зарег-ся пополнил баланс а как применить сайт в онлайн игре не пойму.подскажите кто может

    [Ответить]

  9. [...] - это обновленный модуль для работы с антикапчей на Perl: вот тут. Небольшой [...]


Оставьте ваш комментарий