חשוב: אין יותר תמיכה בגרסה 1.0 של reCAPTCHA API. צריך לשדרג לגרסה 2.0. מידע נוסף
מודול reCAPTCHA Perl מאפשר להציב CAPTCHA בקלות באתר וכך לעזור לך למנוע מבוטים לנצל אותו לרעה. המודול כולל את reCAPTCHA API.
כדי להשתמש ב-reCAPTCHA עם Perl, אפשר להוריד את reCAPTCHA Perl יחידת לימוד (נתרמו על ידי אנדי ארמסטרונג). עליך להתקין את המודול הזה במחשב (שרת אינטרנט). המודול תלוי במודולים LWP::UserAgent וגם HTML::Tiny, שניהם וצריך להתקין אותו גם כן. הוראות בסיסיות להתקנה של Perl מודולים.
התחלה מהירה
אחרי שנרשמתם למפתחות ה-API והורדתם את מודול 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
בערך של
מפתח API.
בצד השרת (איך בודקים אם המשתמש הזין את התשובה הנכונה)
בהמשך מוצגת כאשר מוסבר איך לאמת את התשובה ל-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"; }