perl如何将excel中重复的项目取出到新的表中

zjx0103

工作中遇到了一些问题，就是在excel表中的sheet1里，有这些数据，比如
姓名         年龄             职业                 工资收入
张三         29               教师                  2000
李四         29               教师                  1500
王五         30               工程师                2500
赵六         30               工程师                3000
吴七         31               医生                   3000

现在的需求是在工资收入中查找相同收入的人，然后生成一个新表，将相同收入的人的所有数据放在一个表中，因为工资收入很难事先判定，所以请教各位，如何用perl去实现，最后的结果是有四个sheet,分别是
sheet1:
赵六         30               工程师                3000
吴七         31               医生                   3000

sheet2:
王五         30               工程师                2500
sheet3:
李四         29               教师                  1500
sheet4:
张三         29               教师                  2000

只是一个红薯

lz可以看下这个： Spreadsheet::WriteExcel还有这个帖子：http://bbs.chinaunix.net/thread-4066200-1-1.html回复 1# zjx0103


   

mcshell

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Excel::Writer::XLSX;
   
5. use Encode ;
   
6. sub H{
   
7.     my $text = shift;
   
8.     return  decode('gb2312',$text);
   
9. }
   
10. my $workbook = Excel::Writer::XLSX->new('test.xlsx');
    
11. my ($worksheet,$count,%hash);
    
12. while(<DATA>){
    
13.     if($.>1){
    
14.         push @{$hash{(split)[3]}} , $_;
    
15.     }
    
16. }
    
17. map{$count++;my $num;
    
18.     $worksheet = $workbook->add_worksheet("Sheet$count");
    
19.     map{$num++;$worksheet->write_row("A$num",[split/\s+/,H($_)])}@{$hash{$_}}
    
20.   }keys %hash;
    
21. $workbook->close();
    
22. __DATA__
    
23. 姓名         年龄             职业                 工资收入
    
24. 张三         29               教师                  2000
    
25. 李四         29               教师                  1500
    
26. 王五         30               工程师                2500
    
27. 赵六         30               工程师                3000
    
28. 吴七         31               医生                   3000

复制代码

回复 1# zjx0103