Perl 计算平均值

最新推荐文章于 2020-07-22 14:21:38 发布

scan724

最新推荐文章于 2020-07-22 14:21:38 发布

阅读量3.7k

点赞数

分类专栏： zj-脚本

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/50338055

版权

zj-脚本专栏收录该内容

93 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何用Perl脚本读取一个包含学生分数的文件，并计算所有成绩的平均值。博主首先打开并读取名为'grades'的文件，然后逐行处理，将分数存储在哈希表中。接着，博主遍历哈希表，计算总分和成绩数量，最后求得平均值并打印出每个学生的分数及平均分。

摘要由CSDN通过智能技术生成

zjzc01:/root/big# cat grades 
A 70
B 80
C 90
D 50
E 60
F 80
zjzc01:/root/big# cat a6.pl 
open(GRADES, "grades") or die "Can't open grades: $!\n";
 while ($line = <GRADES>) {
 ($student, $grade) = split(" ", $line);
 $grades{$student} .= $grade." " ;
 };
print "\%grades  is :\n";
print %grades;
print "\n";
print "\$grades{A} is $grades{A}\n";

foreach $student (sort keys %grades){
 $scores = 0;
 $total = 0;
 push (@grade,$grades{$student});
};
print "\@grade is @grade\n"; 


foreach $grade (@grade){
$total +=$grade;
$scores++};

print "\$total is $total\n";
print "\$scores is $scores\n";


$average = $total / $score

了解本专栏