安装Perl Excel读取模块
在Win7上，进入VisualStudio2008的cmd line promptperl -MCPAN -e shell
install Spreadsheet::ParseExcel
install Spreadsheet::ParseExcel::FmtUnicode
install Unicode::Map
不过安装Win32::GUI失败，编译问题
参考Perl Excel读取
http://www.cnblogs.com/pangxiaodong/archive/2012/01/30/2331887.html
http://blog.iyunv.com/uid-34002-id-2131797.html
调试通过：
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('carrizo_Fillrate_cl1341425_MCBFM_ONECYCLE.xls');
if ( !defined $workbook ) {
die $parser->error(), ".\n";
}
for my $worksheet ( $workbook->worksheets() ) {
printf("Sheet: %s\n", $worksheet->{Name});
if( $worksheet->{Name} =~ /Fillrate/ )
{
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";
}
}
}
}
Row, Col = (600, 11)
Value = 10.23
Unformatted = 10.2332917150066
Row, Col = (600, 12)
Value = 10.02
Unformatted = 10.0205238183467
Row, Col = (600, 13)
Value = 2.12%
Unformatted = 0.0212332110094224
Row, Col = (601, 0)
Value = fillrate_texture6_c64_rw_s8d24comp_rw_aa8
Unformatted = fillrate_texture6_c64_rw_s8d24comp_rw_aa8
Sheet: Interfaces_DB
Sheet: Interfaces_TCP
Sheet: MemCtrl
Sheet: CB
Sheet: DB
Sheet: TCPTCC
Sheet: Theoretical
Sheet: Peak Rates
Sheet: Compare
Sheet: EnginePerfHistory
Sheet: Chip_CONF
Sheet: Macros
Sheet: Chip_CONF old
D:\depot\PPV\project\GfxPV_DB\db_script>perl upload_excel.pl
页:
[1]