作业帮 > 综合 > 作业

用perl 编程,数据如下 :

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/19 22:38:18
用perl 编程,数据如下 :
12 a 4 5 6 7
13 a 8 5 7 9
14 a 4 2 9 6
15 b 7 9 5 6
16 b 2 3 4 6
5行6列的数据格式.第二列有重复的元素,现在想合并重复的元素,例如,第一行第二列是a,第二行第2列也是a,第三行也是a,则需要把(4+8+14)/3,(5+5+2)/3,等等,每列依次这样处理,最后得到这样的结果,a +每列的平均数.不知道我说清楚了吗.谢谢大家了
open IN,"E:/temp/a"||die $!;
while(){
@a=split();
$lines=shift(@a);
$ch=shift(@a);
push(@{$hash{$ch}},@a);
}
for $i(keys %hash){
@value=@{$hash{$i}};
print $i."\t";
for($m=0;$m