copy .csv to .XLSX

[perl101]

#!/usr/bin/perl

 
use strict;

use warnings;

use diagnostics;

use Excel::Writer::XLSX;

<p> Direct copy of example for use of module "Text::CSV_XS" <p> 


my $csv = Text::CSV_XS->new ({ binary => 1 });
 open my $fh, "<", "a.csv" or die "a.csv: $!";
 while (my $row = $csv->getline ($fh)) {
  # do something with @$row

added next 4 lines to "do something with @$row"

 open my $fh_xlsx, ">", "write_to.XLSX" or die "write_to.XLSX: $!";
 $fh_xlsx=1;
 chomp $row;
 print "@$row\n";


     }

 $csv->eof or $csv->error_diag;
 close $fh or die "a.csv: $!";
 close $fh_xlsx or die "write_to.XLSX: $!";

[Anonymous Monk]

And the question is?

examples/csv2xls	Script to onvert CSV files to M$Excel
examples/csv-check	Script to check a CSV file/stream
examples/csvdiff	Script to shoff diff between sorted CSV files
examples/parser-xs.pl	Parse CSV stream, be forgiving on bad lines