分享：Perl打開與讀取文件的方法

在Perl中可以用open或者sysopen函數來打開文件進行操作，這兩個函數都需要通過一個文件句柄（即文件指針）來對文件進行讀寫定位等操作。

Perl打開與讀取文件的方法，供大家學習參考。
本文轉自： http://www.jbxue.com/article/3073.html

在Perl中可以用open或者sysopen函數來打開文件進行操作，這兩個函數都需要通過一個文件句柄（即文件指針）來對文件進行讀寫定位等操作。

下面以open函數為例：
1：讀：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必須已經存在，否則會返回0，出錯信息在$!中。
2：寫：open(文件句柄，">文件名")，文件如果不存在，那么創建之，如果存在，內容被清空，長度截為0，$!中有出錯信息。
3：追加：open(文件句柄,">>文件名")，基本同寫，但有一點，文件中的內容不會被清空，新的內容會追加到原文后面。
4：讀寫：open(文件句柄,"+<文件名")，通過“+<”模式，你可以既可以讀文件，又可以寫文件。你可以通過tell() 函數在文件內部移動，通過seek()函數進行定位。如果文件不存在，就會被創建。如果文件已經存在，原來的數據不會被清除。
open(文件句柄,"+>文件名")，通過“+》”模式，可以同時讀寫文件，但與上面不同的是，它是破懷性寫，會清除原來的內容。

例子：

open(FD,"info.txt")||die("Can not open the file!$!n");

@line=<FD>;
close(FD);

上面的例子是打開info.txt這個文件並把文件內容讀入@line中，關閉文件。

例子：（打開一個在電腦G盤111文件下的一個文件）

open(IN,"G:/111/mylove.txt");
while($line=<IN>){
        print $line;
}

更多內容，請參考：perl文件操作的一些例子