lib/MojoFacets/Import/CSV.pm

   1 package MojoFacets::Import::CSV;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base 'Mojo::Base';
   7
   8 use File::Slurp;
   9 use Data::Dump qw(dump);
  10 use Encode;
  11
  12 __PACKAGE__->attr('path');
  13 __PACKAGE__->attr('full_path');
  14
  15 sub data {
  16         my $self = shift;
  17
  18         my $path = $self->path;
  19
  20         my $data = read_file $self->full_path, { binmode => ':raw' }; # FIXME configurable!
  21         $data = decode('cp1250', $data);
  22
  23         my @lines = split(/\r?\n/, $data);
  24         $data = { items => [] };
  25
  26         my $delimiter = qr/;/;
  27
  28         shift @lines; # FIXME ship non-header line
  29         my $header_line = shift @lines;
  30
  31         my @header = split( $delimiter, $header_line );
  32         warn "# header ",dump( @header );
  33
  34         while ( my $line = shift @lines ) {
  35                 chomp $line;
  36                 my @v = split($delimiter, $line);
  37                 my $item;
  38                 foreach my $i ( 0 .. $#v ) {
  39                         $item->{ $header[$i] || "f_$i" } = [ $v[$i] ];
  40                 }
  41                 push @{ $data->{items} }, $item;
  42         }
  43
  44         $data->{header} = [ @header ];
  45
  46         return $data;
  47
  48 }
  49
  50 1