[PerlChina] 问一道题目

hi：

  大家好，我想问一道题目，原本是要求用shell实现的，我想问问用perl如何实现：

如下：

品牌     产品编号     价格

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

 

2011-06-30

---

perl01@live.cn