Re^3: Text CSV_XS memory crash

[spazm]

in reply to Re^2: Text CSV_XS memory crash
in thread Text CSV_XS memory crash

Tux, thanks for replying to my post and reviewing my code!

1. Yes, good point, no need to explicitly include use Text::CSV
2. Because I don't want bound vars, I want a hashref. I use the hash for readability of the data and code for this test example.
3. True, comma is the default. Leftover from modifying the original code. I'll clean that up.
4. auto_diag sounds like a useful change for both scripts (mine and original poster's).

changes applied.

[Tux]

2. You can still have a hashref:

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
open my $fh2, "<:encoding(utf8)", $file or die "$file: $!";
my $columns = $csv->getline ($fh2);
for (@$columns) { s/^\s+//; s/\s+$//; }
my %row;
$csv->bind_columns (\@row{@$columns});
while ($csv->getline ($fh2)) {
    process_row (\%row);
    }

[spazm]

thanks