perl读取excel表格，读每一行的每一个小格到一个数组

junweitao

如图，楼主有这样一个表格，想把每一行的每一小格的数据赋给一个数组，然后把这个数组里的某些值拿出来用，该怎么做？

junweitao

华小飞_Perl

楼主能再说的清楚点吗，或者用这个表格举个例子呢？

hztj2005

正好我也想用perl处理excel，在网上找的两段代码：

1. #!/usr/bin/perl -w
   
2. 
   
3. use Spreadsheet::WriteExcel;
   
4. 
   
5. # 创建一个新的EXCEL文件
   
6. my $workbook = Spreadsheet::WriteExcel->new('test.xls');
   
7. 
   
8. # 添加一个工作表
   
9. $worksheet = $workbook->add_worksheet();
   
10. 
    
11. # 新建一个样式
    
12. $format = $workbook->add_format(); # Add a format
    
13. $format->set_bold();#设置字体为粗体
    
14. $format->set_color('red');#设置单元格前景色为红色
    
15. $format->set_align('center');#设置单元格居中
    
16. 
    
17. #使用行号及列号，向单元格写入一个格式化和末格式化的字符串
    
18. $col = $row = 0;
    
19. $worksheet->write($row, $col, 'Hi Excel!', $format);
    
20. $worksheet->write(1, $col, 'Hi Excel!');
    
21. 
    
22. # 使用单元格名称（例：A1），向单元格中写一个数字。
    
23. $worksheet->write('A3', 1.2345);
    
24. $worksheet->write('A4', '=SIN(PI()/4)');
    
25. exit;
    
26. 
    
27. 
    
28. use Spreadsheet::ParseExcel;
    
29. use Spreadsheet::ParseExcel::FmtUnicode;
    
30. 
    
31. my $parser   = Spreadsheet::ParseExcel->new();
    
32. my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");
    
33. $workbook = $parser->parse('CorpusWordlist2.xls', $formatter);
    
34. 
    
35. if ( !defined $workbook ) {
    
36.     die $parser->error(), ".\n";
    
37. }
    
38. 
    
39. for my $worksheet ( $workbook->worksheets() ) {
    
40. 
    
41.     my ( $row_min, $row_max ) = $worksheet->row_range();
    
42.     my ( $col_min, $col_max ) = $worksheet->col_range();
    
43. 
    
44.     for my $row ( $row_min .. $row_max ) {
    
45.         for my $col ( $col_min .. $col_max ) {
    
46.            my $cell = $worksheet->get_cell( $row, $col );
    
47.            next unless $cell;
    
48.            print "Row, Col    = ($row, $col)\n";
    
49.            print "Value       = ", $cell->value(),       "\n";
    
50.            print "\n";
    
51.         }
    
52.     }
    
53. }
    
54. <STDIN>;

复制代码

hztj2005

1. #!/usr/bin/perl
   
2. use Spreadsheet::Read;
   
3. use Data::Dumper;
   
4. use Smart::Comments;
   
5. 
   
6. my $file = 'example.xls';
   
7. my $spreadsheet = ReadData( $file) or die "Cannot read file ";#指定读的文件名
   
8. my $sheet_count = $spreadsheet->[0]{sheets} or die "No sheets in $file\n"; #这个是查有几个sheet
   
9. for my $sheet_index (1 .. $sheet_count){
   
10.    my $sheet = $spreadsheet->[$sheet_index] or next;
    
11.    printf("%s = %2d: [%-s] %3d Cols, %5d Rows\n",
    
12.                     $file,$sheet_index,$sheet->{label},$sheet->{maxcol},$sheet->{maxrow});#label是sheet名
    
13.   for my $row (1 .. $sheet->{maxrow})
    
14.   {
    
15.       #读一行到数组
    
16.        @testrow = map {
    
17.                                my $data = $sheet->{cell}[$_][$row] ;
    
18.                                defined $data ? $data : "-";
    
19.                }1 .. $sheet->{maxcol};
    
20.        $rowstr = join(",",@testrow);            
    
21.        print  $rowstr."\n";
    
22.    };
    
23. }
    
24. 
    
25. 
    
26. exit;

复制代码