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]tt$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 

本文出自 “BSDerの-专注于开源领域” 博客,请务必保留此出处http://hellosa.blog.51cto.com/2698675/580763

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!