Пример работы с Anti-Captcha на 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

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

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

  2. 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.

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

  3. 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.

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

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

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

  4. Уведомление: Путешествия

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *