选取所需字母

yueli7

各位大侠，

用perl编程。

这样一个文件，用tab键隔开。

2 5 ATGCTGCTGTGCACATGTCAT
11 16 AGTCTCGCTCGCAACTAGCG
13 26 AGCTCAGATCGACTAGCATACGATCAGCT
7 15 GTCACATGCATCAGCATC

第一行需要从第2个到第5个碱基，共4个；
第二行需要从第11个到第16个碱基，共6个；
第三行需要从第13个到第26个碱基，共14个；
第四行需要从第7个到第15个碱基，共9个。

谢谢！

yestreenstars

1. [root@localhost ~]# perl -lane 'print substr($F[2],$F[0]-1,$F[1]-$F[0]+1)' i
   
2. TGCT
   
3. GCAACT
   
4. CTAGCATACGATCA
   
5. TGCATCAGC
   
6. [root@localhost ~]# cat i
   
7. 2 5 ATGCTGCTGTGCACATGTCAT
   
8. 11 16 AGTCTCGCTCGCAACTAGCG
   
9. 13 26 AGCTCAGATCGACTAGCATACGATCAGCT
   
10. 7 15 GTCACATGCATCAGCATC
    
11. [root@localhost ~]#

复制代码

pitonas

好厉害的小伙伴们, 这个必须赞一个{:2_178:}

回复 2# yestreenstars


   

yestreenstars

回复 3# pitonas
隔壁版区（Shell）过来客串的，请多多指教~

   

pitonas

星辰小伙伴们昨夜的功力已经到了遥不可及的地步了。{:2_172:}
每次看你的代码总有惊喜，谢谢了。{:2_178:} {:2_178:}
回复 4# yestreenstars


   

yueli7

谢谢！

yestreenstars 功力厉害！