perl数组比较求助

努力学习PERL

各位XDJM：
    小弟在工作上遇到一个困难，请求各位大大帮助一下。谢谢。。。文件格式如下：


SNP_A-4194556        AB        0.016        BB        0.026        AB        0.036        AA        0.115        rs12058711       
SNP_A-4200262        BB        0.045        BB        0.109        BB        0.093        BB        0.243        rs11205411       
SNP_A-2244055        BB        0.049        AB        0.012        BB        0.023        BB        0.049        rs11205401       
SNP_A-2105213        AB        0.006        AB        0.092        AA        0.001        AB        0.037        rs12748771       


文本就是这种格式，主要有4列的，形式如同AA,AB,AB,AA这样的数组，在每行进行比较，如果在某行中，前3个数组的元素相同，而与第4个数组的元素不同，则把这一行的全部内容输入到另一个文本中去。。

用perl编写一下。谢谢啦。

小弟初学PERL,感觉这个思路是这样，但是无法实施到代码上。希望能在各位的帮助下学习一下。。。谢谢

yinyuemi

回复 1# 努力学习PERL


    没明白，你指的数组相同是啥？

以
SNP_A-4194556        AB        0.016        BB        0.026        AB        0.036        AA        0.115        rs12058711      
为例， 你指的是"AB",还是"AB        0.016",还是"0.016"?

努力学习PERL

回复  努力学习PERL


    没明白，你指的数组相同是啥？

以
SNP_A-4194556        AB        0.01 ...
yinyuemi 发表于 2011-07-06 08:54

    是说的是AB，就单单是AB，BB，AB，AA这样的数组。。。。

yinyuemi

回复 3# 努力学习PERL


    笨办法：

1. echo 'SNP_A-4194556        AB        0.016        BB        0.026        AB        0.036        AA        0.115        rs12058711
   
2. SNP_A-4200262        BB        0.045        BB        0.109        BB        0.093        AA        0.243        rs11205411
   
3. SNP_A-2244055        BB        0.049        AB        0.012        BB        0.023        BB        0.049        rs11205401
   
4. SNP_A-2105213        AB        0.006        AB        0.092        AA        0.001        AB        0.037        rs12748771        '|\
   
5. perl -alne '{print $_ if($F[1]=~$F[3]&&$F[3]=~$F[5]&&$F[5]!~$F[7])}'
   
6. SNP_A-4200262        BB        0.045        BB        0.109        BB        0.093        AA        0.243        rs11205411

复制代码