Text File เกือบจะเป็นเรื่องพื้นฐานของการเก็บข้อมูล หรือ DATA สำหรับ web Application หรือ Application อื่น ๆ สำหรับโปรแกรมบนเว็บแล้ว เรื่องนี้อาจจะจำเป็นมาก หากวันหนึ่งคุณต้องได้ใช้งาน Web Server ที่ไม่มีความสามารถทางด้าน Database มาให้เราใช้งาน การใช้งาน Text File ในการเก็บข้อมูลเป็นอีกทางเลือกหนึ่งที่คุณจะใช้ได้ในสถานะการณ์แบบนั้น

ps. Perl มีการทำงานกับ Text File ได้ดีกว่าภาษาอื่น ๆ ที่ผมได้เคยทดลองใช้งานมา

การใช้งาน TEXT File ของ Perl

#!/usr/bin/perl
# การอ่านข้อมูลจาก Text File
open(FILE,"data.txt");  # เปิดการอ่าน File โดยกำหนด File Handle ชื่อว่า FILE
flock(FILE,2);n  # ทำการ Lock File เพื่อป้องกันผู้อื่นเข้ามาใช้งานขณะที่ไไฟล์นี้กำลังถูกเรียกใช้ โดยใช้่ operation เป็น 2
@var=<FILE>;  # เก็บข้อมูลลงใน Array
flock(FILE,8); #ทำการปลด Lock ไฟล์ เมื่อใช้งานเสร็จ โดยใช้่ operation เป็น 8
close(FILE); # ปิดไฟล์
print "Content-type:text/html\n\n";
foreach $data(@var){  # ทำการแสดงผลข้อมูลที่ได้จากไฟล์ออกสู่ Browser
print $data."<br>";
}

#!/usr/bin/perl
# การเขียนข้อมูลสู่ File
open(WRITE,">data.txt");
# เปิดการอ่าน File โดยกำหนด File Handle ชื่อว่า WRITE และใช้เครื่องหมาย > (มากกว่าอันเดียว) หน้าชื่อไฟล์เพื่อทำการเขียนไฟล์ในโหมดเขียนทับ หากต้องการเขียนต่อท้ายข้อมูลภายในไฟล์ให้ใช้ >> (มากกว่า 2 อัน)
flock(WRITE,2); # ทำการ Lock File
print WRITE "Write File\n"; # ทำการเขียนไฟล์
flock(WRITE,8); #ทำการปลด Lock ไฟล์
close(WRITE); # ปิดไฟล์