perl解析Excel文件的例子。

 Spreadsheet::ParseExcel
perl解析Excel文件的例子。

#!/usr/bin/perl -w



use strict; 

use Spreadsheet::ParseExcel; 

use Spreadsheet::ParseExcel::FmtUnicode; #gb support



my $oExcel = new Spreadsheet::ParseExcel; 



die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV; 

my $code = $ARGV[1] || "CP936"; #gb support

my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->;new(Unicode_Map =>; $code); #gb support

my $oBook = $oExcel->;Parse($ARGV[0], $oFmtJ); 

my($iR, $iC, $oWkS, $oWkC); 

print "FILE  :", $oBook->;{File} , "\n"; 

print "COUNT :", $oBook->;{SheetCount} , "\n"; 



print "AUTHOR:", $oBook->;{Author} , "\n" 

if defined $oBook->;{Author}; 



for(my $iSheet=0; $iSheet < $oBook->;{SheetCount} ; $iSheet++) 

{ 

$oWkS = $oBook->;{Worksheet}[$iSheet]; 

print "--------- SHEET:", $oWkS->;{Name}, "\n"; 

for(my $iR = $oWkS->;{MinRow} ; 

     defined $oWkS->;{MaxRow} && $iR <= $oWkS->;{MaxRow} ; 

     $iR++) 

{ 

  for(my $iC = $oWkS->;{MinCol} ; 

      defined $oWkS->;{MaxCol} && $iC <= $oWkS->;{MaxCol} ; 

      $iC++) 

  { 

   $oWkC = $oWkS->;{Cells}[$iR][$iC]; 

   print "( $iR , $iC ) =>;", $oWkC->;Value, "\n" if($oWkC); 

  } 

} 

}