I want something like I have when I use text::CSV to read the file and turn it into hashref:
# Read file from path my @rows; my $csv = Text::CSV->new ( { binary => 1, sep_char => "\t" } ) or die "Error creating TSV object: ".Text::CSV->err +or_diag (); open my $fh, "<:encoding(utf8)", "$filename" or die "Error reading CSV file: $!"; $csv->column_names ($csv->getline ($fh)); # Get header names while ( my $record = $csv->getline_hr( $fh ) ) { # Process record push @rows, $record; } $csv->eof or $csv->error_diag(); close $fh; print Dumper \@rows;
This is the output after reading the file:
$VAR1 = [ { 'ID' => '4564', 'Date' => '4-05-1986, 'Name' => 'Mengano' } ];
In reply to Re^4: Loader script - Design question
by artanisace
in thread Loader script - Design question
by artanisace
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |