perl/etc/radseq/chr.inf

   1 #ChrID  Len     n       f00
   2 gi|362110686|gb|CM001378.1|     239302903       A1      f00
   3 gi|362110683|gb|CM001379.1|     169043629       A2      48f
   4 gi|362110681|gb|CM001380.1|     142459683       A3      6a1
   5 gi|362110674|gb|CM001381.1|     205241052       B1      00f
   6 gi|362110670|gb|CM001382.1|     154261789       B2      08f
   7 gi|362110654|gb|CM001383.1|     148491654       B3      f0f
   8 gi|362110649|gb|CM001384.1|     144259557       B4      84f
   9 gi|362110644|gb|CM001385.1|     221441202       C1      0e0
  10 gi|362110642|gb|CM001386.1|     157659299       C2      4a0
  11 gi|362110640|gb|CM001387.1|     116869131       D1      d00
  12 gi|362110638|gb|CM001388.1|     89822065        D2      d0f
  13 gi|362110636|gb|CM001389.1|     95741729        D3      9e0
  14 gi|362110634|gb|CM001390.1|     96020406        D4      d04
  15 gi|362110632|gb|CM001391.1|     63002102        E1      0d0
  16 gi|362110629|gb|CM001392.1|     64039838        E2      08f
  17 gi|362110625|gb|CM001393.1|     43024555        E3      fd0
  18 gi|362110622|gb|CM001394.1|     68669167        F1      00d
  19 gi|362110619|gb|CM001395.1|     82763536        F2      d08
  20 gi|362110616|gb|CM001396.1|     126427096       X       0d4
  21 #Total  2428540393      0       f00
  22 # perl -lane '$F[-5]=~s/\,$//;$F[-6]=~s/,$//;;print join("\t",@F[0,1,-6],'f00')'  chr.nfo >chr.inf