CGI - Perl から、Excel の出力

また、いつか使う時が来ると思うので、備忘録的に残しておこう、、サンプルコード。
どこかで、調べてコピッただけ、だけど、、、orz

use Jcode;
use Spreadsheet::WriteExcel::Big;
use Unicode::String qw(utf8 utf16);

print 'Content-type: application/vnd.ms-excel', "\n",
      'Content-Disposition: attachment; filename="結果.xls"', "\n\n";

my $workbook  = Spreadsheet::WriteExcel::Big->new("-");
my $worksheet = $workbook->add_worksheet;
my $format    = $workbook->addformat(font => "MS PGothic");

my ($row_num, $col_num) = (0,0);
for my $row (@rows) {
    for my $col (@$row) {
        $worksheet->write_unicode(
            $row_num, $col_num++,
            utf8(Jcode->new($col)->utf8)->utf16, $format,
        );
    }
    $row_num++;
}
$workbook->close;

注意点としては、、
Spreadsheet::WriteExcel::Big を使う事で、大量データのエクセルを作成できる、Big じゃないものだと、途中で落ちる、、？？とか、あったような、、
あと、utf16 じゃないと文字化けする？？
とか、こんな感じで Excel 作れたよって話し。。。
最新のモジュールとか見直してみた方がいいかも、、、。