excel文件中的列標題與Perl

Question

我有一個Excel文件有許多列，但我只需要對這些列中的3列進行一些計算。

我使用SpreadSheet::ParseExcel來遍歷我的Excel文件。如何指定我想用perl的列？

Answer 1

#!/usr/bin/perl -w 

use strict; 
use Spreadsheet::ParseExcel; 

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

if (!defined $workbook) { 
    die $parser->error(), ".\n"; 
} 

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

    my ($row_min, $row_max) = $worksheet->row_range(); 
    my @columns = (1,5,6) # enter your 3 columns here 

    for my $row ($row_min .. $row_max) { 
     for my $col (@columns) { 

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

      # do the calculations here 
      print "Row, Col = ($row, $col)\n"; 
      print "Value  = ", $cell->value(),  "\n"; 
      print "Unformatted = ", $cell->unformatted(), "\n"; 
      print "\n"; 
      # operations done 
     } 
    } 
} 

來源：Spreadsheet::ParseExcel模塊的文檔。