Perl如何讀寫文件

在Perl中可以用open或者sysopen函數來打開文件進行操作，這兩個函數都需要通過一個文件句柄（即文件指針）來對文件進行讀寫定位等操作。
下面以open函數爲例：
讀：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必須已經存在，否則會返回0，出錯信息在$!中。
寫：open(文件句柄，">文件名")，文件如果不存在，那麼創建之，如果存在，內容被清空，長度截爲0，$!中有出錯信息。
追加：open(文件句柄,">>文件名")，基本同寫，但有一點，文件中的內容不會被清空，新的內容會追加到原文後面。
讀寫：open(文件句柄,"+<文件名")，通過“+<”模式，你可以既可以讀文件，又可以寫文件。你可以通過tell()函數在文件內部移動，通過seek()函數進行定位。如果文件不存在，就會被創建。如果文件已經存在，原來的數據不會被清除。
open(文件句柄,"+>文件名")，通過“+》”模式，可以同時讀寫文件，但與上面不同的是，它是破懷性寫，會清除原來的內容。
例子：
open(FD,"info.txt")||die("Cannotopenthefile!$!n");
@line=<FD>;
close(FD);
上面的例子是打開info.txt這個文件並把文件內容讀入@line中，關閉文件。