请教PERL按列运算求合的问题

htsmy

perl新手,请教PERL按列运算求合的问题,如下：
有一个文本文件chengji.txt，内容为：
A001        98.50
A002        67.50
A003        99.75
A004        88.30
A005        78.50
A006        91.00
A007        95.00
A008        87.50
A009        75.20
按第二列的成绩进行汇总并求平均分数

toniz

回复 1# htsmy

1. use Data::Dumper;
   
2. @score = map{(split)[1]} <DATA>;
   
3. $sum = $sum + $_  foreach(@score);
   
4. $aver= $sum /@score;
   
5. print Dumper @score;
   
6. print $sum,"\n";
   
7. print $aver,"\n";
   
8. __DATA__
   
9. A001        98.50
   
10. A002        67.50
    
11. A003        99.75
    
12. A004        88.30
    
13. A005        78.50
    
14. A006        91.00
    
15. A007        95.00
    
16. A008        87.50
    
17. A009        75.20

复制代码

xti9er

回复  htsmy
toniz 发表于 2010-02-26 10:57

    真漂亮

shaneqi

while(<DATA>) {
        ($num,$score)=split('\s+');
         $sum=$sum+$score;
}
print $sum/$.;


__DATA__
A001        98.50
A002        67.50
A003        99.75
A004        88.30
A005        78.50
A006        91.00
A007        95.00
A008        87.50
A009        75.20

DQP

我就是想问 为什么你的帖子前面有小红花呢。。。。
谢谢
DQP

htsmy

谢谢！　我先试一下。　
然后还需要改写成从文件读入。

infernor

回复 5# DQP


    你发个主题帖就知道了