统计信息

jason680

回复 1# zero_BX

$ cat FILE
>ENS 5
1       13, >A1/X2Y2/13... #
>ENS 6
1       14, >A4/X3Y4/11... #
2       14, >A4/X1Y2/12
>ENS 7
1       16, >A5/X1Y8/17... #


$ perl get_id_xy.pl FILE
ID    num    XX    YY
X5    13    2    2
X6    11    3    4
X7    17    1    8


$ cat get_id_xy.pl
use strict;
use warnings;


sub out{
  print join("\t",@_),"\n";
}

my $sId;
out("ID","num","XX","YY");

while (<>){
  # >ENS 5
  if(/^>ENS\s+(\d+)/){
    $sId = "X$1";
    next;
  }
  # 1       13, >A1/X2Y2/13... #
  if(m/#\s*$/){
    if(m|/X(\d+)Y(\d+)/(\d+)|){
      out($sId, $3, $1, $2);
    }
  }
}

jason680

回复 6# sunzhiguolu

>> ...提取第二对花括号内字符串...


本帖(统计信息)不相关，不再回帖