求助：Perl读入大文件内存溢出问题

kilo_horse

求助各位高人，我用Perl写程序，读入一个大文件，6G，出现内存溢出问题，不知怎样能够控制文件读入和内存使用的关系。
谢谢各位指点！！

open( INF, $InFile)||die "\n Can not open InFile: $InFile\n";

while( <INF> )
{
   my $Long;
   $Long++;                               
}

close (INF)

就是类似这样的一个程序。

谢谢了！

apile

正常上面这样的代码不会有溢出问题..
除非你又另外存了什麽data..而且量很大...造成你的Memory 不够...
试着修改一下你的代码吧....

兰花仙子

Apile说的很对，这样就内存溢出了，perl还有的混？
可能你用了hash什么的来存储这个文件里的某些标志吧。

redspider

不知道lz的文件是不是整个就一行

kilo_horse

我重新检查了一下代码，发现确实在其它地方有些问题，现在又重新试了试，OK了，谢谢两位帮忙！