提取文件中相同元素的每一行

flw

非生物信息专业，没听懂你说的【元素相同】是什么意思，瞎猜一个，是这个意思吗？

1. $ cat in.txt
   
2. samplt  pos  ref  alt  L1  L2 L3 L4
   
3. A          23   A     C  AA  AA GG CC
   
4. B          23   T     G  TT   TT   TT  TT
   
5. C          12   T     A   TA   TA   TA  TA
   
6. D          13   T     G   TT   TG   TG  TT
   
7. 
   
8. $ cat in.txt | perl -lne 'print if /([TCGA]+)\s+\1\s+\1\s+\1/'
   
9. B          23   T     G  TT   TT   TT  TT
   
10. C          12   T     A   TA   TA   TA  TA

复制代码