这个程序怎么写？

bioinfor

有M行，N列的数据，现在想计算同一行中每一个数据除以同一行Total里的数据，如果比例大于且等于50%输出相应的数字和所在列和行的名字，这个程序怎么写啊，头也太了，搞了半天也没搞出来。

如下面这个例子：共3行(M=3),4列(N=4)，

        Name1        Name2        Name3        Total
Num1        1        2        3        6
Num2        2        4        9        15
Num3        10        20        15        45


则想输出的结果是：

Num1,Name3=3
Num2,Name3=9


解释：因为Num1,Name3=3   3除以6=50%符合条件；Num2,Name3=9  9除以15=60%符合条件

jason680

回复 1# bioinfor

$ cat 50percent.pl

use strict;
use warnings;

my @aName = split(/\s+/,<DATA>);
while(<DATA>){
  my @aData = split;
  my $sOut = shift @aData;
  my $sTotal = pop @aData;
  my $sCnt = 0;
  my $sFlag_out = 0;
  foreach(@aData){
     $sCnt++;
     if($_  / $sTotal >= 0.5){
        $sOut .= ",$aName[$sCnt]=$_";
        $sFlag_out = 1;
     }
  }
  if($sFlag_out == 1){
    print "$sOut\n";
  }
}

__DATA__
        Name1        Name2        Name3        Total
Num1        1        2        3        6
Num2        2        4        9        15
Num3        10        20        15        45


$ perl 50percent.pl
Num1,Name3=3
Num2,Name3=9

   

bioinfor

谢谢，回复的太快了，程序很强很好用！
弱弱问一下， my @aData = split;这行怎么解释？

jason680

perldoc -f split

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my @title = split /\s+/,<DATA>;
   
5. while (<DATA>) {
   
6.         my @info = split;
   
7.         my @anum = grep {$info[$_] / $info[-1] >= 0.5} 1..$#info-1;
   
8.         if (@anum) {
   
9.                 print "$info[0],",join(',',map {"$title[$_]=$info[$_]"} @anum),"\n";
   
10.         }
    
11. }
    
12. 
    
13. __DATA__
    
14.                 Name1        Name2        Name3        Total
    
15. Num1        1        2        3        6
    
16. Num2        2        4        9        15
    
17. Num3        10        20        15        45

复制代码