安装Perl Excel读取模块

lbdbzj110

　　在Win7上，进入VisualStudio2008的cmd line prompt
　　perl　-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