「Excel ファイルの内容を Ruby を使って高速取得する」の記事を見て。

Perlでは「Spreadsheet::ParseExcel」を使うことにより、Excelファイルの内容を取得できます。

「Spreadsheet::ParseExcel」はExcelを起動しないため、上の記事よりもずっと早く取得できます。

しかも、Windows以外のOSでも動作可能。

最初に、Spreadsheet::ParseExcelをインストールします。

ActivePerlの場合、

ppm install Spreadsheet-ParseExcel

その他の場合、

perl -MCPAN -e shell
install Spreadsheet::ParseExcel

実際のコード

#!/usr/bin/perl

use strict;
use Spreadsheet::ParseExcel;
my $excel = new Spreadsheet::ParseExcel;
my $book = $excel->Parse('Book1.xls');
my $sheet = $book->{Worksheet}[0];
my $cell = $sheet->{Cells}[0][1];
print $cell->Value;