การจัดการกับไฟล์ perl

การเปิดไฟล์มีอยู่ด้วยกัน 3 จุดประสงค์ก็คือ

1. การเปิดไฟล์เพื่ออ่าน การเปิดไฟล์แบบนี้ในกรณีที่ต้องการจะอ่านข้อมูลที่อยู่ในไฟล มีรูปแบบการเขียนดังนี้

open(FILEHANDLE,"filename");

2. การเปิดไฟล์เพื่อเขียน การเปิดไฟล์แบบนี้ในกรณีที่ไม่มีไฟล์ชื่อนั้นอยู่ก็จะสร้างไฟล์ใหม่ขึ้นมา แต่ถ้ามีไฟล์นั้นอยู่แล้วก็จะเสมือนกับลบไฟล์นั้นทิ้งแล้วสร้างไฟล์ใหม่ขึ้นมาเช่นเดียวกัน มีรูปแบบการเขียนดังนี้

open(FILEHANDLE,">filename");

3. การเปิดไฟล์เพื่อเขียนต่อ การเปิดไฟล์แบบนี้ในกรณีที่ไม่มีไฟล์ชื่อนั้นอยู่ก็จะสร้างไฟล์ใหม่ขึ้นมา แต่ถ้ามีไฟล์นั้นอยู่แล้วก็จะเขียนข้อมูลต่อท้ายข้อมูลเดิม มีรูปแบบการเขียนดังนี้

open(FILEHANDLE,">>filename");

การปิดไพล์จะเกิดขึ้นหลังจากที่เราได้เปิดไพล์ขึ้นมาเพื่ออ่านหรือเขียนจนเสร็จแล้ว เราก็จะปิดมัน มีรูปแบบการเขียนดังนี้

close(FILEHANDLE);

การใช้คำสั่ง die()

• ในบางครั้งที่เราไม่สามารถเปิดไฟล์ได้ เนื่องจากหาไฟล์ไม่เจอ, ไม่ได้รับอนุญาติให้ใช้ไฟล์นั้น หรืออื่นๆ เราก็จะไม่สามารถใช้ไฟล์นั้นได้ โดยส่วนใหญ่เราก็มักเขียนข้อความว่าหาไฟล์ไม่เจอ แล้วจบการทำงานของโปรแกรม เช่น

unless( open(DATAPLACE, "/tmp/dataplace") ){
    print "I couldn't create /tmp/dataplace ";
    exit;
}else{
    #โปรแกรมทำงานตรงนี้
}