Evergreen/src/extras/import/piece_count_loader.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 print <<SQL;
   7 CREATE TABLE legacy_piece_count (barcode text, cnt int);
   8 COPY legacy_piece_count (barcode, cnt) FROM STDIN;
   9 SQL
  10
  11 while (<>) {
  12         chomp;
  13         my ($bc,$c) = split '\|';
  14         $bc =~ s/\s*$//o;
  15         print "$bc\t$c\n" if ($c > 1);
  16 }
  17
  18 print '\.'."\n";
  19 print "CREATE INDEX pc_bc_idx ON legacy_piece_count (barcode);\n";
  20