Perl操作Excel文檔

如何通過perl來對Excel文件做讀寫操作呢？CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel兩個模塊。通過這兩個模塊，我們就可以讀寫和創建Excel文件了。
下面就來看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

在使用這兩個模塊之前，首先要在服務器上安裝相應的模塊，可以通過PPM命令來安裝，安裝命令如下：

1. ppm> install OLE::Storage_Lite
2. ppm> install Spreadsheet::ParseExcel
3. ppm> install Spreadsheet::WriteExcel

下面通過兩個例子來看看如何對Excel文檔進行操作的。
1、讀取excel文件

1. #!/usr/bin/perl -w
2. use strict;
3. use Spreadsheet::ParseExcel;
4. my $parser = Spreadsheet::ParseExcel->new();
5. my $workbook = $parser->Parse('Book1.xls');
6.  
7. for my $worksheet ( $workbook->worksheets() ) {
8.  
9.     my ( $row_min, $row_max ) = $worksheet->row_range();
10.     my ( $col_min, $col_max ) = $worksheet->col_range();
11.    
12.     for my $row ( $row_min .. $row_max ) {
13.         for my $col ( $col_min .. $col_max ) {
14.        
15.         my $cell = $worksheet->get_cell( $row, $col );
16.         next unless $cell;
17.        
18.         print "Row, Col = ($row, $col)n";
19.         print "Value = ", $cell->value(), "n";
20.         print "Unformatted = ", $cell->unformatted(), "n";
21.         print "n";
22.         }
23.     }
24. }

2、生成EXCEL文件

1. #!/usr/bin/perl -w
2. use Spreadsheet::WriteExcel;
3.  
4. # 創建一個新的EXCEL文件
5. my $workbook = Spreadsheet::WriteExcel->new('test.xls');
6.  
7. # 添加一個工作表
8. $worksheet = $workbook->add_worksheet();
9.  
10. # 新建一個樣式
11. $format = $workbook->add_format(); # Add a format
12. $format->set_bold();#設置字體爲粗體
13. $format->set_color('red');#設置單元格前景色爲紅色
14. $format->set_align('center');#設置單元格居中
15.  
16. #使用行號及列號，向單元格寫入一個格式化和末格式化的字符串
17. $col = $row = 0;
18. $worksheet->write($row, $col, 'Hi Excel!', $format);
19. $worksheet->write(1, $col, 'Hi Excel!');
20.  
21. # 使用單元格名稱（例：A1），向單元格中寫一個數字。
22. $worksheet->write('A3', 1.2345);
23. $worksheet->write('A4', '=SIN(PI()/4)');
24. exit;