1. 一次性將文件中的所有內(nèi)容讀入一個(gè)數(shù)組中(該方法適合小文件)：

open(FILE,"filename")||die"can not open the file: $!";
@filelist=;

foreach $eachline (@filelist) {
        chomp $eachline;
}
close FILE;
@filelist=;

當(dāng)文件很大時(shí)，可能會(huì)出現(xiàn)"out of memory"錯(cuò)誤。

2. 一次從文件中讀取一行，一行行地讀取和處理(讀取大文件時(shí)比較方便)：

open(FILE,"filename")||die"can not open the file: $!";
while (defined ($eachline =)) {
     chomp $eachline;
         # do what u want here!
}
close FILE;