use warnings;
use strict;

open (FN, "file1") or die $!;
open(OUT,">file2")or die $!;


my %hash;

while (){
    chomp;
    if (/(\d+)\s([\d\w]+\s[\d\w]+\s[\d\w]+)/){
        
        push @{ $hash{$1} },$2;            ###This is to save multiple elements into a key.
        
       }

}

5楼: Originally posted by ch_sunshine at 2012-09-14 17:06:43
若是单纯想看看2、4代家系的个数信息，倒是有其他方法能得到。（比如：2代家系有N个）

6楼: Originally posted by 淡蓝幽香 at 2012-09-14 19:46:55
比如呢？...

7楼: Originally posted by ch_sunshine at 2012-09-17 13:59:48
用MERLIN软件关于ibd和kinship评估功能，可以根据你的.ped文件内容分析出家系结构（包括家系大小，世代数等一些信息）。 你可以看一下官网http://www.sph.umich.edu/csg/abecasis/Merlin/...

8楼: Originally posted by 淡蓝幽香 at 2012-09-18 16:10:03
多谢，我去试一下
对了，请问怎么个你加分？...

9楼: Originally posted by ch_sunshine at 2012-09-18 17:33:07
不知道  我是刚申的这个 。 希望能帮到你...