excel - perlを使用してExcel xlsファイルにデータを保存するには?

Question

次のようにperlを使用して、Excelファイルを.csvとして保存できます。

print "Content-type: application/vnd.ms-excel\n";
print "Content-Disposition: attachment;filename=\"file name.xls\"\n\n";    
print"Fruits, Cost";       

#その後、結果をループします。

それでも、色を使用したいので、これを .xls として保存する必要があります。誰でも助けることができますか？

Answer 1

あなたのニーズに合わせてSpreadsheet::WriteExcelを強くお勧めします。ライブラリは完全に Perl で記述されているため、CPAN ライブラリを Web サイトにアップロードし、特定の場所を指定するだけです。ライブラリ ドキュメントと以下のコード スニペットを参考にしてください。

#!/usr/bin/perl -w
use strict;
use lib qw(./lib);   # Place for the downloaded WriteExcel library
use Spreadsheet::WriteExcel;

# Send headers
print "Content-type: application/vnd.ms-excel\n";
print "Content-disposition: attachment;filename=rollcharts.org.xls\n\n";

# Create a new workbook and add a worksheet
my $workbook  = Spreadsheet::WriteExcel->new("-");
my $worksheet = $workbook->add_worksheet("Colorful Example");

# Create a new format with red colored text
my $format = $workbook->add_format();
$format->set_color('red');

# Add header    
$worksheet->write(0, 0, "Fruit.", $format);
$worksheet->write(0, 1, "Cost", $format);

# Add Data
$worksheet->write(1, 0, "Apple");
$worksheet->write(1, 1, "10.25");

# Close Workbook
$workbook->close();

Answer 2

リッチ テキストなどの高度な機能が必要ない場合は、Spreadsheet::WriteExcelを使用できます。これは非常にうまく機能し、オーバーヘッドもかなり低くなります。

編集:my $workbook = Spreadsheet::WriteExcel->new('-');ワークブックをSTDOUTに直接書き込むために使用します。

Answer 3

http://www.ibm.com/developerworks/library/l-pexcel/

http://search.cpan.org/dist/DBD-Excel/