linuxtone上某位童鞋的面试题

linuxtone上某位童鞋的面试题目，文件如下

品牌      产品编号      价格
A           001             10
A           002             20
A           003             30
B           004             40
B           005             50
C           006             60
C           007             70

要求得到如下结果

A产品编号    A价格        B产品编号     B价格         C产品编号      C价格
001             10             004             40             006             60
002             20             005             50             007             70
003             30

啥也不说，直接上perl代码

#!/usr/bin/perl -w

use strict;

#定义一个空的哈希表
my %hash = ();

open my $file,'<','a.txt' or die "$!\n";

while ( <$file> ) {
       chomp;
 #过滤掉文件第一行所在的汉字部分
       next if /品牌/;
       my @array = split /\s+/;
       $hash{$array[0]} = [] unless exists $hash{$array[0]};
 #数组引用
       push @{$hash{$array[0]}},"$array[1]\t\t$array[2]";
}

close $file;

#遍历出哈希的键值
for my $prod ( sort keys %hash ) {

 #解引用
    my @tmp_array = @{$hash{$prod}};
 #输出结果
    print "${prod}产品编号\t${prod}价格\n";
    print join "\n",@tmp_array;
    print "\n";

}

这个代码输出的格式并没有与要求的一样，有兴趣的自己改下，知道怎么用perl处理就好，我觉得这才是关键

output:

[root@test henry]# perl a.pl
A产品编号       A价格
001             10
002             20
003             30
B产品编号       B价格
004             40
005             50
C产品编号       C价格
006             60
007             70