Evergreen/src/extras/import/recirc_user_loader.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 print <<SQL;
   7 CREATE TABLE legacy_recirc_lib (barcode text, lib text);
   8 COPY legacy_recirc_lib (barcode, lib) FROM STDIN;
   9 SQL
  10
  11 while (<>) {
  12         chomp;
  13         my ($b,$l) = split '\|';
  14         print "$b\t$l\n";
  15 }
  16
  17 print '\.'."\n";
  18