คุณจะได้เรียนรู้

1. วิธีการเปิดไฟล์เอกสารใน Perl
2. การอ่านและเขียนข้อมูลใส่ในไฟล์เอกสาร
   

การใช้ Perl ต้องมีการเปิดไฟล์และเขียนข้อมูลลงไฟล์เป็นธรรมดาอยู่แล้ว เช่นถ้าจะทำ Guestbook เราก็ต้องนำข้อมูลที่ผู้ใช้กรอกมาใส่ไว้ในไฟล์ก่อน เมื่อใครต้องการดู Guest book ของเรา เราก็ต้องเขียนคำสั่งให้โปรแกรมเปิดไฟล์ขึ้นมาอ่านและเขียนข้อมูลในไฟล์ทั้งหมดส่งออกไปที่ผู้ต้องการดู
การสร้างไฟล์เอกสารก็เพียงเปิด notepad   ขึ้นมาแล้วใช้คำสั่ง save ให้เป็นชื่อและนามสกุลที่ต้องการ

การเปิดไฟล์ที่เป็นไฟล์เอกสารที่มีนามสกุลอะไรก็แล้วแต่ใน Perl มีคำสั่งส่วนหนึ่งและคำอธิบายดังนี้
open( FILE , "thai.txt" );
เป็นการเปิดไฟล์ thai.txt เพื่ออ่านข้อมูลเพียงอย่างเดียว

open( FILE , ">thai.txt" ):
เปิดไฟล์ thai.txt เพื่อเขียน ถ้ามีข้อมูลเก่าอยู่ในไฟล์
ข้อมูลเก่าจะถูกแทนด้วยข้อมูลใหม่

open( FILE , ">>thai.txt" );
เปิดไฟล์ thai.txt เพื่อเพิ่มข้อมูลใหม่เข้าไป ข้อมูลเก่าก็จะยังอยู่เหมือนเดิม


ต่อไปนี้เป็นตัวอย่าง Code เมื่อใช้งานจริง

open(DATA,"filename.ext"); #ส่วนที่เป็นคำว่า DATA คุณจะใช้คำอื่นๆก็ได้
$1lines = <DATA>; # ตัวแปรนี้ใช้ในกรณีที่อ่านข้อมูลเพียงบันทัดเดียวในไฟล์
@Alllines = <DATA>; # ตัวแปรนี้ใช้ในกรณีที่อ่านข้อมูลหลายๆบันทัดหรือทั้งไฟล์
close(DATA);#ปิดการเปิดไฟล์

ให้คุณ download ไฟล์ต่อไปนี้ แล้วดู code ที่ผมเขียนไว้ข้างใน

1. writedata.pl  -   เปิดไฟล์ data.txt เพื่อเขียนข้อมูลใส่ไว้ข้างใน
2. readdata.pl -   เปิดไฟล์ data.txt เพื่ออ่านข้อมูลแล้วแสดงผลที่หน้าจอภาพ