Perl กับการรับข้อมูลผ่านแบบ Form
การส่งข้อมูล
การส่งข้อมูลของ Perl นั้นจะเหมือนกับ ASP
หรือภาษาอื่นๆนั้นคือผ่านแบบฟอร์ม หรือ ทำการส่งค่าผ่าน URL
ซึ่งเราสามารถจำแนกการส่งค่าออกได้เป็น 2 แบบคือแบบ Post กับแบบ
Get ในตัวอย่างต่อไปนี้จะเป็นแบบฟอร์มการส่งแบบ Post
<Fom action="test.pl"
method=post>
<input
type=text name="namepost">
</Form>
ะเห็นว่าส่วนที่อยู่หลังคำว่า Action คือ File Perl (.pl
หรือ .cgi) ที่ใช้รับข้อมูล และ method นั้นจะบอกว่าเป็นแบบ Post
หรือแบบ Get และในส่วนหลัง name
นั้นคือชื่อของตัวแปรสำคัญเวลารับครับ
การรับข้อมูล
ในฝังรับข้อมูลจะดูต้องอ้างอิงจากฝังส่งข้อมูลมาด้วยจากที่ได้อธิบายไปแล้วนั้น
คราวนี้มาดู Code ของตัวรับกันบ้าง
#!/usr/local/bin/perl
print
"Content-type:text/html\n\n";
use CGI;
$obj=new CGI;
$nameinput=$obj->param("namepost");
print qq
{ <HTML>
<Head>
<Title> ทดสอบรับข้อมูลจากฟอร์ม</Title>
</Head>
<Body>
$nameinput
</Body>
</HTML>
};
ในบรรทัด 1 นั้นจะเป็นการบอก Path ตัวแปลภาษา Perl
ซึ่งถ้าอยู่บน Unix นั้นต้องใส่ ในบรรทัดที่ 3-4 เป็นการสร้าง
Object ของโมดูล CGI และบรรทัดที่ 5 ก็นำ Function param
มาใช้รับข้อมูล ในส่วนบรรทัดที่ 8
เป็นส่วนของการนำข้อมูลมาแสดงครับ อีกนิดนึงในการเขียน html ลง
Perl นั้นจำเป็นต้นมีคำสั่ง print qq {}; ค่อม HTML เอาไว้เพราะ
Perl ไม่ใช่ภาษาที่มีรูปแบบ Server Side Scripts
|
iqjung@hotmail.com
