程序运行结果没错,但中止时老是会出现out of memory?

yisn

程序运行结果没错, 不过比其它语言写的版本慢很多. 不知道是不是因为里面用了类,对象啥的,原因一直也没找着为什么.

ctrl+C终止运行的时候,会出现类似的错误:
Out of memory!
panic: pp_iter at tstate.pm line 67, <INPUT> line 2.

每次终止错误还不一样,比如
Out of memory!
panic: pp_iter at tstate.pm line 67, <INPUT> line 2.
Free to wrong pool 3b1340 not 35c97 at trna.pm line 36, <INPUT> line 2.

比如:
Can't coerce UNKNOWN to string in enter at tstate.pm line 66, <INPUT> line 2.
panic: pp_iter at tstate.pm line 67, <INPUT> line 2.

这会是什么原因啊?

下面这个函数是一个类中的方法, 这种写法对吗?

1. sub calFixPrb {
   
2.   my $this=shift @_;
   
3.   my($aSingleCalType,$aStart,$aEnd)=@_; #首0
   
4.   my($result,$i,$lkgram);
   
5.   if ($aSingleCalType==$tsATCG) {
   
6.     $result=1;
   
7.     for $i($aStart..$aEnd) {
   
8.       $result*=$this->{fATCG}[$this->{RNA}->{f0123}[$i]];    ###这是错误提示中的line 67
   
9.     }  
   
10.   }
    
11. }
    

复制代码

其中$this->{fATCG}是一个数组,  $this->{RNA}是另一个对象的引用, $this->{RNA}->{f0123}又是RNA这个对象的一个成员数组.
我没检查出哪里有错,只是老觉得出现奇怪的错误是因为这些引起的.

谢谢