有道题目问一下，原来是要求用shell实现的

lynncate

品牌     产品编号     价格
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写了一个实现，但是很差劲啦，没有使用什么算法什么的，所以我想问问，这题目用perl有什么方法实现。

lynncate

不要求代码，给思路就好。

yinyuemi

回复 2# lynncate


    我的思路，呵呵：
chomp
if(/([^\s]+)\s(\w+)/)  # $1:A,B,.. $2: 对于的值
if (!(exists $hash1{$1}))
{$hash2{++$p}.=$2}
else
{$hash1{$1}}

END
print sort %hash2

kk861123

回复 1# lynncate


    只把数据写成了一个hash的形式，你要求的显示没有仔细研究

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Data::Dumper;
   
5. 
   
6. my %data;
   
7. while (<DATA>) {
   
8.         my @line = split;
   
9.         push @{ $data{$line[0]} },[$line[1],$line[2]];
   
10. }
    
11. print Dumper \%data;
    
12. 
    
13. while (my($k,$v) = each %data) {
    
14.         print "PN:$k\tPRICE$k\n";
    
15.         for (@{$v}) {
    
16.                 print join("\t",@{$_}),"\n";
    
17.         }
    
18. }
    
19. 
    
20. __DATA__
    
21. A           001             10
    
22. A           002             20
    
23. A           003             30
    
24. B           004             40
    
25. B           005             50
    
26. C           006             60
    
27. C           007             70

复制代码