perl讀取大檔案out of memory

工作需要用perl寫了一個指令碼讀取1G多的檔案，直接報out of memory，對perl不是很熟悉就上網查了資料，後來發現是因為寫的讀取檔案內容時直接將所有檔案內容讀入數組導致這個問題。

1 open(FILE_IN,"<xxx.txt>"); 
2 foreach $perIns(<FILE_IN>)
3 {
4 　　#done 
5 }

 

 

這裡將1G多的檔案都寫到了一個臨時的數組中了，只要需要改寫一下讀取檔案的方式，讀一行處理一行。 

1 open(FILE_IN,"<xxx.txt>"); 
2 while(defined($perIns = <FILE_IN>))
3 {
4 　　#done 
5 }