寫perl遇到的問題

[littlefat]

小弟的程式有各問題，請會的大大幫我看一下

那一開使將檔案讀入
我的檔案裡面有例如:$tmp = 1 , 2 , 3 ,4，四種
混合有1千多萬個

然後我的程式一開始讀入後
將$tmp裡面都塞到一個@a裡面去（有計算個數）
再來將$tmp裡面的 reverse 在存到@b去

可是就發生了有讀到@a裡面
可是沒有辦法再往下跑了，就出現：Out of Memory

這樣該怎麼改寫呢？是不是$tmp不能塞太多?
謝謝

[willie0220 off-line]

你是用for/foreach迴圈去寫的嘛？
試試看用while迴圈改寫....應該可以避免掉out of memory的問題...

[littlefat]

小弟是已經用while寫了
可是最後只產生了前半部的count
再來讀，就出現了Out of memory了
麻煩各位幫我看一下

open(FILE,"<$filename") or die "$!";
open(RS,">$output");

while (defined($line = <FILE>))
{
if($line !~ /^>/)
{
$line =~ s/ //g;
$line =~ s/$\\n//ig;
$tmp .= $line;
}
}

@D = $tmp;
$D = join('', @D);
$all = 0;
$all = length($D);
print RS "count = $all\n";

@ReD = split("",$tmp);
@ReD = reverse(@ReD);
$ReD = join("",@ReD);
$Reall = 0;
$Reall = length($ReDNA);
print RS "Recount = $Reall\n";

[訪客]

將檔案資料分段處理.
(弄個計數器測一下最大可處理筆數)

[littlefat]

將檔案資料分段處理.
(弄個計數器測一下最大可處理筆數)

之前有分段過了，但是最後計算出來的結果會有問題
跟用整段計算出來不同

計數器該怎麼寫....