Perl读取Excel表格中的数据

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

#创建一个表格解析对象
my $oExcel = new Spreadsheet::ParseExcel;
die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
 #设定格式转码
my $oFmtC = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");
#解析文件，文件名为传给脚本的第一个参数
my $oBook = $oExcel->Parse($ARGV[0],$oFmtC);
#表格文件中的表序
my $iSheet=0;
#获得表格文件的第一张表
my $worksheet=$oBook->{Worksheet}[$iSheet];
#获取指定表中的值 列序、列序的始值为0
my $value=$worksheet->{Cells}[行序][列序]->Value;

另外看这里:
http://blog.chinaunix.net/u/14845/showart_80678.html
http://www.ibm.com/developerworks/cn/linux/sdk/perl/culture-8/index.html