请各位大侠帮忙处理用perl脚本处理文件

huangluhao

附件的文件的第一例为样本的ID数，最后一列是分类，中间的的数字是相对丰度，现在我想将中间的数字都小于0.0001的那一行过滤掉，请各位帮忙，谢谢

huang6894

print if /\t([0-9.]+)\t/ and $1 >0.0001;?

huangluhao

您好，请问9后面为什们加.呢？谢谢回复 2# huang6894


   

huang6894

回复 3# huangluhao


    加.表示小数点也考虑在内，我认真看了一下你的需求，发现我的答案是错的

yestreenstars

现在我想将中间的数字都小于0.0001的那一行过滤掉

你确定？{:3_183:}

huangluhao

确定的，就是将每行的数字都小于0.0001的滤掉回复 5# yestreenstars


   

huang6894

回复 6# huangluhao


    额。。。还没解决啊？
好吧，菜鸟给你一个先用着吧：

1. #! /usr/bin/perl -w
   
2. while(<DATA>){
   
3.         my @all = /\t([0-9.]+)/g;
   
4.         pop @all;
   
5.         print $_ if grep{$_ >0.001}@all;
   
6. }
   
7. __DATA__
   
8. 1       0       0       0       2       0       1
   
9. 2       0.001   0       0       0       0       2
   
10. 3       0       0       0.1     0       0       1
    
11. 4       0       0.2     0.1     0       0       3
    

复制代码

afukada

How about this one

1. while(<DATA>)
   
2. {
   
3.         chomp;
   
4.         print $_,"\n" if(eval(join("+",map{$_>=0.01 ? 1 : 0}(split(/\t/))[1..scalar((split(/\t/)))-2])));
   
5. }
   
6. 
   
7. __DATA__
   
8. 1        0        0        0        2        0        1
   
9. 2        0.001        0        0        0        0        2
   
10. 3        0        0        0.1        0        0        1
    
11. 4        0        0.2        0.1        0        0        3

复制代码

afukada

How about this one

1. while(<DATA>)
   
2. {
   
3.         chomp;
   
4.         print $_,"\n" if(eval(join("+",map{$_>=0.01 ? 1 : 0}(split(/\t/))[1..scalar((split(/\t/)))-2])));
   
5. }
   
6. 
   
7. __DATA__
   
8. 1        0        0        0        2        0        1
   
9. 2        0.001        0        0        0        0        2
   
10. 3        0        0        0.1        0        0        1
    
11. 4        0        0.2        0.1        0        0        3

复制代码

huangluhao

谢谢回复 7# huang6894