ファイル名「hoge.xlsx」のシート名「sheet1」の行数をとる場合、こんな感じでしょうか。異常系はあまり考慮していないサンプルです。
SpreadSheet::XLSXの超簡易版なので、所要時間は同じぐらいかかってしまうかもしれません。
#!/usr/bin/env perl
use strict;
use warnings;
use Archive::Zip;
my $zip = Archive::Zip->new();
$zip->read('hoge.xlsx') == Archive::Zip::AZ_OK or die;
my $sheet1 = $zip->memberNamed('xl/worksheets/sheet1.xml') or die;
my $xml = $sheet1->contents;
my $rows = 0;
while ($xml =~ /<row r="(\d+)"/g) {
$rows = $1 if $rows < $1;
}
print $rows, "\n";
追記
argusさんのアドバイスと、Shimizuさんの「シート名を指定したい」という声を反映すると、こんな感じでしょうか。
#!/usr/bin/env perl
use strict;
use warnings;
no utf8;
use Archive::Zip;
my $xlsfile = 'hoge.xlsx';
my $sheetname = 'ほげシート';
my $zip = Archive::Zip->new();
$zip->read($xlsfile) == Archive::Zip::AZ_OK or die;
my $rels_xml = ($zip->memberNamed('xl/_rels/workbook.xml.rels') or die)->contents;
my %rels = ();
while ($rels_xml =~ /\<Relationship(\s.*?)\/?\>/gs) {
my $rels_elms = $1;
$rels_elms =~ /\sTarget="(.*?)"/ or next;
my $path = $1;
$rels_elms =~ /\sId="(.*?)"/s or next;
$rels {$1} = $path;
}
my $book_xml =($zip->memberNamed('xl/workbook.xml') or die)->contents;
my $rid;
while ($book_xml =~ /\<sheet(\s.*?)\/\>/gs) {
my $book_elms = $1;
if ($book_elms =~ /\sname="$sheetname"/so) {
$book_elms =~ /\sr:id="([^"]+)"/s or die;
$rid = $1;
last;
}
}
$rid or die;
my $sheet = $zip->memberNamed("xl/$rels{$rid}") or die;
$sheet->contents =~ /<dimension\s+ref="[A-Z]+(\d+):[A-Z]+(\d+)">/s or die;
print $2 - $1 + 1, "\n";