[問題] 加入項目問題
(其實不知道怎麼下標題才比較清楚，新手發問請多包涵)
現在我要處理一些資料，資料型態如下：
1,2 1,15 1,8 1,17 1,88 1,86 1,158 1,3 1,4........
2,81 2,136 2,186 2,182 2,186 2,238 2,91 2,231 2,53 2,60 2,10.....
3,65 3,16 3,16 3,114 3,59 3,189 3,246 3,96 3,92 3,82 3,231....
就是(第幾條,item)，資料有六萬多快七萬條
想要做成(第幾條,位置,1,item)這樣的形式
最後得到的結果如下：
1,1,1,2 1,2,1,15 1,3,1,8 1,4,1,17 1,5,1,88...........
2,1,1,81 2,2,1,136 2,3,1,186 2,4,1,182..........
3,1,1,65 3,2,1,16 3,3,1,16 3,4,1,114..........
目前想到的做法是先把空白替換成換行符號，
然後針對每一行用split把,前後分開，
再給一個迴圈，迴圈從1開始到六萬多，
迴圈裡給一個變數(位置)，
如果序列條數跟迴圈比對成功，位置就加一，
不成功就位置歸零。
程式寫了也可以跑，但是時間花非常多，
凌晨兩點開始跑，跑到早上十點多才output到第11條的一半。囧
所以想請問板上的強者們，我的程式有什麼需要修改的地方？
我自己也想過一些加速的方法，
例如把input file寫進陣列裡，比對成功的輸出完後就shift出去，
比對不成功就不再往下比對(←這邊想破了頭不知道該怎麼寫)，
也不知道這樣的想法是否可行。
以下提供我的程式碼，如果有描述不清的地方我可以再補充，
麻煩大家不吝賜教，謝謝。^^"
==
#(替換工作已做完)：
open (OUT, ">>output_file.txt");
open (FILE, "input_file.txt")||die "$!\n";
foreach $line(<FILE>)
{
for $i (0..65156)
{
($cid, $transaction) = split(',', $line);
if ($cid == $i+1)
{
$tid = $tid+1;
print OUT "$cid,$tid,1,$transaction";
}
else
{
$tid = 0;
}
}
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.41.152.126
※ 編輯: fuwafuwa 來自: 114.41.152.126 (06/14 16:50)
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
