517322-Lab: 2.การติดตั้ง cgi และเขียน perl เบื้องต้น

27/12/2012 4:45 PM Study 1,294 views

การเขียนภาษา Perl บน Linux

จากครั้งก่อนที่ต้องมีการติดตั้ง Linux Server กับ Apache ครั้งนี้ทดลองเขียน Perl ใน Linux ครับ
เมื่อเข้า Terminal แล้วลองพิมคำสั่ง 

$ cd /etc/apache2
$ cd mods-enabled/
$ ls
# จะแสดง Files ใน Directory นี้ สังเกตว่าจะไม่มี Files userdir.conf และ userdir.load เราจำทำากรเพิ่มสองสิ่งนี้ไปโดยใช้คำสั่ง

$ sudo ln -s ../mods-available/userdir.conf
$ sudo ln -s ../mods-available/userdir.load

$ ls
# หลังจากพิมพ์คำสั่งไปแล้วจะแสดงสองไฟล์ข้างต้นใน Directory

$ sudo ln -s ../mods-available/cgi.load
$ sudo reboot
# Restart เครื่องใหม่ จากนั้นเข้า Terminal และเข้ามายัง Path เดิม

$ ls
$ cat cgi.load
$ cd ..
$ cd site-enabled/
$ ls
$ sudo nano 000-default
# จะแสดงข้อมูลต่างๆ เกี่ยวกับการจัดเก็บไฟล์ ยังไม่ต้องแก้ไข

$ sudo /etc/init.d/apache2 restart

$ which perl
#แสดง Directory ของ Perl

$ cd /usr/lib/cgi-bin
$ ls
$ sudo nano test.cgi

#!/usr/bin/perl
print “Hello World”;

$ perl test.cgi
#จะแสดงข้อความที่พิมพ์ไว้ใน test.cgi

$ ls -l
#จะแสดงรายการไฟล์ที่มีอยู่กับระดับการป้องกันของแต่ละไฟล์ (File protections)

$ sudo chmod 755 test.cgi
$ ls -l
#ทำการเปลี่ยนระดับการป้องกันไฟล์เป็น 755 และ ls -l ดูอีกครั้ง
ไฟล์จะเปลี่ยนเป็น – rwxr – xr – x 1 (สีเขียว)

$ sudo nano test.cgi

#!/usr/bin/perl
print “content-type: text/html\n\n”;
print “Hello World<br>”;
$a=100;
$b=200;
$c=$a+$b;
print “$a+$b=$c”;

ทดลองหน้าเว็บด้วยเข้า Browser ของเครื่อง (URL: localhost/cgi-bin/test.cgi)

testy

การแสดงผลบน Browser ของ test.cgi


ตัวอย่างจาก Lab
ให้สร้าง File ต่อไปที่เขียนโดย Perl เพื่อเปิดอ่านบน Web Browser

#!/usr/bin/perl
print “content-type: text/html\n\n”;
print “<HTML>\n”;
print “<HEAD>\n”;
print “<TITLE>echo cgi env. vars.</TITLE>\n”;
print “<H2>Echo CGI Environment Variables</H2>\n”;
print “</HEAD>\n”;
print “<BODY>\n”;
print “<HR>\n”;
print “<H3>Environment Variables</H3>\n”;
print “<UL>\n”;
foreach $key (keys %ENV) {
print “<LI>$key := $ENV{$key}</LI>\n”;
}
print “</UL>\n”;
print “</BODY>\n”;
print “</HTML>\n”;

เริ่มกันเลย

$ cd /usr/lib/cgi-bin
$ ls
$ sudo nano perl1.cgi
#เขียนคำสั่งจากไฟล์ข้างต้น แล้วบันทึก

$ sudo chmod 755 perl1.cgi
$ ls
#เปลี่ยนระดับการป้องกันเพื่อแสดงผลบน Browser

perlการแสดงผลบน Browser ของ perl1.cgi

, , , , , , , , , , ,