如何處理文本？？？

RE_HASH

$> cat test.pl
##read file
while (<>
{
@F= split /\s+/, $_;
$H->{$F[1]} = $i++ unless (exists $H->{$F[1]});
push @{$O->{$F[0]}->{$F[1]}}, $F[2];
}
use Data:umper;
printf "Data structure:\n---------\n%s\nResult:\n--------------\n", Dumper $O;
$,="\t";
print "",sort keys $H;
print "\n";
for (sort keys %$O)
{
for $i ( 0,1){
printf "$_";
foreach my $k (sort keys %$H)
{
printf "\t%s", $O->{$_}->{$k}->[$i];
}
print "\n";
}}

RE_HASH

如果确定每组行数相同：

while (<>)
{
  $i++;
  my @F = split;
  if ($F[1] ne $O->[0]->[-1]) {  $j++; $i = 1; $O->[0]->[$j] = $F[1]; }  #Header  
  @{$O->[$i]}[0, $j] = @F[0,2];  #Key, Data Rows
}
$,="\t"; map { print @$_, "\n" } @$O;