Help for this page

Select Code to Download


  1. or download this
    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: $!"
    +;