Perl 计算平均值

最新推荐文章于 2024-07-15 22:13:36 发布

scan724

最新推荐文章于 2024-07-15 22:13:36 发布

阅读量3.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50338055

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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 / $scores;

foreach $student (sort keys %grades){
print "$student:$grades{$student}\tAverage :$average\n";
}
zjzc01:/root/big# perl a6.pl 
%grades

了解本专栏