Excel の xlsx を perlでパースする

UNIX (厳密にはFreeBSD）でxlsxをパースしたい。

理由としては、Excelでホームページを作っているからです。

Spreadsheet::ParseXLSXを使用する

use Spreadsheet::ParseXLSX;

		my $xlsxfile="excel.xlsx";

		print "Parse start $xlsxfile\n";
		my $ExcelObj = Spreadsheet::ParseXLSX->new();  # ParseXLSXのオブジェクト定義
	    
		my $Book = $ExcelObj->parse($xlsxfile);        # xlsxファイル読み込み/book扱い
	    
		for my $Sheet ($Book->worksheets()) {          # worksheetオブジェクト取得
			&GetValuesFromSheet($Sheet,"$xlsxfile.txt");               # worksheetデータ取得へ
		}

これで、excel.xlsx.txt が UTF-8のタブ区切りテキストで出力されます。

※Excelのすべての関数を認識して、正しくパースしてくれます。
※Microsoft Excelのファイル以外動作保証はないようです。
※Excel VBA は解析できません。