计算比例

清泉一边

__DATA__
a        6        20
a        7        80
b        2        30
b        3        70
想得到
a        6        20      0.2
a        7        80      0.8
b        2        30      0.3
b        3        70      0.7
即第一列相同时，第三列所占所有的比例
请各位帮忙写下代码~
谢谢！

huang6894

回复 1# 清泉一边

1. #!/usr/bin/perl -w
   
2. 
   
3. my %h;
   
4. my @all = <DATA>;
   
5. foreach (@all){
   
6.                 chomp;
   
7.                 my($k,$v) = (split)[0,2];
   
8.                 $h{$k} += $v;
   
9. }
   
10. foreach (@all){
    
11.                 my($k,$v) = (split)[0,2];
    
12.                 print $_."\t".$v/$h{$k}.$/;
    
13. }               
    
14. __DATA__
    
15. a        6        20
    
16. a        7        80
    
17. b        2        30
    
18. b        3        70

复制代码

substr函数

想到

1. while (<DATA>) {
   
2.     s/(\d+)$/"$1\t" . sprintf "%0.1f", $1 * 0.01/e;
   
3.     print;
   
4. }
   
5. __DATA__
   
6. a        6        20
   
7. a        7        80
   
8. b        2        30
   
9. b        3        70

复制代码

清泉一边

如果文件非常大，不一次性放入数组里面呢？不用my @all = <DATA>;有没有办法呢？回复 2# huang6894


   

清泉一边

太牛了！回复 3# substr函数


   

huang6894

回复 3# substr函数


    原来他们的和全是100诶。。。我也是想太多了。。。。额。。。想太少了

huang6894

回复 4# 清泉一边


    如果你的计算机是1G，去处理8G的数据，想把文件排序后按第一列拆分成N个文件~然后再单独处理，处理完一个置空一个数组

清泉一边

其实不全是的100的~我为了方便给大家看，写的和是100~回复 6# huang6894


   

jason680

回复 4# 清泉一边

You can do this way if you had sorted data already

$ cat rate.pl

use strict;
use warnings;

my $sKey = "";
my $sTotal = 0;
my @aTemp = ();

sub output{
  my ($sTotal, @aTemp) = @_;
  foreach(@aTemp){
    print join("\t", @{$_}, $_->[-1] / $sTotal) . "\n";
  }
}

while(<DATA>){
  my @aData = split;
  if($sKey eq $aData[0]){
    push @aTemp, \@aData;
    $sTotal += $aData[-1];
    next;
  }
  if($sKey ne ""){
    output($sTotal, @aTemp);
  }
  @aTemp  = (\@aData);
  $sTotal = $aData[-1];
  $sKey   = $aData[0];
}
output($sTotal, @aTemp);

# Note: all data have sorted already
__DATA__
a        6        20
a        7        80
b        2        30
b        3        70

$ perl rate.pl
a        6        20        0.2
a        7        80        0.8
b        2        30        0.3
b        3        70        0.7

   

yestreenstars

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %sum;
   
6. my @data = <DATA>;
   
7. for my $data (@data){
   
8.         my @field = split(/\s+/, $data);
   
9.         $sum{$field[0]} += $field[2];
   
10. }
    
11. for my $data (@data){
    
12.         my @field = split(/\s+/, $data);
    
13.         push @field, $field[2] / $sum{$field[0]};
    
14.         print join("\t", @field), $/;
    
15. }
    
16. 
    
17. __DATA__
    
18. a        6        20
    
19. a        7        80
    
20. b        2        30
    
21. b        3        70

复制代码