perl新手求助

jiangphoenix

9.233580816        7.7254855        7.456605686        6.939735657        6.572044757        5.605318883        5.599913113        4.130604783        4.835579787        4.848509511        4.909937463        3.861022468
9.229471201        7.68056387        7.451788858        6.90337454        6.599499503        5.586155542        5.626331129        4.141192936        4.840734416        4.818602949        4.908136767        3.869459352
9.236231498        7.714280251        7.466118938        6.926695884        6.597247782        5.599984779        5.595146296        4.133746009        4.845053855        4.84343067        4.915266819        3.844372505
9.236311572        7.694902739        7.467764983        6.948723206        6.58665983        5.583623934        5.606742242        4.134065595        4.84052435        4.834755591        4.921874587        3.864563002
9.241711779        7.726388545        7.519831874        6.943808123        6.574500069        5.602875719        5.604024299        4.101127655        4.830120187        4.825854865        4.90972354        3.854373791
9.226951035        7.71338761        7.496210011        6.946406411        6.60388894        5.587875366        5.598369829        4.132877802        4.818807336        4.834532618        4.924428016        3.881957222
9.196440451        7.713861754        7.451425783        6.933908715        6.582274591        5.59618        5.584381988        4.127663372        4.847716377        4.850345227        4.920769891        3.868708932
9.213485586        7.712034266        7.485611809        6.932329474        6.552798218        5.592889963        5.595743955        4.145496271        4.83498259        4.813974202        4.918530482        3.880984173
9.248565278        7.719364084        7.540834334        6.967680204        6.600281753        5.623719546        5.626834646        4.115972883        4.818562688        4.826651625        4.901222831        3.869440945
9.246217436        7.689681955        7.446452359        6.891087258        6.579739054        5.57090118        5.588509382        4.143484888        4.863026591        4.827212143        4.909435291        3.871468228
9.241413029        7.731681609        7.483399664        6.956193521        6.598051445        5.595800178        5.616206772        4.14436254        4.830679392        4.833585825        4.917730918        3.895508416
9.242277084        7.683557201        7.458782924        6.934136043        6.593619743        5.588047411        5.596200508        4.138487018        4.836157234        4.823112533        4.884112038        3.862423037
9.257791444        7.713494113        7.455088331        6.927626155        6.609595888        5.587565261        5.577007199        4.131722888        4.844712565        4.824221279        4.918815318        3.880995656
9.247894161        7.74507238        7.498918816        6.950564595        6.591447051        5.622661913        5.599932206        4.126439986        4.822781859        4.814466803        4.921685872        3.874001908
9.26557825        7.703057815        7.537790813        6.971675498        6.601327289        5.582183827        5.611495817        4.107273763        4.834614717        4.819800976        4.910290277        3.885297355

有這么一組數(shù)據(jù) 我想按列處理并求和，我是個(gè)新手不太會(huì)，求大神指教，就是每列都相加到一起

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my $sum;
   
5. while(<DATA>){
   
6.         @_=split;
   
7.         $sum->{$_}+=$_[$_] for 0..$#_;
   
8. }
   
9. print "$_=>$sum->{$_}\n" for sort{$a<=>$b} keys %$sum;
   
10. __DATA__
    
11. 9.233580816        7.7254855        7.456605686        6.939735657        6.572044757        5.605318883        5.599913113        4.130604783        4.835579787        4.848509511        4.909937463        3.861022468
    
12. 9.229471201        7.68056387        7.451788858        6.90337454        6.599499503        5.586155542        5.626331129        4.141192936        4.840734416        4.818602949        4.908136767        3.869459352
    
13. 9.236231498        7.714280251        7.466118938        6.926695884        6.597247782        5.599984779        5.595146296        4.133746009        4.845053855        4.84343067        4.915266819        3.844372505
    
14. 9.236311572        7.694902739        7.467764983        6.948723206        6.58665983        5.583623934        5.606742242        4.134065595        4.84052435        4.834755591        4.921874587        3.864563002
    
15. 9.241711779        7.726388545        7.519831874        6.943808123        6.574500069        5.602875719        5.604024299        4.101127655        4.830120187        4.825854865        4.90972354        3.854373791
    
16. 9.226951035        7.71338761        7.496210011        6.946406411        6.60388894        5.587875366        5.598369829        4.132877802        4.818807336        4.834532618        4.924428016        3.881957222
    
17. 9.196440451        7.713861754        7.451425783        6.933908715        6.582274591        5.59618        5.584381988        4.127663372        4.847716377        4.850345227        4.920769891        3.868708932
    
18. 9.213485586        7.712034266        7.485611809        6.932329474        6.552798218        5.592889963        5.595743955        4.145496271        4.83498259        4.813974202        4.918530482        3.880984173
    
19. 9.248565278        7.719364084        7.540834334        6.967680204        6.600281753        5.623719546        5.626834646        4.115972883        4.818562688        4.826651625        4.901222831        3.869440945
    
20. ....

復(fù)制代碼

jiangphoenix

回復(fù) 2# mcshell
沒太看懂，我想生成的是每一列一個(gè)數(shù)組，不是都合到一起去  求指教

   

jason680

回復(fù) 1# jiangphoenix


   
my @aSum;   # summation array
while(<DATA>){
  my @aData = split;
  my $sCnt = 0;
  foreach(@aData){
    $aSum[$sCnt] += $aData[$sCnt];
    $sCnt++;
  }
}

# data here
__DATA__
...

jiangphoenix

回復(fù) 4# jason680
謝謝你，受教了

   

b114213903

2樓也很給力��！jiangphoenix