สยามเว็บโฮส โฮสติ้งดี ราคาถูก

วัตถุประสงค์การก่อตั้งฯ
ห้องพระ-ชำระจิตใจ
เรื่องสั้น-บทความ
บทกลอน-บทกวี
เกมส์ออนไลน์
ตำหนักเพลงไทยเดิม
เซียมซีเสี่ยงโชค
กระดานสนทนา
ข่าวฝากประชาสัมพันธ์
กระดานซื้อ-ขายสินค้า
ฟรีอีเมล์เนื้อที่ 5 MB
ติดต่อ นายทะเบียน
Add to Favorites

ทั่วโลก www
ชมรมเว็บเพจไทย

Power by Google!
สนับสนุนพื้นที่ Hosting

สยามเว็บโฮสดอทคอม

 
Updated: 16/10/2545


บทความเรื่อง เริ่มเขียนสคริปต์ด้วยภาษา Perl โดย webmaster@thaitop.com

5. การเขียนและอ่านไฟล์เอกสาร

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

  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 เพื่ออ่านข้อมูลแล้วแสดงผลที่หน้าจอภาพ

ให้คุณเปิดไฟล์ data.txt ก่อนเพื่อดูข้อมูลที่อยู่ภายใน จากนั้นให้เรียก writedata.pl ถ้าสงสัยการทำงานให้ดู Code ภายในไฟล์ที่ต้องการซึ่งผมได้ แทรกคำอธิบายไว้ภายใน ถ้าพอเข้าใจแล้วให้ดัดแปลงได้ตามต้องการ คุณสามารถสร้างแบบฟอร์มขึ้นมาแล้วกำหนด action ของฟอร์มมาที่ writedata.pl เพื่อส่งข้อมูลให้ไฟล์นี้นำไปเขียนลงไฟล์ data.txt โดยใช้หลักการรับข้อมูลและการตั้งตัวแปรในบทก่อนๆที่เรียนมา ถ้าคุณทำได้สำเร็จแสดงว่าคุณเริ่มบรรลุ แล้ว ขอแสดงความยินดีด้วย ถ้าไม่รู้ว่าจะทำอย่างไร ให้ทบทวนบทก่อนๆอีกรอบ

ใน บทต่อไป เป็นการใช้ Perl ในงานฐานข้อมูลอย่างง่าย


ชมรมเว็บเพจไทย ตั้งใจมุ่งมั่น สร้างสรรค์เพื่อมวลสมาชิก



เริ่มนับ 20 พฤศจิกายน 2547 เวลา 24.00 น.
เว็บไซต์แห่งนี้ออกแบบสำหรับจอภาพที่มีความละเอียด 800x600 Pixel และ เปิดชมด้วย IE4.0 ขึ้นไป

ชมรมเว็บเพจไทย เป็นเว็บไซต์ที่จัดทำขึ้นเพื่อเผยแพร่ข่าวสารและสาระความรู้เกี่ยวกับการสร้างเว็บไซต์ ให้แด่สมาชิกและผู้สนใจทั่วไป
โดยไม่หวังผลประโยชน์ทางธุระกิจ [Non Profit Organization] ก่อตั้งเมื่อวันที่ 16 ตุลาคม พ.ศ. 2540
ข้อมูลข่าวสาร บทความ และภาพประกอบ ที่ไม่อ้างถึงเจ้าของลิขสิทธิ์ สามารถนำไปใช้ได้โดยไม่ต้องขออนุญาต [Non Copyright]