Perl操作Excel文档

发布时间：2020-12-15 23:56:51 所属栏目：大数据来源：网络整理

导读：如何通过 perl 来对Excel文件做读写操作呢？CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel两个模块。通过这两个模块，我们就可以读写和创建Excel文件了。下面就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

如何通过perl来对Excel文件做读写操作呢？CPAN上提供了Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel两个模块。通过这两个模块，我们就可以读写和创建Excel文件了。
下面就来看看 Spreadsheet::WriteExcel 和 Spreadsheet::ParseExcel的使用方法。

在使用这两个模块之前，首先要在服务器上安装相应的模块，可以通过PPM命令来安装，安装命令如下：

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

下面通过两个例子来看看如何对Excel文档进行操作的。
1、读取excel文件

#!/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 );
? ?? (? $col_min,? $col_max? )?=? $worksheet- > col_range );
? ?
? ?? my? $row? (? $row_min?..? $row_max? {
? ? ? ?? my? $col? (? $col_min?..? $col_max? {
? ? ? ?
? ? ? ?? my? $cell?=? $worksheet- > get_cell (? $row,? $col? );
? ? ? ?? next? unless? $cell;
? ? ? ?
? ? ? ?? print? "Row,Col = ($row,$col)n";
? ? ? ?? "Value = ",? $cell- > value ),? "n";
? ? ? ?? "Unformatted = ",? $cell- > unformatted "n";
? ? ? ?? }
? ?? }
}

2、生成EXCEL文件

#!/usr/bin/perl -w

use?Spreadsheet:: WriteExcel;

# 创建一个新的EXCEL文件

my? $workbook?= Spreadsheet:: WriteExcel- > new 'test.xls' );

# 添加一个工作表

$worksheet?=? $workbook- > add_worksheet # 新建一个样式

$format?=? $workbook- > add_format );? # Add a format

$format- > set_bold ); #设置字体为粗体

$format- > set_color 'red' #设置单元格前景色为红色

$format- > set_align 'center' #设置单元格居中

#使用行号及列号，向单元格写入一个格式化和末格式化的字符串

$col?=? $row?=? 0;

$worksheet- > write ( $row,? $col,0)">'Hi Excel!',? $format );

$worksheet- > write ( 1,0)">'Hi Excel!' # 使用单元格名称（例：A1），向单元格中写一个数字。

$worksheet- > write 'A3',? 1.2345 'A4',0)">'=SIN(PI()/4)' );

exit;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!