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

Question

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

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

向工作表添加一些数据

然后

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

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

我的MIME附件代码是这样的

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

有人可以告诉我代码中缺少/错误的地方吗？谢谢

Answer 1

我发现了问题。我的行计数器没有在正确的位置递增。它总是将新数据从数据库写入第 2 行。

谢谢大家。