快捷導(dǎo)航

用Perl操作Excel文檔的實例代碼

更新時間：2013年02月01日 00:03:01 作者：

用Perl操作Excel文檔的例子，有需要的朋友可以參考下

在Linux或者Unix上操作（生成）Excel，CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel這兩個模塊。
下面就來看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

首先，要在服務(wù)器上安裝相應(yīng)的模塊。
安裝 Excel 模塊的 PPM 命令

復(fù)制代碼代碼如下:

 
ppm> install OLE::Storage_Lite 
ppm> install Spreadsheet::ParseExcel 
ppm> install Spreadsheet::WriteExcel 

來看兩個例子吧。
例1：讀取excel文件

復(fù)制代碼代碼如下:

 
#!/usr/bin/perl -w 
use strict; 
use Spreadsheet::ParseExcel; 

my $parser = Spreadsheet::ParseExcel->new(); 
my $workbook = $parser->Parse('Book1.xls'); 

for my $worksheet ( $workbook->worksheets() ) { 

my ( $row_min, $row_max ) = $worksheet->row_range(); 
my ( $col_min, $col_max ) = $worksheet->col_range(); 

for my $row ( $row_min .. $row_max ) { 
for my $col ( $col_min .. $col_max ) { 

my $cell = $worksheet->get_cell( $row, $col ); 
next unless $cell; 

print "Row, Col = ($row, $col)\n"; 
print "Value = ", $cell->value(), "\n"; 
print "Unformatted = ", $cell->unformatted(), "\n"; 
print "\n"; 
} 
} 
} 

例2：生成EXCEL文件

復(fù)制代碼代碼如下:

 
#!/usr/bin/perl -w 

use Spreadsheet::WriteExcel; 

# 創(chuàng)建一個新的EXCEL文件 
my $workbook = Spreadsheet::WriteExcel->new('test.xls'); 

# 添加一個工作表 
$worksheet = $workbook->add_worksheet(); 

# 新建一個樣式 
$format = $workbook->add_format(); # Add a format 
$format->set_bold();#設(shè)置字體為粗體 
$format->set_color('red');#設(shè)置單元格前景色為紅色 
$format->set_align('center');#設(shè)置單元格居中 

#使用行號及列號，向單元格寫入一個格式化和末格式化的字符串 
$col = $row = 0; 
$worksheet->write($row, $col, 'Hi Excel!', $format); 
$worksheet->write(1, $col, 'Hi Excel!'); 

# 使用單元格名稱（例：A1），向單元格中寫一個數(shù)字。 
$worksheet->write('A3', 1.2345); 
$worksheet->write('A4', '=SIN(PI()/4)'); 
exit; 