Re: Issue parsing CSV into hashes?

[ikegami]

CSV files are two dimensional (lines of fields). Your data is also two dimensional. To parse your data as a CSV file, each hash element would need to be parsed as a line.

use strict;
use warnings;

use Data::Dumper qw( Dumper );
use Text::CSV_XS 0.74;  # eol bug fix.

my $csv = Text::CSV_XS->new({
   binary   => 1,
   sep_char => ':',
   eol      => ',',
});

while (<DATA>) {
   chomp;

   my %h;
   open(my $fh, '<', \$_) or die;
   while (my $row = $csv->getline($fh)) {
      $h{ $row->[0] } = $row->[1];
   }

   $csv->eof
      or $csv->error_diag();

   print(Dumper(\%h));
}

__DATA__
"evt":"Login","time":"now","msg":"Login success, welcome back!"

$VAR1 = {
          'msg' => 'Login success, welcome back!',
          'time' => 'now',
          'evt' => 'Login'
        };

One catch: eol doesn't work for anything but "\n" in 0.73, and 0.74 isn't out yet. (The bug has been fixed, but a release hasn't been created yet.)

[Tux]

   One catch: eol doesn't work for anything but "\n" in 0.73, and 0.74 isn't out yet. (The bug has been fixed, but a release hasn't been created yet.)

Almost true. It didn't work with eol's not having a trailing \r or \n, which was caused by the underlying implementation that used perl's internal getline () mechanism without modifying $/ locally.

I plan to release version 0.74 this week, some documentation changes are pending. The _PP counterpart is also ready as we speak.

ikegami, you should start using the auto_diag attribute :)

[ikegami]

Perl doesn't know or care about "\r", so it must be a special case. I tested it, revealing that "\r" was broken and still is. I reopened the ticket.

[ikegami]

auto_diag: nice.