How to merge two csv files as worksheets in Excel file using perl

Question

All,

I have 2 .csv files which has some data in it (test1.csv, test2.csv)

I have to create a new Excel (test.xls) with 2 worksheets test1 and test2

test1 is nothing but contents of test1.csv and test2 is nothing but test2.csv

I am using the below code. but it only creates only empty worksheets.

Can you please let me know how do i load these csv files into worksheets of xls file.

#!/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

You need to convert your CSV to XLS format before writing to the workbook.

You could install Text::CSV_XS and use the csv2xls utility that comes with it.