我正在编写一个用于家庭作业的perl脚本,该脚本接收以“class”开头的任何文件,并打印出文章中的班级标题和每个学生的平均值。
INPUT:
$cat class1
Sam 90, 95, 82
Max 88, 90, 86
Alex 85, 92, 90
$cat class2
Student1 87, 91, 86
Student2 84, 89, 88
Student3 84, 90, 93
输出:
*****class1*****
Sam: 89
Max: 88
Alex: 89
*****class2*****
Student1: 88
Student2: 87
Student3: 89
目前尝试编写脚本:
#!/usr/bin/perl
@gradefiles = <class*>;
foreach (@gradefiles){
print "****".$_."****\n";
my %grades;
my %average;
open(DATA, $_) || die "Can't open $_: $!\n";
while (<DATA>){
my ($student, @vals) = split(/\t/);
$grades{$student} = \@vals;
}
keys %grades;
while(my($k, $v) = each %grades){
my @igrades = split(',',$v);
my $total = 0;
foreach (@igrades){
$total += $_;
}
my $length = @igrades;
my $avg = $total / $length;
$average{$k} = \$avg;
}
keys %average;
while(my($k, $v) = each %average){
print $k." ".$v."\n";
}
}
CURRENT OUTPUT:
****class1****
Sam 90, 95, 82
SCALAR(0x2036100)
Alex 85, 92, 90
SCALAR(0x202ab38)
Max 88, 90, 86
SCALAR(0x2034710)
****class2****
Student3 84, 90, 93
SCALAR(0x2034740)
Student2 84, 89, 88
SCALAR(0x2034728)
Student1 87, 91, 86
SCALAR(0x202a298)
===== UPDATE ==== 我的新代码
#!/usr/bin/perl
@gradefiles = <class*>;
foreach (@gradefiles){
print "****".$_."****\n";
my %grades;
my %average;
open(DATA, $_) || die "Can't open $_: $!\n";
while (<DATA>){
my ($student, @vals) = split(/\t/);
$grades{$student} = @vals;
}
for my $name (keys %grades){
my @igrades = split(',',$grades{$name});
my $total = 0;
for my $grade (@igrades){
$total += $grade;
}
my $length = @igrades;
my $avg = $total / $length;
$average{$name} = $avg;
}
for my $name (keys %average){
print $name.": ".$average{$name}."\n";
}
}
我的新输出:
****class1****
Sam 90, 95, 82
: 0
Alex 85, 92, 90
: 0
Max 88, 90, 86
: 0
****class2****
Student3 84, 90, 93
: 0
Student2 84, 89, 88
: 0
Student1 87, 91, 86
: 0
工作脚本
#!/usr/bin/perl
@gradefiles = <class*>;
foreach (@gradefiles){
print "****".$_."****\n";
my %grades;
my %average;
open(DATA, $_) || die "Can't open $_: $!\n";
while (<DATA>){
my ($student, $vals) = split(/\t/);
$grades{$student} = $vals;
}
for my $name (keys %grades){
my @igrades = split(',',$grades{$name});
my $total = 0;
for my $grade (@igrades){
$total += $grade;
}
my $length = @igrades;
my $avg = $total / $length;
$average{$name} = $avg;
}
for my $name (keys %average){
print $name.": ".$average{$name}."\n";
}
}
答案 0 :(得分:3)
我认为你在某种程度上过于复杂。您不需要任何正在构建的哈希值。
#!/usr/bin/perl
use strict;
use warnings;
use 5.010; # For 'say'
foreach my $class (<class*>) {
say "****$class****";
# Three-arg open, lexical filehandle. Modern Perl best practice
open my $data, '<', $class or die "Can't open $class: $!\n";
while (<$data>) {
my ($student, @data) = split /[\s,]+/;
say "$student: ", avg(@data);
}
}
sub avg {
my $total;
$total += $_ for @_;
return $total / @_;
}
答案 1 :(得分:0)
你这样做:
$average{$k} = \$avg;
其中存储了对标量的引用。因此,当您打印出$average{$k}
时,会打印出对标量的引用,即SCALAR(0x202a298)
。将行更改为:
$average{$k} = $avg;
......一切都应该有效。