perl读取大文件out of memory
时间：2010-12-01 来源：Roolie'C
1 open(FILE_IN,"<xxx.txt>");
2 foreach $perIns(<FILE_IN>)
3 {
4 #done
5 }
2 while(defined($perIns = <FILE_IN>))
3 {
4 #done
5 }
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 }
相关阅读 更多 +
