Connect Database หรือการติดต่อกับฐานข้อมูลเป็นสิ่งที่ web application ต้องมีการใช้งานอยู่เป็นประจำ ไม่ว่าคุณจะทำ webboard หรือจะทำงานระบบใหญ่ ๆ การ Connect Database จะเป็นจุดแรกที่คุณต้องสร้างขึ้นมา สำหรับใน Perl นั้น ผมจะยกตัวอย่างการติดต่อกับ MySQL Database

ps. หากคุณต้องการใช้งาน Perl กับ MySQL คุณจำเป็นต้องทำการติดตั้งโมดูลเพิ่มเติมที่ชื่อว่า DBI และก็ DBD เสียก่อน ซึ่งคุณสามารถทำการ Download ได้ที่ http://ppm.activestate.com/PPMPackages/zips/ การ Download ให้เลือกให้ตรงกับ version ของ Perl ที่คุณใช้งาน

 

Perl Connection with MySQL Database

#!usr/bin/perl

use DBI; # ประกาศเพื่อเรียกใช้งาน DBI Modual
$dsn = "DBI:mysql:database=db name;host=localhost"; # กำหนดชื่อ db ที่ต้องการใช้พร้อมทั้งตำแหน่งของ MySQL Server
$dbh = DBI->connect($dsn,"username", "password"); # กำหนด username & password
$sth = $dbh->prepare("SELECT * FROM name_data"); # กำหนดคำสั่ง SQL
$sth->execute(); # ทำการประมวลผลคำสั่ง
print "Content-type:text/html\n\n";
while (my $ref = $sth->fetchrow_hashref()) { # ใช้ while เพื่อแสดงผลข้อมูล
print "Name = $ref->{'Name'}\n<br>"; # ทำการแสดงข้อมูลจาก Table ของ Field ที่มีชื่อว่า Name
}
$sth->finish();
$dbh->disconnect(); # ทำการยกเลิกการติดต่อกับ Database