مؤلف :: مسابقة يتم تأكيد إدخال الشخص عن طريق تحديد المسابقة
التحميل الان

مؤلف :: مسابقة الترتيب والملخص

مؤلف :: مسابقة العلامات

اختبار الوحدة النمطية بيرل بيرل المصادقة بيرل مسابقة

مؤلف :: مسابقة وصف

تم تأكيد إدخال الشخص عن طريق تحديد المسابقة Authen :: Quiz هو وحدة Perl التي تحدد الاختبار إلى مدخلات النموذج، وتؤكد ما إذا كان من الضروري بشكل مصطنع. بالتأكيد، لأخذ مكانه لأنه يبدو أن هناك شيئا مفاده أن يتم كسر شهادة التقاط من خلال التحسين تقنية تحليل الصور، أنتجت it.workover، أعتقد أنه يمكن أن تحد من المستخدم الذي يمكنه استخدام نموذج الإدخال إذا تم ضبط صعوبة المسابقة. My $ Q = Authen :: Quiz-> جديد (Data_folder => '/ PATH / TO / AUTHEN_QUIZ'، ## تمرير ملف البيانات. انتهت صلاحية => 30، ## تاريخ انتهاء صلاحية الأسئلة (المبلغ).)؛ ## وضع مسابقة. بلدي السؤال = $ Q-> السؤال؛ ## عندما يتم استدعاء طريقة "السؤال"، يتم تعيين "Session_id". ## دفن هذه القيمة تحت النموذج، ويمررها إلى طريقة "Check_answer" في وقت لاحق. بلدي session_id = $ q-> session_id؛ # ## تحقق من إجابة الإدخال. بلدي Session_id = $ cgi-> param ('quiz_session') || العودة Val_Error (.....)؛ إجابتي $ = $ cgi-> param ('quiz_answer') || العودة Val_Error (.....)؛ إذا كان ($ Q-> Check_answer ($ session_id، $ الإجابة)) {# ... هو النجاح. } آخر {إرجاع Valid_error (.....)؛ } متطلبات: perl.

مؤلف :: مسابقة برامج ذات صلة