view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.006 2020-03-08
- script handle BOM as Text::CSV doesn't
- script handle no pk_insert
- chop_cols not try splice past end of array

0.005 2020-02-01
- work around Text::CSV not checking Text::CSV_XS version like it should

0.004 2020-01-29
- pk_match

0.003 2020-01-27

scripts/data-prepare  view on Meta::CPAN

sub _dump {
  require Data::Dumper;
  $Data::Dumper::Indent = $Data::Dumper::Indent = $Data::Dumper::Sortkeys = $Data::Dumper::Sortkeys = $Data::Dumper::Terse = $Data::Dumper::Terse = 1;
  Data::Dumper::Dumper($_[0]);
}

sub read_csv {
  my ($file) = @_;
  open my $fh, "<:encoding(UTF-8)", $file or die "$file: $!";
  my $char = $fh->getc;
  $fh->ungetc(ord $char) if ord($char) != 0xFEFF; # Text::CSV fails on BOM
  csv(in => $fh);
}

if (grep defined, $slice_num, $slice_key) {
  die "Usage: -s[kn] col[num|key] file..." unless @ARGV;
  require Encode;
  for my $file (@ARGV) {
    my $data = read_csv($file);
    if (!defined $slice_num) {
      $slice_num = key_to_index($data->[0])->{$slice_key};