Perl中對Excel的讀取處理

#讀取excel中存放的用戶進行相關信息匹配

use Spreadsheet::ParseExcel;
use Encode;

my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse("$filename");
my($iR, $oWkS, $oWkC);
my ($nnn,$mmm);
print "FILE  :", $oBook->{File} , "\n";
print "SHEETCOUNT :", $oBook->{SheetCount} , "\n";
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
{
	$oWkS = $oBook->{Worksheet}[$iSheet];
	for(my $iR = $oWkS->{MinRow} ; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++)
	{
		$oWkC = $oWkS->{Cells}[$iR][0];
		if($oWkC){
			$nnn = $oWkC->Value;
			$mmm = encode("euc-cn",$nnn);
			$UserData{$mmm} = $SP{$mmm} if($SP{$mmm});
		}
	}
}