perl读大文件时调用split函数出错

siceng

程序如下：

#!/usr/bin/perl

while($inputline = <STDIN> {
   @array = split(/\s+/, $inputline);
}

当遇到记录数很大（上千万）的文件时，系统报“panic: POPSTACK”错误，如果注释掉split这一句，无问题，如果文件较小，也无问题。

请问有什么解决办法？

gunguymadman

你是从stdin读入的文件？

siceng

是用的标准输入，因为是有很多个文件，用了这种方式：

cat DAT* | tt.pl

apile

while(my $inputline = <STDIN> {
   my @array = split(/\s+/, $inputline);
}
如果用這樣呢??
看起來像是memory不夠....STACK滿了...
如果還不行...分批處理吧...不要一次處理幾千萬筆...

gunguymadman

读入的文件名太多   用for do 跑吧