Perl 脚本求教！！！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.     my ($n, $v) = split;
   
8.     my $pos = int ($n / 100);
   
9.     push (@{$hData{$pos}{'L'}}, $n);
   
10.     push (@{$hData{$pos}{'V'}}, $v);
    
11. }
    
12. 
    
13. foreach (keys %hData){
    
14.     my $intInfo = join ('-', @{$hData{$_}{'L'}}[0,-1]);
    
15.     my $sum = 0;
    
16.     $sum += $_ for @{$hData{$_}{'V'}};
    
17.     $sum /= @{$hData{$_}{'V'}};
    
18.     print join ("\t", $intInfo, $sum), "\n";
    
19. }
    
20. 
    
21. __DATA__
    
22. 0 1
    
23. 5 0.064999
    
24. 87 0.074467
    
25. 101 0.053001
    
26. 110 0.064052
    
27. 231 1
    
28. 244 0.000945
    
29. 251 1
    
30. 351 0.114801
    
31. 357 0.005302
    
32. 372 0.000127
    
33. 488 1
    
34. 489 0.674773
    
35. 489 0.129187
    
36. 593 0.024282
    
37. 594 0.000234

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub Display{
   
6.     my ($pos, $rh) = @_;
   
7.     my $intInfo = join ('-', @{delete ($rh->{$pos}{'L'})}[0,-1]);
   
8.     my @aVals = map {@$_} delete ($rh->{$pos}{'V'});
   
9.     my $sum = 0;
   
10.     $sum += $_ for @aVals;
    
11.     print join ("\t", $intInfo, ($sum / @aVals)), "\n";
    
12. }
    
13. 
    
14. my ($lastPos, %hData) = (0, ());
    
15. while (<DATA>){
    
16.     my ($n, $v) = split;
    
17.     my $pos = int ($n / 100);
    
18.     push (@{$hData{$pos}{'L'}}, $n);
    
19.     push (@{$hData{$pos}{'V'}}, $v);
    
20.     next if ($lastPos == $pos);
    
21.     Display ($lastPos, \%hData);
    
22.     $lastPos = $pos;
    
23. }
    
24. 
    
25. Display ($lastPos, \%hData);
    
26. 
    
27. __DATA__
    
28. 0 1
    
29. 5 0.064999
    
30. 87 0.074467
    
31. 101 0.053001
    
32. 110 0.064052
    
33. 231 1
    
34. 244 0.000945
    
35. 251 1
    
36. 351 0.114801
    
37. 357 0.005302
    
38. 372 0.000127
    
39. 488 1
    
40. 489 0.674773
    
41. 489 0.129187
    
42. 593 0.024282
    
43. 594 0.000234

复制代码

moperyblue

1. echo '0 1
   
2. 5 0.064999
   
3. 87 0.074467
   
4. 101 0.053001
   
5. 110 0.064052
   
6. 231 1
   
7. 244 0.000945
   
8. 251 1
   
9. 351 0.114801
   
10. 357 0.005302
    
11. 372 0.000127
    
12. 488 1
    
13. 489 0.674773
    
14. 489 0.129187
    
15. 593 0.024282
    
16. 594 0.000234'|awk '{k=int($1/100);a[k]+=$2;b[k]++}END{for(i in a){print (i>0)?i*100+1"-"(i+1)*100:0"-"100,a[i]/b[i]}}'

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while (<DATA>){
   
7.     my ($n, $v) = split;
   
8.     my $pos = int ($n / 100);
   
9.     push (@{$aData[$pos]{'L'}}, $n);
   
10.     $aData[$pos]{'C'}++;
    
11.     $aData[$pos]{'V'} += $v;
    
12. }
    
13. 
    
14. for (@aData){
    
15.     my $str = join ('-', (@{$_->{'L'}})[0,-1]);
    
16.     local $_ = join ("\t", $str, $_->{'V'} / $_->{'C'}) . "\n";
    
17.     print;
    
18. }
    
19. 
    
20. __DATA__
    
21. 0   1
    
22. 5   0.064999
    
23. 87  0.074467
    
24. 101 0.053001
    
25. 110 0.064052
    
26. 231 1
    
27. 244 0.000945
    
28. 251 1
    
29. 351 0.114801
    
30. 357 0.005302
    
31. 372 0.000127
    
32. 488 1
    
33. 489 0.674773
    
34. 489 0.129187
    
35. 593 0.024282
    
36. 594 0.000234
    

复制代码