论坛徽章:: 1

电梯直达

1楼 [收藏(0)] [报告]

发表于 2015-03-23 11:42 |只看该作者 |倒序浏览

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

有这么一组数据我想按列处理并求和，我是个新手不太会，求大神指教，就是每列都相加到一起

文库|博客

mcshell

富足长乐

论坛徽章:: 3

2楼 [报告]

发表于 2015-03-23 11:55 |只看该作者

#!/usr/bin/perl
use strict;
use warnings;
my $sum;
while(<DATA>){
@_=split;
$sum->{$_}+=$_[$_] for 0..$#_;
}
print "$_=>$sum->{$_}\n" for sort{$a<=>$b} keys %$sum;
__DATA__
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
....

复制代码

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jiangphoenix

白手起家

论坛徽章:: 1

3楼 [报告]

发表于 2015-03-23 12:52 |只看该作者

回复 2# mcshell
没太看懂，我想生成的是每一列一个数组，不是都合到一起去求指教

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

jason680

富可敌国

论坛徽章:: 145

4楼 [报告]

发表于 2015-03-23 14:24 |只看该作者

回复 1# jiangphoenix

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

# data here
__DATA__
...