請(qǐng)教PERL按列運(yùn)算求合的問題

htsmy

perl新手,請(qǐng)教PERL按列運(yùn)算求合的問題,如下：
有一個(gè)文本文件chengji.txt，內(nèi)容為：
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
按第二列的成績(jī)進(jìn)行匯總并求平均分?jǐn)?shù)

toniz

回復(fù) 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

復(fù)制代碼

xti9er

回復(fù)  htsmy
toniz 發(fā)表于 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

回復(fù) 5# DQP


    你發(fā)個(gè)主題帖就知道了