用perl 编程,数据如下 ：12 a 4 5 6 7 13 a 8 5 7 914 a 4 2 9 615 b 7 9 5 616 b 2 3 4 65行6列的数据格式.第二列有重复的元素,现在想合并重复的元素,例如,第一行第二列是a,第二行第2列也

Question

用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 +每列的平均数.不知道我说清楚了吗.谢谢大家了

Answer 1

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