如何使用perl将两个csv文件合并为Excel文件中的工作表

Question

全部，

我有 2 个 .csv 文件，其中包含一些数据（test1.csv、test2.csv）

我必须创建一个带有 2 个工作表 test1 和 test2 的新 Excel (test.xls)

test1 只是 test1.csv 的内容，而 test2 只是 test2.csv

我正在使用以下代码。但它只会创建空工作表。

请告诉我如何将这些 csv 文件加载到 xls 文件的工作表中。

#!/opt/perl-5.8.0/bin/perl

use strict;
use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new("Test.xls");

$workbook->addworksheet("test1.csv");
$workbook->addworksheet("test2.csv");
$workbook->close();

exit;

Answer 1

在写入工作簿之前，您需要将 CSV 转换为 XLS 格式。

您可以安装Text::CSV_XS 并使用它附带的csv2xls 实用程序。