Try adding:

$csv->eol ("\x0d\x0a");
[download]

after the my $csv = Text::CSV_XS->new ... statement. Probably Excel is generating Windows line ends even on a Mac and Perl is expecting either *nix of (legacy) Mac line endings.

Don't! Text::CSV_XS and Text::CSV both dynamically support \r \x0D, \n \x0A, or \r\n \x0D\x0A even if they change per line if eol is not specified.

You might want to do so on output though:

    print "Writing to file: $ofile_name\n";
    $templateTextCopy =~ s{(?: \r\n | \r | \n )}
                              {\r\n}gx;  # <-- make line ending consis
+tent
    open my $fh, ">", $ofile_name or die "$ofile_name: $!";
    print $fh $templateTextCopy;
    close $fh;
[download]


Enjoy, Have FUN! H.Merijn

Ok I have the script as follows:

my $csv = Text::CSV->new( { binary => 1, auto_diag => 2, } )
or die "Cannot use CSV: " . Text::CSV->error_diag();
$csv->eol ("\x0d\x0a");

for my $csvFile (@ARGV) {
    print "\nProcesing file $csvFile ...\n";
    open my $csvfh, '<', $csvFile or die "Unable to open $csvFile: $!"
+;
[download]




When I run the script, i still get the following error:


Can't use an undefined value as an ARRAY reference at test.pl line 23, <$csvfh> line 1.


This happens whether the CSV is in MS Excel format, or TXT