求perl腳本幫助，文本中關(guān)于相同內(nèi)容合并

yang7473453

文件一：
1###ENSMMUP00000017866###-###27582-27683
1###ENSMMUP00000017866###-###27508-27576
1###ENSMMUP00000017866###-###27290-27503
1###ENSMMUP00000017866###-###24407-24477
1###ENSMMUP00000017866###-###24345-24401
1###ENSMMUP00000017866###-###24047-24340
1###ENSMMUP00000017866###-###23770-24042
1###ENSMMUP00000017866###-###23742-23765
1###ENSMMUP00000040736###-###199515-200498
1###ENSMMUP00000040736###-###198582-198818
1###ENSMMUP00000030409###+###395728-395934
1###ENSMMUP00000030409###+###403004-403148
1###ENSMMUP00000030409###+###407674-407795
1###ENSMMUP00000030409###+###408910-409030

想合并相同的，生成文件格式如下：
1###ENSMMUP00000017866###-###27582-27683  27508-27576  27290-27503  24407-24477 24345-24401 24047-24340 23770-24042  23742-23765
1###ENSMMUP00000040736###-###199515-200498  198582-198818
1###ENSMMUP00000030409###+###395728-395934  403004-403148  407674-407795  408910-409030

MMMIX

回復(fù) 1# yang7473453


    用正則把兩部分抽取出來，然后放到個 hash 中，然后輸出即可。

xiaoxingan99

練習(xí)一下，沒有排序的
use strict;
use warnings;
my $key;
my $value;
my %h;
foreach (<DATA>)
{
        ($key,$value)=$_=~/(.{29})(.*)/;
        $h{$key}.="$value ";
        }
        foreach (keys %h)
        {
                print "$_$h{$_}\n";
                }

MMMIX

回復(fù) 3# xiaoxingan99


    foreach (<DATA>) 或者 foreach (<>) 或者 foreach (<$fh>)

這些寫法不能說錯,但要碰上大文件, 例如說是個兩三G的文件要處理, 這種寫法由于要預(yù)先把文件整個讀入, 直接就能把機器拖到不可用.

正確的寫法應(yīng)該是 while (<>)

xiaoxingan99

回復(fù) 4# MMMIX


    謝謝指教^_^

yang7473453

非常感謝，不過可以解釋一下這個~/(.{29})(.*)/是什么意思，尤其是29這個不太懂
回復(fù) 3# xiaoxingan99


   

xiaoxingan99

回復(fù) 6# yang7473453

這段是匹配，.是元字符，這里表示除了回車外的所有單字符，{29}表示匹配29次
我是按照你給的數(shù)據(jù)， 數(shù)出來后面應(yīng)該是第29位開始是要處理的數(shù)據(jù)
這個匹配是最簡單的，你看一下平perl語言入門第七章就知道了

yang7473453

非常感謝！�。�回復(fù) 7# xiaoxingan99