#!/bin/bash

  file=KJV_fixed.csv
schema=public
 table=kjv
     t=$schema.$table

echo "
drop   table if     exists $t ;
create table if not exists $t (
    recordnum serial PRIMARY KEY 
  , book      int
  , chapter   int
  , verse     int
  , text      text
)
" | psql -X

< $file perl -ne 'chomp;
  my @arr = split(/[,]/, $_, 4);
  print join("\t", @arr), "\n";
' | psql -c "
  copy $t(book, chapter, verse, text)
       from stdin (format csv, header false, delimiter E'\t');
  analyze $t;
"