linuxtone上某位童鞋的面试题

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

1. 品牌      产品编号      价格 
2. A           001             10 
3. A           002             20 
4. A           003             30 
5. B           004             40 
6. B           005             50 
7. C           006             60 
8. C           007             70 

要求得到如下结果

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

啥也不说，直接上perl代码

1. #!/usr/bin/perl -w 
2.  
3. use strict; 
4.  
5. #定义一个空的哈希表
6. my %hash = (); 
7.  
8. open my $file,'<','a.txt' or die "$!\n"; 
9.  
10. while ( <$file> ) { 
11.        chomp; 
12. #过滤掉文件第一行所在的汉字部分
13.        next if /品牌/; 
14.        my @array = split /\s+/; 
15.        $hash{$array[0]} = [] unless exists $hash{$array[0]}; 
16. #数组引用
17.        push @{$hash{$array[0]}},"$array[1]\t\t$array[2]"; 
18. } 
19.  
20. close $file; 
21.  
22. #遍历出哈希的键值
    
23. for my $prod ( sort keys %hash ) { 
24.  
25. #解引用
26.     my @tmp_array = @{$hash{$prod}}; 
27. #输出结果
28.     print "${prod}产品编号\t${prod}价格\n"; 
29.     print join "\n",@tmp_array; 
30.     print "\n"; 
31.  
32. } 

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

output:

1. [root@test henry]# perl a.pl 
2. A产品编号       A价格 
3. 001             10 
4. 002             20 
5. 003             30 
6. B产品编号       B价格 
7. 004             40 
8. 005             50 
9. C产品编号       C价格 
10. 006             60 
11. 007             70