في الدرس السابق قمنا بعمل نموذج هتمل HTML Form يمكن لزائريك إدخال المعلومات فيه وإرسالها إلى برنامج بيرل عبر السي جي آي . و مع ذلك فقد كان هذا تدريب بسيط ، فأنت قد أرجعت المعلومات كما هي للزائر .
في هذا الدرس سوف نبني صفحة ويب أكثر صعوبة و برنامج للتعامل معها ، سوف نصمم نموذج استفهام و نرسل معلوماته و نعيد الحقول الخالية فيها إلى الزائر ليملئها ، و سوف نستعمل طريقة POST لإرسال المعلومات من النموذج إلى برنامج CGI .
أفضل طريقة لتتعلم شيئاً ما هي أن تفعله بنفسك ، دعنا نقوم بعمل نموذج استفهام بسيط و بذلك يمكننا رؤية كيف يعمل . اكتب صفحة هتمل التالية و احفظها بإسم quiz.htm :
<html dir="rtl">
<head>
<title>Quiz Form</title>
</head>
<body>
<H1 ALIGN="CENTER">A Little Quiz Form</H1>
<HR>
<H3 ALIGN="RIGHT">في كل فئة اختر ما يناسبك أو يناسب تفضيلاتك</H3>
<FORM ACTION="/cgi-bin/quiz.pl" METHOD="POST">
<table>
<tr>
<td VALIGN="top">
<B>الجنس</B><BR>
<INPUT TYPE="radio" NAME="gender" VALUE="0">ذكر<BR>
<INPUT TYPE="radio" NAME="gender" VALUE="1">أنثى<BR>
<INPUT TYPE="radio" NAME="gender" VALUE="2">غيرهما<BR>
</td>
<td VALIGN="top">
<B>العمر</B><BR>
<INPUT TYPE="radio" NAME="age" VALUE="0">12-18<BR>
<INPUT TYPE="radio" NAME="age" VALUE="1">19-25<BR>
<INPUT TYPE="radio" NAME="age" VALUE="2">26-30<BR>
<INPUT TYPE="radio" NAME="age" VALUE="3">أكبر من 30<BR>
<INPUT TYPE="radio" NAME="age" VALUE="4">شيخ قبيلة<BR>
</td>
<td VALIGN="top">
<B>فيلمك المفضل</B><BR>
<INPUT TYPE="radio" NAME="film" VALUE="0">Matirx<BR>
<INPUT TYPE="radio" NAME="film" VALUE="1">Gladiator<BR>
<INPUT TYPE="radio" NAME="film" VALUE="2">Mission Impossible2<BR>
<INPUT TYPE="radio" NAME="film" VALUE="3">الكيت كات<BR>
<INPUT TYPE="radio" NAME="film" VALUE="4">الإرهاب و الكباب<BR>
<INPUT TYPE="radio" NAME="film" VALUE="5">ليس فيهم<BR>
</td>
<td VALIGN="top">
<B>هل تعتقد أن عادل إمام قد صار كبيراً على التمثيل</B>
<INPUT TYPE="checkbox" NAME="OldAdil">
</td>
</tr>
</table>
<h3 ALIGN="RIGHT">معلومات اختيارية</h3>
<B>الإسم</B><BR>
الأول<INPUT TYPE="text" NAME="firstname" SIZE="16">
الأخير<INPUT TYPE="text" NAME="lastname" SIZE="16"><BR>
<BR>
<CENTER>
<INPUT TYPE="submit" VALUE="إرسل">
<INPUT TYPE="reset" VALUE="إمسح">
</CENTER>
</form>
</body>
</html>
المفترض أن يبدو الشكل كما في الصورة :
هذا الشكل يستعمل أزرار راديو و صندوق اختيار و صندوقين للنص ، و لذلك سيعطي برنامج بيرل مزيج جيد نوعاً ما من أنواع المداخل المختلفة ، بالإضافة إلى أنه يستعمل طريقة POST لتمرير المعلومات بدلاً من طريقة GET التي استعملناها في الدرس السابق . و كما ترى فقد حفظته في فهرس Docs في Sambar في Program files .
الآن سنقوم بعمل تعديلات بسيطة على برنامج geturl الذي كتبناه في الدرس السابق . الفرق الرئيسي بين طريقتي GET و POST هو في كيفية تمرير المعلومات ، GET تضع المعلومات في عنوان URL بالفعل و تشحنها إلى المحيط و يمكنك رؤيتها في صندوق العنوان في المتصفح ، بينما POST تضع المعلومات في مجرى مدخل برنامج بيرل ، كما لو كنت تكتب المعلومات في الداخل من لوحة المفاتيح . لذلك فإن برنامج geturl سوف يحتاج إلى تعديلين لمجاراة الاختلافات :
# Get HTML header, ender, define the page title.
require "/cgi-bin/html.pl"; # Full path.
$Title = "GEt POST Information From a URL";
# Get the length of the data.
# Read the data from standard input.
# Use split to make an array of name-value pairs broken at
# the ampersand character.
@NameValuePairs = split (/&/, $QueryString);
أضف السطور السابقة الموضوع أمامها السهم إلى الملف و احذف السطرين :
# Get the query
string.
$QueryString = $ENV{'QUERY_STRING'};
و احفظه بإسم quiz.pl في cgi-bin بالطبع .
STDIN و POST :
لأن معلومات النموذج تأتي من المدخل الأساسي بطريقة POST فيمكنك استعمال وظيفة read لتدخلها في برنامجك . و للاختصار وظيفة read تأحذ هذا الشكل :
read (HANDLE, BUFFER, LENGTH);
حيث HANDLE هو توجيه الملف كما عرفنا . و BUFFER هو متغير عددي للإمساك بأي شيء يقرأه . و LENGTH هو عدد الرموز أو البايتات التي ستقرأ في الذاكرة المؤقتة . و لكي تحصل على قيمة HANDLE فإن بيرل يجعل هذا سهلاً ، ففي كل مرة تشغل فيها برنامج بيرل يعلن مسبقاً عن وجود مجموعة من توجيهات الملف التي تسمح لبرنامجك بالتفاعل مع نظام التشغيل و فتح و إغلاق الملفات ، و من بين هذه التوجيهات :
-
STDIN و هو طريق المدخل الرئيسي .
-
STDOUT و هو طريق المخرج الرئيسي .
و كما ترى فإن STDIN مفتوح لك بالفعل كل ما عليك هو أن تستخدمه . و أخيراً يجب عليك أن تخبر read بعدد البايتات الموجودة ليقرأها ، و لحسن الحظ فإن محيط CGI يحتوي على متغير به نفس المعلومات المطلوبة في read و هو المتغير CONTENT_LENGTH . و نتيجة لكل هذه المساعدة من بيرل و سي جي آي يصبح لديك القليل لتفعله في تعديل البرنامج ، عليك أن تحصل أولاً على طول المعلومات و هذا يتم بالسطر :
$DataLen = $ُENV{'CONTENT_LENGTH'};
ثم تستعمل هذا الطول في قراءة المعلومات من المدخل الرئيسي في متغير محلي عددي (و هو BUFFER في الصيغة العامة أو QueryString في برنامجنا) :
read (STDIN, $QueryString, $DataLen);
الآن بعد أن فهمت عمل ما أضفت من سطور ، شغل المتصفح (تأكد من تشغيل Sambar Server) و في صندوق العنوان اكتب localhost/docs/quiz.htm ثم املأ النموذج بما ترغب و اضغط زر إرسل ، و سوف تكون النتيجة في الغالب مشابهة لهذه :
لاحظ أن النموذج quiz.htm يعين قيمة عددية لكل زر راديو في كل فئة ، مثلاً فئة فيلمك المفضل بها ستة أزرار راديو كل زر له رقم من صفر إلى خمسة و بالتالي فالبرنامج يظهر لك القيمة العددية للزر الذي اخترته . يمكننا أن نعين لكل زر قيمة إسمية (سلسلة) تصف الزر ، و لكن هذا يجعلهم أكثر صعوبة في التعامل معهم ، إذاً ليس أمامنا خيار (و لا طماطم) سوف نكتب برنامجاً يعرض القيم الإسمية للأزرار ، شغل محرر النص و اكتب الآتي :
#!perl/bin
# quiz.pl
# A little
perl program script to read, decode and print the names
# and values passed
to it from an HTML form through CGI.
# Get HTML header, ender, define the page title.
require "htmlara.pl"; # Full Path.
$Title = "تفضيلاتك الشخصية";
$MaxData = 6;
# Assign names to indexes to make them more descriptive.
($Sex, $HowOld, $FaveFilm, $OldAdil, $LastName, $FirstName) = (0..5);
# Set up a flag for the OldAdil checkbox.
$OldAdil = 1;
# Set up a series of arrays to handle the form data.
@Gender = ("ذكر", "أنثى", "غيرهما");
@Age = ("12-18", "19-25", "26-30","أكبر من 30", "شيخ قبيلة");
@Film =
(
"Matrix",
"Gladiator",
"Mission Impossible2",
"الكيت كات",
"الإرهاب و الكباب",
"ليس فيهم"
);
# Get the length of the data.
$DataLen = $ENV{'CONTENT_LENGTH'};
# Read the data from standard input.
read (STDIN, $QueryString, $DataLen);
# Use split to make an array of name-value pairs broken at
# the ampersand character. then get the values.
@NameValuePairs = split (/&/, $QueryString);
$n = 0;
foreach $NameValue (@NameValuePairs)
{
($Name, $Value[$n]) = split (/=/, $NameValue);
$n++;
}
# Set or clear $OldAdil flag based on the number of pairs
# counted in $n. The checkbox value won't be sent if it's
# not checked. Adjust indexes too.
if ($n != $MaxData)
{
$OldAdil = 0;
$FirstName--;
$LastName--;
}
# Put up an HTML header, page title and a rule.
&HTML_Header ($Title);
print "<body>\n";
print "<H1>$Title</H1>\n";
print "<HR>\n";
# Print the information in a friendly manner.
print "<H3>اسمك ";
# See if anything has been entered in the name.
if (($Value[$LastName] eq "") && ($Value[$FirstName] eq ""))
{
print "غير معروف\n";
}
else
{
print "$Value[$FirstName] $Value[$LastName]\n";
}
print "</H3>\n";
print "<H3>جنسك $Gender[$Value[$Sex]]</H3>\n";
print "<H3>عمرك $Age[$Value[$HowOld]]</H3>\n";
print "<H3>فيلمك المفضل هو ";
print "\"$Film[$Value[$FaveFilm]]\"</H3>\n";
print "<H3>أنت ";
if (!$OldAdil)
{
print "لا ";
}
print "ترى أن عادل إمام قد صار كبيراً على التمثيل </H3>\n";
# End the HTML document.
&HTML_Footer;
# End quiz.pl
