请各位兄弟帮忙看看如何用shell对这个文件的数据进行一下处理

turtlerock

我shell功底有限，请各们兄弟帮帮忙。
下面的数据保存为a.dat，共有16行，8列(这个只是举例，行列数根据情况是可变的)
每一列用逗号,隔开，每一列的一个数据格式为#(0.853439367921498 -0.00269620609963894 0.0)，其中括号中包含三个数值。
现在我想把这三个数据平方相加，然后形成一个16x8的数组，并保存到文件。
请熟悉的朋友帮忙弄一下，谢谢。


#(0.853439367921498 -0.00269620609963894 0.0), #(-4.61535949366843e-4 -1.54872695504052e-4 0.0), #(4.12499768581937e-4 -4.4791309777856e-4 0.0), #(-9.98463695690515e-4 -2.8667324222068e-4 0.0), #(1.83657204886172e-4 -4.26019157892167e-6 0.0), #(7.65940660802373e-4 -3.65337638409312e-4 0.0), #(-0.00127836680373638 0.0030719926082517 0.0), #(0.00233320575915188 -0.00514143803475815 0.0)
#(0.894284484427583 -2.81213006617785e-5 0.0), #(-0.0356910252772465 4.37685463906142e-6 0.0), #(-0.253630801116103 2.22204728393201e-4 0.0), #(0.0291477224907746 -2.34138432359993e-4 0.0), #(-0.199915597046146 4.8723253050026e-6 0.0), #(0.0392495660733174 -0.00225934354860221 0.0), #(0.036083819962402 0.00256362709250679 0.0), #(-0.0185707364200755 6.75479145375622e-4 0.0)
#(0.882432631454645 -3.04069076972917e-5 0.0), #(-0.106121092334982 6.49917663212046e-6 0.0), #(-0.425698596684934 1.06393278585098e-4 0.0), #(0.0480457960303486 -1.24806327076722e-4 0.0), #(-0.208020646784813 1.70662652956774e-5 0.0), #(0.0728779892516257 -0.00256310473952472 0.0), #(0.172333821479607 0.00272812517695272 0.0), #(-0.0448635823972144 4.78895490401241e-5 0.0)
#(0.856911811104632 -2.63744069080767e-5 0.0), #(-0.268251033396699 1.68443691089315e-5 0.0), #(-0.40697048099079 4.69564664365539e-5 0.0), #(0.0491981308608046 -7.83354138801672e-5 0.0), #(-0.137825334569297 1.76704899137053e-5 0.0), #(0.104389443583291 -7.82908294062471e-4 0.0), #(0.250242191938579 9.59417932805659e-4 0.0), #(-0.0820235900923034 -2.91620186037897e-4 0.0)
#(0.799111947902398 -2.34825576378833e-5 0.0), #(-0.512509552788497 3.43819922298689e-5 0.0), #(-0.20906727150298 -1.37282539747439e-6 0.0), #(0.0310089554417405 -5.12629997502152e-5 0.0), #(-0.0669578058056562 1.31483050754919e-5 0.0), #(0.101562981742086 -4.77801090310894e-4 0.0), #(0.284695555804485 5.54449756885232e-4 0.0), #(-0.0973041878717656 -4.58241010258793e-4 0.0)
#(-4.87299274503311e-4 -8.25681135992101e-7 0.0), #(6.63098416056731e-4 3.01635533623013e-5 0.0), #(-7.93566946553253e-5 -4.17783822399184e-5 0.0), #(1.69468668362395e-5 -3.39281917608515e-5 0.0), #(-5.83153694097608e-5 1.07241604830595e-5 0.0), #(9.40805249399685e-5 -3.71679067311766e-4 0.0), #(0.00408402802005145 -0.00627864327774852 0.0), #(-4.62967357426686e-4 0.00653672317076423 0.0)
#(-4.65728096946923e-4 0.215795235187972 0.0), #(6.28224973129481e-4 0.0842999574785782 0.0), #(-1.33246618348862e-4 -0.0776572548219485 0.0), #(3.70440317530812e-5 0.0827934787397341 0.0), #(-4.85045720319413e-5 -0.0916004200762529 0.0), #(4.61235381240382e-5 -0.635125220808 0.0), #(-2.83422797866318e-5 -0.429016315889232 0.0), #(7.48282822858489e-4 0.106819223156871 0.0)
#(-0.00193082350303128 0.396941998322524 0.0), #(0.00213175747600949 0.150731349085222 0.0), #(-2.0779435771403e-4 -0.136002084835342 0.0), #(2.20556005115272e-5 0.154840522194175 0.0), #(1.88089681321968e-5 -0.318668703576711 0.0), #(6.83756667117209e-5 -0.467970990754889 0.0), #(-1.33795343287035e-5 -0.455477905183316 0.0), #(3.22232283751471e-5 0.0374761970707484 0.0)
#(-3.49871072267439e-4 0.179709078059206 0.0), #(6.37829794665001e-4 0.521346375828216 0.0), #(-3.51840733184551e-4 -0.161305309341334 0.0), #(7.90786879495628e-5 -0.595733469844069 0.0), #(1.10214824658836e-4 0.216519763994683 0.0), #(2.65129216542486e-5 -0.170073024371508 0.0), #(-5.73350402643799e-5 -0.431119996433956 0.0), #(-4.53041812398797e-5 0.017425422868681 0.0)
#(-1.1623676040059e-4 0.140141267369049 0.0), #(7.21786523155531e-4 0.54349872988742 0.0), #(-7.61137258270051e-4 -0.127314557063131 0.0), #(2.48015617966167e-4 -0.61107336759773 0.0), #(1.59528344457847e-4 0.271224514398545 0.0), #(-2.37364267333993e-5 -0.0485575814514998 0.0), #(-1.44835824819981e-4 -0.382583648775251 0.0), #(-5.21937766570595e-5 0.00785015987339683 0.0)
#(-9.41216338936073e-5 -9.80864779274042e-5 0.0), #(2.93150870522234e-5 2.62150492285482e-5 0.0), #(3.57511011545623e-5 3.42769277372134e-5 0.0), #(1.64352677233756e-4 1.64068018734242e-4 0.0), #(8.4713440401485e-4 8.6080285185029e-4 0.0), #(-9.09423830593542e-4 -9.10306261974005e-4 0.0), #(-6.32817130494148e-6 -2.14941734738685e-5 0.0), #(-4.3250533291017e-5 -4.61169610709728e-5 0.0)
#(0.3563725282817 0.356355212287596 0.0), #(0.157141635042524 0.157271884439605 0.0), #(-0.133876957821472 -0.133896688242705 0.0), #(-0.430977113446691 -0.431079723175308 0.0), #(0.169720720150191 0.169762620616683 0.0), #(-7.45459523248956e-4 -7.82460098450476e-4 0.0), #(-0.321797092872832 -0.321838035413516 0.0), #(0.0108013495846509 0.0108062043449276 0.0)
#(0.579256930073119 0.579184658730863 0.0), #(-0.0231054137022651 -0.0229790074263026 0.0), #(-0.24024504882385 -0.240208197394613 0.0), #(0.107932185936456 0.107961830169504 0.0), #(-0.37394625051517 -0.374000636897459 0.0), #(-0.00634610031260139 -0.00649036478172169 0.0), #(-0.395444665822711 -0.395477737589354 0.0), #(0.0477049223953139 0.0477129857388329 0.0)
#(0.618753531616801 0.618573889065847 0.0), #(-0.0422594349638804 -0.0421793147572595 0.0), #(-0.290692485727675 -0.290566716507561 0.0), #(0.0806367536266883 0.080656084391816 0.0), #(-0.0277033709816157 -0.0257156505087714 0.0), #(-0.340450967284966 -0.342683306271611 0.0), #(-0.273231530726372 -0.273182689732558 0.0), #(0.174656087240211 0.174649213767363 0.0)
#(0.631735854947105 0.631234561578841 0.0), #(-0.0283766191429777 -0.0283342914837392 0.0), #(-0.228552027421957 -0.228358822534544 0.0), #(0.0406840246536826 0.0406889509646278 0.0), #(-0.0784990794006591 -0.0781800392200852 0.0), #(-0.295958214800556 -0.29653752433194 0.0), #(0.290338740460307 0.290655384020043 0.0), #(-0.0366044056168473 -0.0366219808593982 0.0)
#(0.897892574601723 -5.81903707189335e-5 0.0), #(-2.60321278545725e-5 4.33200098753866e-6 0.0), #(-1.14396511886241e-4 1.59099437910222e-4 0.0), #(-1.01290837409607e-4 -1.42285255348505e-4 0.0), #(-2.79020180920574e-4 -1.56342405620486e-5 0.0), #(-8.57095693335715e-5 -6.19077080139697e-4 0.0), #(2.79664473935356e-4 8.22164602149145e-4 0.0), #(4.46750562806652e-4 -7.69615207522282e-5 0.0)

lastart

perl练习：

2. perl -ne 'chomp;@col=split /,/;foreach (@col){s/(#\()|(\))//g;@data=split / /;$sum=0;foreach (@data) {$sum+=$_*$_;}print $sum," ";}print "\n";' infile >outfile

复制代码

turtlerock

Post by lastart;2145033
perl练习：

1. 
   
2. perl -ne 'chomp;@col=split /,/;foreach (@col){s/(#\()|(\))//g;@data=split / /;$sum=0;foreach (@data) {$sum+=$_*$_;}print $sum," ";}print "\n";' infile >outfile
   

复制代码

谢谢，但是好像计算结果不对，比如第一行第一列算出来为0.779469823837349，实际应该0.88287588

lastart

第一行，第一列算出来难道不是0.728366024245578？
不是平方相加(a*a+b*b+c*c)吗？

turtlerock

Post by lastart;2145070
第一行，第一列算出来难道不是0.728366024245578？
不是平方相加(a*a+b*b+c*c)吗？

sorry，你是对的，是我描述错了，应该是平方和再开方。

谢谢。