Question

用perl 编程,数据如下 ：12 a 4 5 6 7 13 a 8 5 7 914 a 4 2 9 615 b 7 9

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