Perl MIME :: Lite发送空的Excel文件

我正在使用Spreadsheet :: WriteExcel在perl中创build一个excel文件。 我的代码是这样开始的

my $workbook = Spreadsheet::WriteExcel->new('map.xls'); my $worksheet = $workbook->add_worksheet('map'); 

将一些数据添加到workSheet

接着

 $workbook->close() or die "Error closing file: $!"; 

但是我得到的excel文件只包含一行错误信息

我的MIME附件代码是这样的

 $msg->attach( Type => 'application/vnd.ms-excel', Path => $sNoticeFile, Disposition => "attachment", ); 

有人可以告诉我什么是缺less/错误的代码？ 谢谢

Answer 1

我解决了这个问题。 我的行计数器没有在正确的地方递增。 它总是从数据库写入新的数据到第2行。

谢谢大家。