استخدام reCAPTCHA مع لغة Perl

ملاحظة مهمة: لم يعُد الإصدار 1.0 من reCAPTCHA API متاحًا. يُرجى الترقية إلى الإصدار 2.0. مزيد من المعلومات

توفّر وحدة reCAPTCHA Perl طريقة بسيطة لإجراء اختبار CAPTCHA على موقعك الإلكتروني، ما يساعدك في منع برامج التتبّع من إساءة استخدامها. تضم الوحدة reCAPTCHA API:

لاستخدام reCAPTCHA مع لغة Perl، يمكنك تنزيل reCAPTCHA Perl. الوحدة (يساهم بها "آندي أرمسترونغ"). ستحتاج إلى تثبيت هذه الوحدة على الجهاز (خادم الويب). تعتمد الوحدة على الوحدات LWP::UserAgent. وHTML::Tiny، كلاهما والذي يجب تثبيته أيضًا. فيما يلي بعض التعليمات الأساسية حول تثبيت Perl الوحدات.

البدء بسرعة

بعد الاشتراك في مفاتيح واجهة برمجة التطبيقات وتنزيل وحدة reCAPTCHA Perl، إليك التعليمات الأساسية لتنفيذ ما يلي: تثبيت reCAPTCHA على موقعك الإلكتروني

من جانب العميل (كيفية إظهار صورة اختبار CAPTCHA)

إذا كنت تريد استخدام وحدة Perl لعرض التطبيق المصغّر reCAPTCHA، يجب إدراج هذا السطر بالقرب من أعلى الملف الذي يحتوي على عنصر النموذج حيث سيتم عرض تطبيق reCAPTCHA المصغّر المعروضة:

    use Captcha::reCAPTCHA;

بعد ذلك، ستحتاج إلى إنشاء مثيل من reCAPTCHA:

    my $c = Captcha::reCAPTCHA->new;

أخيرًا، لعرض أداة reCAPTCHA، يجب وضع السطر التالي داخل <form> العلامة:

    print $c->get_html("your_public_key");

لذلك، قد تبدو التعليمة البرمجية على النحو التالي:

    use Captcha::reCAPTCHA;

    my $c = Captcha::reCAPTCHA->new;

    print <<EOT;
    <html>
      <body>
        <form action="" method="post">
    EOT

    print $c->get_html("your_public_key");

    print <<EOT;
        <input type="submit" value="submit" />
        </form>
      </body>
    </html>
    EOT

لا تنسَ استبدال your_public_key بقيمة مفتاح واجهة برمجة التطبيقات.

من جهة الخادم (كيفية اختبار ما إذا كان المستخدم قد أدخل الإجابة الصحيحة)

في ما يلي بنية أساسية لكيفية التحقّق من إجابة reCAPTCHA:

    use Captcha::reCAPTCHA;

    my $c = Captcha::reCAPTCHA->new;

    my $challenge = param 'recaptcha_challenge_field';
    my $response = param 'recaptcha_response_field';

    # Verify submission
    my $result = $c->check_answer(
        "your_private_key", $ENV{'REMOTE_ADDR'},
        $challenge, $response
    );

    if ( $result->{is_valid} ) {
        print "Yes!";
    }
    else {
        # Error
        print "No";
    }

قراءات إضافية

  • تخصيص الشكل والأسلوب
  • نصائح وإرشادات
  • تحديد المشاكل وحلّها
    •